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

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 / Говнокод #14108

−168

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

Процедура ПараметрНачалоВыбора(Элемент, СтандартнаяОбработка)
	
	СтандартнаяОбработка=Ложь;
	ПараметрВладелец=Справочники.ПараметрыНоменклатуры.ПустаяСсылка();
	ТипМетаданных = Метаданные.НайтиПоТипу(ТипЗнч(Элемент.Значение));
	
	ОткрываемаяФорма  = ПолучитьФорму(ТипМетаданных.ПолноеИмя()+".ФормаВыбора");
	
	Отборы = Новый Структура("ТипПараметра,Подчинен",ВидНоменклатуры[Элемент.Имя],ПараметрВладелец);
	Для Каждого ЭлементСтруктуры из Отборы Цикл
		ЭлементОтбора = ОткрываемаяФорма.Отбор.Найти(ЭлементСтруктуры.Ключ);
		Если Не ЭлементОтбора = Неопределено  Тогда
			ЭлементОтбора.Установить(ЭлементСтруктуры.Значение);
		КонецЕсли;	
	КонецЦикла;	
	ОткрываемаяФорма.НачальноеЗначениеВыбора = Элемент.Значение;
	ОткрываемаяФорма.ОткрытьМодально(); 	
	ЭтотОбъект[Элемент.Имя] = ОткрываемаяФорма.ТекущийЭлемент.ТекущаяСтрока;
	ПараметрПриИзменении(Элемент);
	
КонецПроцедуры

Процедура НачалоВыбора в конфе одного из клиентов. Что-то смущает, но не могу понять что.

rull9ss, 19 Ноября 2013

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

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

−94

1
2
3

ЦЫТАТЫ ВЕЛИКЕХ ЛЮДЕЙ:
             "МАМКУ ТВАЙУ И БАЛ ЛАЛКА ЗАТРАЛИНАЯ)))0)0000))00"
                                         -PragramistOtBoga

PragramistOtBoga, 22 Октября 2013

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

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

−167

01
02
03
04
05
06
07
08
09
10

Попытка
	ДокументВозврата.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
Исключение
	Попытка
		ДокументВозврата.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
	Исключение
		Сообщить("Не удалось записать/провести документ возврата в ИБ " + ДокументВозврата, СтатусСообщения.ОченьВажное);
	КонецПопытки;
	ДокументВозврата.Записать(РежимЗаписиДокумента.Запись);
КонецПопытки;

Что делать, если не получилось провести документ? Правильно! Попробовать еще раз!
А потом еще и записать.
Для надежности.

zfilin, 15 Октября 2013

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

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

−167

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

Если ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003726") Тогда //000003726 - Автолюкс 
	СлужбаДоставкиВСМС = "AvtoLux";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003727") Тогда //000003727 - Гюнсел 
	СлужбаДоставкиВСМС = "GUNSEL";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003725") Тогда //000003725 - Интайм 
	СлужбаДоставкиВСМС = "InTime";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003826") Тогда //000003826 - Мист экспресс
	СлужбаДоставкиВСМС = "Meest-express";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003932") Тогда //000003932 - Киевские ведомости 
	СлужбаДоставкиВСМС = "Kievskie vedomosti"	
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003722") Тогда //000003722 - Новая почта
	СлужбаДоставкиВСМС = "Nova Poshta";	
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003729") Тогда //000003729 - Ночной экспресс
	СлужбаДоставкиВСМС = "Nochnoi express";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003728") Тогда //000003728 - САТ
	СлужбаДоставкиВСМС = "CAT";
//.....

КонецЕсли;

Почти универсальный способ транслитизации наименования контрагента.

rull9ss, 10 Сентября 2013

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

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

−102

1

С ПРАЗНИКАМ ШКАЛАТА!

сиводня празник у шкалаты как харашо што мне в школу ни нада я жы ни шкалата у миня дажы пачка сигарет есть магу фото кинуть если ни верите што я взрослый

PragramistOtBoga, 02 Сентября 2013

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

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

−172

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

Наименование=Выборка.Наименование;
АдресМестонахождения=Выборка.АдресМестонахождения;
ВнешнийОбъект=Выборка.ВнешнийОбъект;
ДатаВводаВЭксплуатацию=Выборка.ДатаВводаВЭксплуатацию;
ДатаВыпуска=Выборка.ДатаВыпуска;
ДоговорКонтрагента=Выборка.ДоговорКонтрагента;
ЗаводскойНомер=Выборка.ЗаводскойНомер;
Изготовитель=Выборка.Изготовитель;
ИнвентарныйНомер=Выборка.ИнвентарныйНомер;
КодРегиона=Выборка.КодРегиона;
КодПоОКОФ=Выборка.КодПоОКОФ;
Комментарий=Выборка.Комментарий;
Контрагент=Выборка.Контрагент;
КонтрагентИсполнительРемонта=Выборка.КонтрагентИсполнительРемонта;
НомерПаспорта=Выборка.НомерПаспорта;
ОбъектОсновныхСредств=Выборка.ОбъектОсновныхСредств;
Организация=Выборка.Организация;
ПлановыйГрафикРаботы=Выборка.ПлановыйГрафикРаботы;
Подразделение=Выборка.Подразделение;
ПодразделениеИсполнительРемонта=Выборка.ПодразделениеИсполнительРемонта;
Приоритет=Выборка.Приоритет;
РемонтнаяГруппа=Выборка.РемонтнаяГруппа;
СрокПолезногоИспользования=Выборка.СрокПолезногоИспользования;
ТехНомер=Выборка.ТехНомер;
ТипОборудования=Выборка.ТипОборудования;
ЭтоГруппаОбъектов=Выборка.ЭтоГруппаОбъектов;

"Архитектор" явно не был знаком с методом ЗаполнитьЗначенияСвойств()

doom2good, 31 Июля 2013

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

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

−174

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

Стр = ТЗОбщая.Добавить();
Стр.сотрудник = Выборка.сотрудник;
Стр.Результат = ВЫборка.Результат;
ИскомаяСтрока = ТЗСотрДатаПриема.Найти(Стр.сотрудник,"Сотрудник");
Если ИскомаяСтрока <> Неопределено Тогда
	месяц_ = Месяц(ИскомаяСтрока.ДатаПриемаНаРаботу);
	если месяц_ > 7 тогда  // чел принят после июля
		число_ = 12 - месяц_;  //кол-во отработанных месяцев
	иначе	  
		число_ = 6 ; 
	конецесли;	  
КонецЕсли;	
число_ = число_+ Месяц(ВыбДата) ;
если число_ >=12 тогда
	число_=12;
конецесли;	 
Стр.СреднийЗаработок = Окр(ВЫборка.Результат/29.4/число_,2);

Вот так у нас считают средний заработок за последний год)))

doom2good, 17 Июля 2013