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

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

−119.4

1
2
3
4
5

Для й = 1 По КонДата-НачДата+1 Цикл
        ТекДата = НачДата+й-1;
        
        ДокТ.ВыбратьДокументы(ТекДата, ТекДата);
        Пока ДокТ.ПолучитьДокумент() = 1 Цикл

Копаясь в самописной конфе, с которой сейчас работаю, дописываю, и усердно исправляю чей-то быдлокод, временами нахожу просто уникальные творения.
Пожалуй это творение - вершина извращенной фантазии)
Думаю комментарии излишни)) автор перебирает дни, а потом отдельно по каждому дню делает выборку событий

Lewkee, 31 Марта 2010

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

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

−133.2

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

ТаблицаДоговоров = ДоговораМенеджера.Выгрузить();
ТаблицаДоговоров.Свернуть("Договор");

		
ЗапросПоДоговорам = новый Запрос;
ЗапросПоДоговорам.УстановитьПараметр("НаДату", Дата);
ЗапросПоДоговорам.УстановитьПараметр("СписокДоговоров", ТаблицаДоговоров.ВыгрузитьКолонку("Договор"));

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

так вот пишет наш ведущий программист. Зачем сворачивать???

Sameccc, 16 Марта 2010

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

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

−131.6

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

ТаблицаДоговоров = ДоговораМенеджера.Выгрузить();
ТаблицаДоговоров.Свернуть("Договор");

		
ЗапросПоДоговорам = новый Запрос;
ЗапросПоДоговорам.УстановитьПараметр("НаДату", Дата);
ЗапросПоДоговорам.УстановитьПараметр("СписокДоговоров", ТаблицаДоговоров.ВыгрузитьКолонку("Договор"));

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

так вот пишет наш ведущий программист. Зачем сворачивать???

Sameccc, 16 Марта 2010

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

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)

Говнокод: по колено в коде.