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

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

−140

1
2
3

Если (ШаблонПроводки.Наименование = "Распределять пропорционально расчетной базе") Тогда
	МожноПроводить = 0;
	Сообщить(НазваниеДока+"неверно указан шаблон проводки", "!");

Это так профессионально, сравнивать строки...

1_and_0, 24 Ноября 2010

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

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

−137

1
2
3
4
5
6
7
8
9

Перем ВидНДС;

.......................................................................................................................
	
	Если ВыбВидНДС = Перечисление.ВидыНДС.Реализация Тогда
		ВидНДС = Перечисление.ВидыНДС.Реализация;
	ИначеЕсли ВыбВидНДС = Перечисление.ВидыНДС.Авансы Тогда
		ВидНДС = Перечисление.ВидыНДС.Авансы;
	КонецЕсли;

ВыбВидНДС - реквизит формы.

antz, 19 Ноября 2010

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

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

−121

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

Процедура УстановкаНомераЛицевогоСчета()
	
	Запрос = Новый Запрос();
	Запрос.Текст =
	"ВЫБРАТЬ
	|	КВП_ЛицевыеСчета.Наименование
	|ИЗ
	|	Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета
	|ГДЕ
	|	(НЕ КВП_ЛицевыеСчета.ЭтоГруппа)";
	
	МаксНомер      = 0;
	Выборка        = Запрос.Выполнить().Выбрать();
	ВсегоВариантов = Выборка.Количество();
	ТекВариант     = 1;
	Пока Выборка.Следующий() Цикл
		Номер = ВыбратьТолькоЦифры(Выборка.Наименование);
		Если МаксНомер < Число(Номер) Тогда
			МаксНомер = Число(Номер);
		КонецЕсли;
		Состояние("Поиск максимального лицевого счета: " + ТекВариант + " / " + ВсегоВариантов);
		ТекВариант = ТекВариант + 1;
	КонецЦикла;
	
	МаксНомер = МаксНомер + 1;
	ИмяЛицевогоСчета = "л/с №" + Формат(МаксНомер, "ЧДЦ=0; ЧГ=0");
	
КонецПроцедуры

Процедура для присвоения Кода новому элементу справочника. Из одной серьезной официальной конфигурации.

nickkk, 19 Ноября 2010

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

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

−128

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

Родит=ДокР.Контрагент.Родитель; 
Если ПустоеЗначение(Родит.Телефон)=1 Тогда
    Родит1=Родит.Родитель;
	Если ПустоеЗначение(Родит1.Телефон)=1 Тогда
	    Родит2=Родит1.Родитель;
			Если ПустоеЗначение(Родит2.Телефон)=1 Тогда
			     Родит3=Родит2.Родитель;
				 ТЗДок.Тел=Родит3.Телефон;
			Иначе
		    	ТЗДок.Тел=Родит2.Телефон;
			КонецЕсли;        
	Иначе
	     ТЗДок.Тел=Родит1.Телефон;
	КонецЕсли;            
Иначе
	ТЗДок.Тел=Родит.Телефон;
КонецЕсли;

ingenuus, 24 Августа 2010

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

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

−128

1
2
3
4

ПолучитьСтроку();
Пока КоличествоСтрок() <> 0 Цикл
	УдалитьСтроку();
КонецЦикла;

Новый способ удаления всех строк из документа. Похоже, что разработчик не ведает о существовании метода УдалитьСтроки();

SSNick, 05 Августа 2010

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

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

−130

1
2
3

Если Конт.Сумма <> КонтСумма Тогда
    Конт.Сумма = КонтСумма;
КонецЕсли;

Встретил в типовой конфигурации одной из небольших фирм-франчайзи. Много думал ...

SSNick, 04 Августа 2010

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

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)

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