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

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

−378

1
2
3
4

ПЦ = 0;
	Пока ПЦ<10000 Цикл
		ПЦ = ПЦ + 1;
	КонецЦикла;

1С 7.7 Регламентированные отчеты за 2 квартал 2010 года, "декларация НДС"
Зачем эта вставка, не понятно, может что бы помедленней работало?

roavenik, 08 Июля 2010

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

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

−133

1
2
3
4
5
6
7
8
9

Отбор = РегистрыСведений.БазыКонтрагентов.СрезПоследних(Дата,новый Структура("Производитель",Контрагент));
Если Отбор.Количество()>0 Тогда
	Для каждого ТекТМ из Отбор Цикл
		Элемент.списокВыбора.Очистить();		
		Для каждого ТекТМ из Отбор Цикл
			Элемент.списокВыбора.ДОбавить(ТекТМ.ТорговаяМарка,ТекТМ.ТорговаяМарка);
		КонецЦикла;	
	КонецЦикла;			
КонецЕсли;

Сложно сказать что хотел сделать этим автор :)
Может добавить последнюю строку из отбора? :D

PayneBLADE, 02 Июля 2010

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

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

−132

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

Если ДатаЧисло(НачДата) < 10 Тогда
	ЧислоДата = "0"+ДатаЧисло(НачДата);
Иначе
	ЧислоДата =  ДатаЧисло(НачДата);
КонецЕсли;

Если ДатаМесяц(НачДата) < 10 Тогда
	МесяцДата = "0"+ДатаМесяц(НачДата);
Иначе
	МесяцДата =  ДатаМесяц(НачДата);
КонецЕсли;			
		
Если ДатаЧисло(КонДата) < 10 Тогда
	КонЧислоДата = "0"+ДатаЧисло(КонДата);
Иначе
	КонЧислоДата =  ДатаЧисло(КонДата);
КонецЕсли;

Если ДатаМесяц(КонДата) < 10 Тогда
	КонМесяцДата = "0"+ДатаМесяц(КонДата);
Иначе                                                                     
	КонМесяцДата =  ДатаМесяц(КонДата);
КонецЕсли;			

/// ... где-то ниже
ЧислоДата+"/"+МесяцДата+"/"+ДатаГод(НачДата)+";"+КонЧислоДата+"/"+КонМесяцДата+"/"+ДатаГод(КонДата)

У меня это ужалось до 2х строк:
ДатаСтр = Строка(Формат(НачДата, "ДDDMMYYYY"));
ДатаСтр = СтрЗаменить(ДатаСтр, ".", "/");

just_geek, 01 Июля 2010

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

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

−124

1

ЭтоЗаказПокупателя = ?(ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ЗаказПокупателя"), Истина, Ложь);

мощь ))))

luns, 29 Апреля 2010

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

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

−128.6

1
2
3
4
5
6
7
8
9

Перем Да, Нет Экспорт;

Да  = 1;
Нет = 0;

и далее в кодах идет 
Если <что то>=Да Тогда
....
КонецЕсли;

сразу скажу....это все пишется в 1С 7.7

походу ребятки ПЕРЕКОДИЛИ в 8-ке и снова вернулись на 7-ку

s.komaroff, 08 Апреля 2010

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

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

−138.6

1
2
3
4
5
6
7

........
Перем Cont Экспорт;
........

Процедура ЗаписатьКонтекст(Конт) export
	Cont = Конт;
КонецПроцедуры

не знаю что автор хотел этим сказать
но обнаружили мы это у себя утром сегодня в конфе...а вчера не было))))

конфа комплексная...

s.komaroff, 07 Апреля 2010

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

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

−364.8

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

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

	Запись.Вставить("д1",);
	Запись.Вставить("д2",);
	Запись.Вставить("д3",);
	Запись.Вставить("д4",);
	Запись.Вставить("д5",);
	Запись.Вставить("д6",);
	Запись.Вставить("д7",);
	Запись.Вставить("д8",);
	Запись.Вставить("д9",);
	Запись.Вставить("д10",);
	Запись.Вставить("д11",);
	Запись.Вставить("д12",);
	Запись.Вставить("д13",);
	Запись.Вставить("д14",);
	Запись.Вставить("д15",);
	Запись.Вставить("д16",);
	Запись.Вставить("д17",);
	Запись.Вставить("д18",);
	Запись.Вставить("д19",);
	Запись.Вставить("д20",);
	Запись.Вставить("д21",);
	Запись.Вставить("д22",);
	Запись.Вставить("д23",);
	Запись.Вставить("д24",);
	Запись.Вставить("д25",);
    	Запись.Вставить("д26",);
	Запись.Вставить("д27",);
	Запись.Вставить("д28",);
	Запись.Вставить("д29",);
	Запись.Вставить("д30",);
    	Запись.Вставить("д31",);

Не ожидал от своего коллеги такого говнокода :) Хорошо, что в месяце не 100 дней ;_)
Данный код можно заменить
Для й = 1 По 31 Цикл
Запись.Вставить("д" + Строка(й));
КонецЦикла;

tiger_x, 06 Апреля 2010

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

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

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

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

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