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

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

−165

1
2

...
Возврат ?(НЕ Запрос.Выполнить().Пустой(),Истина,Ложь);

maximilian6547s, 27 Марта 2014

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

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

−168

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

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

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

У меня нет слов.
НО(!!!) ... это работает как надо :D .

iMoxa, 19 Марта 2014

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

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)

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