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

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

−168

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

Если СтрНС <> Неопределено Цикл
	Если СтрНС.Значение <> Справочники.Номенклатура.ПустаяСсылка() тогда
		Тост = ОстаткиПоСкладамУпр(СтрНС.Значение);
		Синхро = Истина;
		Если Тост[0].Остаток <> 0 тогда
			НаличиеНаСкладе = Истина;
		Конецесли;
	КонецЕсли;	
КонецЕсли;

//...

Если НаличиеНаСкладе Тогда
	// другой быдлокод
КонецЕсли;

Переменная НаличиеНаСкладе объявляется только один раз во всем модуле, в приведенном мною куске.
Угадай, в каком месте выпадает ошибка?

rull9ss, 12 Февраля 2014

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

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

−170

1
2
3
4
5

Если Источник.ПометкаУдаления <> Источник.ЭтотОбъект.Ссылка.ПолучитьОбъект().ПометкаУдаления Тогда
	
	// Действия
	
КонецЕсли;

Код в конфигурации клиента.
Условный цикл в подписке "Перед записью" документа.
Смысл в том, чтобы сравнить изменённую пометку удаления и текущую (хранящуюся в базе).
Следовало написать:

Источник.ПометкаУдаления <> Источник.Ссылка.ПометкаУдаления

Voittamaton, 07 Февраля 2014

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

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

−123

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

//***************************************************************************
Функция ИмяМесяца(Дата)
	
	Если ТипЗнч(Дата) = Тип("Дата") тогда
		НомерМесяца = Месяц(Дата);
		НомерГода = Год(Дата);
	Иначе		
		НомерМесяца = Число(Сред(Дата,5,2));	
		НомерГода = Число(Лев(Дата,4));	
	КонецЕсли;
	
	Если НомерМесяца = 1 тогда
		ИмяМесяца = "Январь";
	ИначеЕсли НомерМесяца = 1 тогда
		ИмяМесяца = "Январь";
	ИначеЕсли НомерМесяца = 2 тогда
		ИмяМесяца = "Февраль";   
	ИначеЕсли НомерМесяца = 3 тогда
		ИмяМесяца = "Март";   
	ИначеЕсли НомерМесяца = 4 тогда
		ИмяМесяца = "Апрель";
	ИначеЕсли НомерМесяца = 5 тогда
		ИмяМесяца = "Май";   
	ИначеЕсли НомерМесяца = 6 тогда
		ИмяМесяца = "Июнь";   
	ИначеЕсли НомерМесяца = 7 тогда
		ИмяМесяца = "Июль";
	ИначеЕсли НомерМесяца = 8 тогда
		ИмяМесяца = "Август";   
	ИначеЕсли НомерМесяца = 9 тогда
		ИмяМесяца = "Сентябрь";   
	ИначеЕсли НомерМесяца = 10 тогда
		ИмяМесяца = "Октябрь";
	ИначеЕсли НомерМесяца = 11 тогда
		ИмяМесяца = "Ноябрь";   
	ИначеЕсли НомерМесяца = 12 тогда
		ИмяМесяца = "Декабрь";
	КонецЕсли;
	
	Возврат ИмяМесяца + " " + Формат(НомерГода,"ЧГ=0");	
	
КонецФункции

Неделю умилялся и плакал от счастья=)

safer_bwd, 31 Января 2014

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

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

−134

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

Функция ПолучитьОбратнуюМетрику(Знач Метрика) Экспорт

	ТаблицаКоординат = СоздатьТаблицуКоординат();
	ПреобразоватьМетрикуВТаблицуКоординат(Метрика,ТаблицаКоординат);
	ТаблицаКоординат.Колонки.Добавить("ПорядковыйНомер");
	
	Сч = 1;
	Для каждого СтрокаТаблицаКоординат Из ТаблицаКоординат Цикл
		СтрокаТаблицаКоординат.ПорядковыйНомер = Сч;
		Сч = Сч + 1;
	КонецЦикла;
	
	ТаблицаКоординат.Сортировать("ПорядковыйНомер УБЫВ");
	
	ОбратнаяМетрика = "";
	ПреобразоватьТаблицуКоординатВМетрику(ТаблицаКоординат,ОбратнаяМетрика);
	Возврат ОбратнаяМетрика;

КонецФункции

TamerlanDE, 20 Декабря 2013

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

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

−104

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

Функция Дистанция(Откуда, Куда) Экспорт

	Пи = 3.1415926535897932;
	
	ОткудаШиротаВРадианах 	= Откуда.Широта * Пи / 180;
	ОткудаДолготаВРадианах 	= Откуда.Долгота * Пи / 180;
	КудаШиротаВРадианах 	= Куда.Широта * Пи / 180;
	КудаДолготаВРадианах 	= Куда.Долгота * Пи / 180;
	Аргумент				= Sin(КудаШиротаВРадианах) * Sin(ОткудаШиротаВРадианах) +
        Cos(КудаШиротаВРадианах) * Cos(ОткудаШиротаВРадианах) * Cos(КудаДолготаВРадианах - ОткудаДолготаВРадианах);
		
	Аргумент  = ?(Аргумент > 1, 1, Аргумент);
	Аргумент  = ?(Аргумент < -1, -1, Аргумент);
		
    Возврат Окр(6378000 * ACos(Аргумент));

КонецФункции

TamerlanDE, 20 Декабря 2013

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

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

−131

1
2
3
4
5

Процедура ОбработкаЗаполения(Основание)

	// Другой говнокод

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

Стажёр подошёл с вопросом, почему не обрабатывается ввод на основании, а до этого бился не менее часа.

Voittamaton, 03 Декабря 2013

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

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

−165

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

Запрос.Текст = ""
//...
ГДЕ
	ВЫБОР
		КОГДА ЕСТЬNULL(ВТМоделиПоставщика.КодМоделиПоставщика, "") = ""
			ТОГДА 0
		ИНАЧЕ 1
	КОНЕЦ = 0
//...

Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Если  СтрДлина(ВыборкаДетальныеЗаписи.КодМоделиПоставщика) <> 0 Тогда 
                //...
                КонецЕсли;
КонецЦикла;

Масло масляное. Захочешь нарочно такое придумать - не получится.

rull9ss, 20 Ноября 2013

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

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

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

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

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