1C — Говнокод.ру

1C / Говнокод #2773

−369.1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

Процедура СформироватьТаблицуГрафика()
	//Заполнение месяцев
	Для НомерМесяца = 1 По 12 Цикл
		
		НомерГода = Число(Прав(Год(ТекущаяДата()), 1));
		ДатаМесяца = Дата(НомерГода, НомерМесяца, 1);
		ДнейВМесяце = День(КонецМесяца(ДатаМесяца));

		НоваяСтрока = КалендарьНаборЗаписей.Добавить();
		НазваниеМесяца = Формат(ДатаМесяца, "ДФ=""ММММ""");
		НоваяСтрока.Установить(0, НазваниеМесяца);
		НоваяСтрока.НомерМесяца = НомерМесяца;
		
	КонецЦикла;
КонецПроцедуры

Помимо дикости написанного, эта штука не работает в 2010 году.

Зарплата и Управление Персоналом 2.5.18.3

Smallrat, 12 Марта 2010

Комментарии (5)

1C / Говнокод #2772

−125.8

1
2
3
4
5
6
7
8

Сумма   = МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(
		СуммаВал,
		ВалютаДокумента,
		ВалютаВзаиморасчетов,
		МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаДокумента,Дата).Курс,
		МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаВзаиморасчетов,Дата).Курс,
		МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаДокумента,Дата).Кратность,
		МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаВзаиморасчетов,Дата).Кратность);

Решение имеет статус 1С:Совместно.
Один из ведущих партнеров 1С.
Такой код во многих местах.

Euguln, 12 Марта 2010

Комментарии (10)

1C / Говнокод #2771

−126.4

1
2

НСтрока = ДокументОбъект.Товары.Добавить();
НСтрока.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("шт",,,НСтрока.Номенклатура);

luns, 12 Марта 2010

Комментарии (8)

1C / Говнокод #2722

−108.4

01
02
03
04
05
06
07
08
09
10
11

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	
	ОтраженоВОперУчете           = Истина;
	ОтражатьВБухгалтерскомУчете  = Истина;
	ОтражатьВНалоговомУчете      = Истина;
	
	Если НЕ ДокументОснование = Неопределено Тогда
		ЭлементыФормы.Проект.Значение = ДокументОснование.Проект;
	КонецЕсли;	
		
КонецПроцедуры // ПередОткрытием()

Автор хотел что бы все документы обязательно проводились по БУ УУ и НУ... И хотел что бы при вводе на основании заполнялось поле проект. Ну почти получилось:))))

acckiy_koder, 05 Марта 2010

Комментарии (31)

1C / Говнокод #2679

−126.5

1
2
3
4

ТаблПоле.Очистить();
Если (ТаблПоле.Количество() > 0) Тогда
	Возврат;
КонецЕсли;

А вдруг после очистки таблицы значений там всё-таки остались строки?

polestnize, 27 Февраля 2010

Комментарии (6)

1C / Говнокод #2589

−117.1

1
2
3
4
5
6
7
8
9

ТекВрем = Час(ТекущаяДата())*60+Минута(ТекущаяДата());
ВремКурсов = 60;
Если ТекВрем >= ВремКурсов Тогда
	ВремКурсов = ВремКурсов + 24*60 - ТекВрем;
Иначе
	ВремКурсов = ВремКурсов - ТекВрем;
КонецЕсли;
ВремКурсов = 1;
ПодключитьОбработчикОжидания("ЗагрузкаВалютИПересчетУЕ", ВремКурсов*60);

Вычисляем ВремКурсов, а затем присваиваем этой переменной единицу и умножаем на 60. Рациональность, чорт побери! :-D

KingOfShit, 11 Февраля 2010

Комментарии (11)

1C / Говнокод #2539

−114.9

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

запрос = новый запрос("ВЫБРАТЬ
|	ЗаказыПокупателейОбороты.ЗаказПокупателя,
|	ЗаказыПокупателейОбороты.Номенклатура,
|	СУММА(ЗаказыПокупателейОбороты.КоличествоПриход) КАК КоличествоВЗаказе,
|	СУММА(ВложенныйЗапрос.ОстатокПоЗаказу) КАК ОстатокПоЗаказу,
|	СУММА(ВложенныйЗапрос.ОстатокВРезерве) КАК ОстатокВРезерве
|ИЗ
|	РегистрНакопления.ЗаказыПокупателей.Обороты(, , , ) КАК ЗаказыПокупателейОбороты
|		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
|			ЗаказыПокупателейОстатки.ЗаказПокупателя КАК ЗаказПокупателя,
|			ЗаказыПокупателейОстатки.Номенклатура КАК Номенклатура,
|			СУММА(ЗаказыПокупателейОстатки.КоличествоОстаток) КАК ОстатокПоЗаказу,
|			СУММА(0) КАК ОстатокВРезерве
|		ИЗ
|			РегистрНакопления.ЗаказыПокупателей.Остатки КАК ЗаказыПокупателейОстатки
|		ГДЕ
|			ЗаказыПокупателейОстатки.ЗаказПокупателя = &Заказ
|		
|		СГРУППИРОВАТЬ ПО
|			ЗаказыПокупателейОстатки.ЗаказПокупателя,
|			ЗаказыПокупателейОстатки.Номенклатура
|		
|		ОБЪЕДИНИТЬ ВСЕ
|		
|		ВЫБРАТЬ
|			ТоварыВРезервеНаСкладахОстатки.ДокументРезерва,
|			ТоварыВРезервеНаСкладахОстатки.Номенклатура,
|			СУММА(0),
|			СУММА(ТоварыВРезервеНаСкладахОстатки.КоличествоОстаток)
|		ИЗ
|			РегистрНакопления.ТоварыВРезервеНаСкладах.Остатки КАК ТоварыВРезервеНаСкладахОстатки
|		ГДЕ
|			ТоварыВРезервеНаСкладахОстатки.ДокументРезерва = &Заказ
|		
|		СГРУППИРОВАТЬ ПО
|			ТоварыВРезервеНаСкладахОстатки.Номенклатура,
|			ТоварыВРезервеНаСкладахОстатки.ДокументРезерва) КАК ВложенныйЗапрос
|		ПО ЗаказыПокупателейОбороты.ЗаказПокупателя = ВложенныйЗапрос.ЗаказПокупателя
|			И ЗаказыПокупателейОбороты.Номенклатура = ВложенныйЗапрос.Номенклатура
|ГДЕ
|	ЗаказыПокупателейОбороты.ЗаказПокупателя = &Заказ
|
|СГРУППИРОВАТЬ ПО
|	ЗаказыПокупателейОбороты.ЗаказПокупателя,
|	ЗаказыПокупателейОбороты.Номенклатура");

запрос.УстановитьПараметр("Заказ",заказ);					  

Результат = Запрос.Выполнить();
тРезервы.Очистить();
	
Если Не Результат.Пустой() Тогда
	Выборка = Результат.Выбрать();
	Пока Выборка.Следующий() Цикл
		НоваяСтрока 		= тРезервы.Добавить();
		НоваяСтрока.Номенклатура 	= Выборка.Номенклатура;
		НоваяСтрока.КоличествоВЗаказе = Выборка.КоличествоВЗаказе;
		НоваяСтрока.ОстатокВРезерве 	= Выборка.ОстатокВРезерве;
		НоваяСтрока.ОстатокКОтгрузке 	= Выборка.ОстатокПоЗаказу;
	КонецЦикла; 
КонецЕсли;

Заполнение таблицы значений, очень быстро работает)))
КоличествоВЗаказе в 2 раза больше получается

SrK, 04 Февраля 2010

Комментарии (17)

1C / Говнокод #2498

−127.7

1

Выбрать * из РегистрСведений.Таблица Где Таблица.ДатаПодтверждения >= ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0))

Это вот условие писал мой бывший начальник..

KingOfShit, 29 Января 2010

Комментарии (12)

1C / Говнокод #2411

−134

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

Процедура СправочникСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
	
ТекКвота = ДанныеСтроки.Ссылка;
мЗапросДок = Новый Запрос;
мЗапросДок.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(СУММА(СДотчетТовары.Количество), 0) КАК Количество
|ИЗ
|	Документ.СДотчет.Товары КАК СДотчетТовары
|ГДЕ
|	СДотчетТовары.Ссылка.Проведен = ИСТИНА
|	И СДотчетТовары.КвотаОтчета = &Квота";			
мЗапросДок.УстановитьПараметр("Квота",ТекКвота);
			
Выборка = мЗапросДок.Выполнить().Выбрать();
Выборка.Следующий();
ВДоке = Выборка.Количество;
ОформлениеСтроки.Ячейки.СогласноСД.Значение = ?(ВДоке=0,"",ВДоке);
мЗапросПОС = Новый Запрос;
мЗапросПОС.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(СписаноПоПОСОбороты.КоличествоОборот, 0) КАК Количество
|ИЗ
|	РегистрНакопления.СписаноПоПОС.Обороты(, , , Квота = &Квота) КАК СписаноПоПОСОбороты";

мЗапросПОС.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросПОС.Выполнить().Выбрать();
Выборка.Следующий();
ВПОС = Выборка.Количество;
ОформлениеСтроки.Ячейки.СогласноПОС.Значение = ?(ВПОС=0,"",ВПОС);
			
мЗапросРег = Новый Запрос;

мЗапросРег.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(Квоты.КолВЗаказахПокупателя, 0) КАК КолВЗаказахПокупателя,
|	ЕСТЬNULL(ЗаказПоставщику.КолВЗаказахПоставщику, 0) КАК КолВЗаказахПоставщику
|ИЗ
|	(ВЫБРАТЬ
|		СУММА(ЕСТЬNULL(ЗаказПоставщикуТовары.Количество, 0)) КАК КолВЗаказахПоставщику
|	ИЗ
|		Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
|	ГДЕ
|		ЗаказПоставщикуТовары.КвотаЗаказа = &Квота) КАК ЗаказПоставщику,
|	(ВЫБРАТЬ
|		СУММА(ЕСТЬNULL(КвотыЗаказовПокупателейОстаткиИОбороты.КоличествоПриход, 0)) КАК КолВЗаказахПокупателя
|	ИЗ
|		РегистрНакопления.КвотыЗаказовПокупателей.ОстаткиИОбороты(
|				,
|				,
|				,
|				,
|				Квота = &Квота
|					И ВидКвоты = ЗНАЧЕНИЕ(Перечисление.ВидыКвот.ОтчетнаяКвота)) КАК КвотыЗаказовПокупателейОстаткиИОбороты) КАК Квоты";

			
мЗапросРег.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросРег.Выполнить().Выбрать();
ЕстьВыборка = Выборка.Следующий();
КолВЗаказахПокупателя = ?(не ЕстьВыборка,0,Выборка.КолВЗаказахПокупателя);
КолВЗаказахПоставщику = ?(не ЕстьВыборка,0,Выборка.КолВЗаказахПоставщику);

ОформлениеСтроки.Ячейки.ВЗаказахПокупателя.Значение = КолВЗаказахПокупателя;
ОформлениеСтроки.Ячейки.ВЗаказахПоставщику.Значение = КолВЗаказахПоставщику;

КонецПроцедуры

Чудный справочник, очень быстро открывается и прокручивается. Приходится ждать по 20 секунд)))

KingOfShit, 14 Января 2010

Комментарии (44)

1C / Говнокод #2409

−213

1
2
3
4
5

Если Пользователь.Родитель.КонтрольРазмещения = Истина Тогда
	Возврат Истина;
Иначе
	Возврат Ложь;
КонецЕсли;

Лёгких путей не бывает :)