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

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

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

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

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

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

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)

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