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

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

−98

Перем ОписаниеФормы;
	
	ОписаниеФормы = Новый Структура;
	ОписаниеФормы.Вставить("ТипОбъектаФормы", Неопределено);
	ОписаниеФормы.Вставить("ТипФормы", Неопределено);
	ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
	ОписаниеФормы.Вставить("СсылкаНаФорму", ФормаКлиента);
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ОбработкаОбъект)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.ОбработкаОбъект.Ссылка);
		ОписаниеФормы.Вставить("ТипФормы", "Обработка");
	Исключение
	КонецПопытки;
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ДокументСписок)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
		ОписаниеФормы.Вставить("ТипФормы", " ДокументСписок");
	Исключение
	КонецПопытки;
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ДокументОбъект)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.ДокументОбъект.Ссылка);
		ОписаниеФормы.Вставить("ТипФормы", "Документ");
	Исключение
	КонецПопытки;
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.СправочникСписок)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
		ОписаниеФормы.Вставить("ТипФормы", "СправочникСписок");
	Исключение
	КонецПопытки;
	
	Попытка
		ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.СправочникОбъект)).Имя);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.СправочникОбъект.Ссылка);
		ОписаниеФормы.Вставить("ТипФормы", "Справочник");
	Исключение
	КонецПопытки;
	
	Попытка	//если в самой форме описан её тип...
		ОписаниеФормы.Вставить("ТипОбъектаФормы", ФормаКлиента.ТипОбъектаФормы);
		ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.СсылкаНаОбъектФормы);
		ОписаниеФормы.Вставить("ТипФормы", ФормаКлиента.ТипФормы);
	Исключение
	КонецПопытки;
	
	Возврат ОписаниеФормы;

Более "эвристического" метода чем N попыток аффтар видимо придумать не смог. Всё бы ничего, пытайся на здоровье, просто есть люди которые иногда включают режим отладки "остановка по ошибке"... бесит...

levxxx, 27 Ноября 2015

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

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

−37

ФормаВыбора = Справочники.СпецификацииНоменклатуры.ПолучитьФормуВыбораГруппы();
	Родитель = ФормаВыбора.ОткрытьМодально();

	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("Родитель",Сред(Справочники.СпецификацииНоменклатуры.НайтиПоНаименованию(Родитель),1,50));
	Запрос.УстановитьПараметр("Материалы",Справочники.Номенклатура.НайтиПоНаименованию("Материалы"));
	Запрос.УстановитьПараметр("Активная",Истина);
	Запрос.УстановитьПараметр("КодВерсии","00001");
	Запрос.Текст = "ВЫБРАТЬ
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Количество / СпецификацииНоменклатурыВыходныеИзделия.Количество * 1000 КАК Количество,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.ВидНоменклатуры.Ссылка КАК ВидНоменклатуры,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Артикул КАК Обозначение,
	|	ВЫБОР
	|		КОГДА (НЕ ПОДСТРОКА(СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД, 1, 10) = ""          "")
	|			ТОГДА СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД
	|		ИНАЧЕ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Наименование
	|	КОНЕЦ КАК Наименование,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Комментарий КАК Комментарий,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Наименование КАК ВыходнаяНоменклатура1,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.НаименованиеПолное КАК ВыходнаяНоменклатура,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Родитель.Родитель КАК Родитель,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Артикул КАК ВыходнаяНоменклатура1Артикул,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Родитель КАК Родитель1,
	|	СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Родитель КАК Родитель2,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД КАК НаименованиеВКД,
	|	СпецификацииНоменклатурыВыходныеИзделия.Количество КАК Количество1
	|ИЗ
	|	Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК СпецификацииНоменклатурыИсходныеКомплектующие
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.ВыходныеИзделия КАК СпецификацииНоменклатурыВыходныеИзделия
	|		ПО СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Ссылка = СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Ссылка
	|ГДЕ
	|	(СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Родитель.Родитель.Ссылка = &Материалы)
	|	И ПОДСТРОКА(СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Родитель.Наименование, 1, 50) = &Родитель
	|	И ПОДСТРОКА(СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Родитель.Наименование, 1, 50) = &Родитель
	|	И СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Активная = &Активная
	|	И СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.КодВерсии = &КодВерсии";
	
	//Отладка для таблицы
	//Результат1 = Запрос.Выполнить().Выгрузить();
	//Результат1.ВыбратьСтроку();
	//Возврат;
	Результат = Запрос.Выполнить();
	Возврат Результат;

Судя по коду "разработчик" был не сильно много знаком с программированием в 1С.

KDE, 26 Ноября 2015

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

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

−96

Если Не ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение = Справочники.ОбъектАренды.ПустаяСсылка() 
	   и Не ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение = Справочники.Подразделения.ПустаяСсылка() Тогда
		 Запрос.Текст = Запрос.Текст + "
          		|	И ДоговорыКонтрагентов.Подразделение = &Подразделение
               		|	И ДоговорыКонтрагентов.ОбъектАренды В ИЕРАРХИИ(&ОбъектАренды)";
		 Запрос.УстановитьПараметр("ОбъектАренды", ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение);
		 Запрос.УстановитьПараметр("Подразделение", ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение);
	   ИначеЕсли ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение = Справочники.ОбъектАренды.ПустаяСсылка() 
	   и Не ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение = Справочники.Подразделения.ПустаяСсылка() Тогда
		 Запрос.Текст = Запрос.Текст + " И ДоговорыКонтрагентов.Подразделение = &Подразделение";
               Запрос.УстановитьПараметр("Подразделение", ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение);
	   ИначеЕсли Не ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение = Справочники.ОбъектАренды.ПустаяСсылка() 
	   и  ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение = Справочники.Подразделения.ПустаяСсылка() Тогда
		 Запрос.Текст = Запрос.Текст + " И ДоговорыКонтрагентов.ОбъектАренды В ИЕРАРХИИ(&ОбъектАренды)";
		 Запрос.УстановитьПараметр("ОбъектАренды", ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение);
							 
КонецЕсли;

Здравствуйте, дети! Сегодня мы с вами будем учиться делать отборы в отчётах.

SkyHunter, 18 Ноября 2015

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

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

−95

НаименованиеУзла = Константы.ТБ_НаименованиеУзла.Получить();
УзелОбмена = ПланыОбмена.Обмен_ТБ.НайтиПоНаименованию(НаименованиеУзла);

Франч, крупный, дорогой, известный. Код из доработки для крупной компании.... Нет слов.

portowyi, 16 Ноября 2015

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

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

−92

Если НЕ(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента=""И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тКонтрагент="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="" И тКоличествоДней="" И тСуммаЭтоПроцент="") Тогда Запрос.Текст=Запрос.Текст+"
	|ГДЕ";
	КонецЕсли;
	Если НЕ тСостояниеЗаписи="" Тогда Запрос.Текст=Запрос.Текст+"
	| опмИзмененияСтандартныхУсловийОплаты.СостояниеЗаписи "+тЗнакСостоянияЗаписи+?(тЗнакСостоянияЗаписи="В"," (","")+"&СостояниеЗаписи"+?(тЗнакСостоянияЗаписи="В",")","");КонецЕсли;  // опм 04.05.2015 доб. ?(тЗнакСостоянияЗаписи="В"," (","")   +?(тЗнакСостоянияЗаписи="В",")","")
	Если НЕ тРегистратор="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.теРегистратор "+тЗнакРегистратора+" &Регистратор";
	КонецЕсли;
	Если НЕ тДоговорКонтрагента="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДоговорКонтрагента "+тЗнакДоговораКонтрагента+" &ДоговорКонтрагента";
	КонецЕсли;
	Если НЕ тКонтрагент="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДоговорКонтрагента.Владелец "+тЗнакКонтрагента+?(тЗнакКонтрагента="В"," (","")+"&Контрагент"+?(тЗнакКонтрагента="В",")","");   // опм 04.05.2015 доб. ?(тЗнакКонтрагента="В"," (","")  +?(тЗнакКонтрагента="В",")","")
    КонецЕсли;
	Если НЕ тДокументОткрытияКредитнойЛинии="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДокументОткрытияКредитнойЛинии "+тЗнакДокументаОткрытияКредитнойЛинии+" &ДокументОткрытияКредитнойЛинии";
	КонецЕсли;
	Если НЕ тВидЗаписи="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ВидЗаписи "+тЗнакВидаЗаписи+" &ВидЗаписи";
	КонецЕсли;
	Если НЕ тВидНачала="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ВидНачала "+тЗнакВидаНачала+" &ВидНачала";
	КонецЕсли;
	Если НЕ тПериод="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.Период "+тЗнакПериода+" &тПериод";
	КонецЕсли;
	Если НЕ тРазРегистратор="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.РазРегистратор "+тЗнакРазРегистратора+" &РазРегистратор";
	КонецЕсли;
	Если НЕ тДатаНачала="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДатаНачала "+тЗнакДатыНачала+" &ДатаНачала";
	КонецЕсли;
	Если НЕ тДатаОкончания="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДатаОкончания "+тЗнакДатыОкончания+" &ДатаОкончания";
	КонецЕсли;
	Если НЕ тСумма="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.Сумма "+тЗнакСуммы+" &Сумма";
	КонецЕсли;
	Если НЕ тКоличествоДней="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.КоличествоДней "+тЗнакКоличестваДней+" &КоличествоДней";
	КонецЕсли;
	Если НЕ тСуммаЭтоПроцент="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="" И тКоличествоДней="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.СуммаЭтоПроцент "+тЗнакСуммыЭтоПроцент+" &СуммаЭтоПроцент";
	КонецЕсли;

И так далее на 122 строки.

HomoAlbus, 12 Ноября 2015

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

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

−99

Функция ПолучитьПолныйСписокКонтрагентовОтбора(текКонтрагентыОтбора) // релиз 3.0
	    Запрос = Новый Запрос;
	    Запрос.Текст = 
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
	|	Контрагент.Ссылка КАК Ссылка1
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагент
	|ГДЕ
	|	Контрагент.ЭтоГруппа = ЛОЖЬ И (";                                                                               ы=0;
	Для каждого ЭлСпОтбКг из текКонтрагентыОтбора Цикл текКг=ЭлСпОтбКг.Значение;
		Если ТипЗнч(текКг)=Тип("СправочникСсылка.Контрагенты") И НЕ текКг=Справочники.Контрагенты.ПустаяСсылка() Тогда  ы=ы+1;
			Если текКг.ЭтоГруппа Тогда Запрос.Текст = Запрос.Текст +" 
	|	"+?(ы=1,"","ИЛИ ")+"Контрагент.Ссылка В ИЕРАРХИИ(&тКг"+Строка(ы)+")";
            Иначе                      Запрос.Текст = Запрос.Текст +"
	|	"+?(ы=1,"","ИЛИ ")+"Контрагент.Ссылка = &тКг"+Строка(ы);
	        КонецЕсли;	               
	    Запрос.УстановитьПараметр("тКг"+Строка(ы),текКг);
	    КонецЕсли;	
	КонецЦикла;	Запрос.Текст = Запрос.Текст +"
    |)";
 	        РезСп=Новый СписокЗначений;
	                                текТЗрег=Запрос.Выполнить().Выгрузить();
	        РезСп.ЗагрузитьЗначения(текТЗрег.ВыгрузитьКолонку("Ссылка1"));
	Возврат РезСп;		 
КонецФункции

HomoAlbus, 11 Ноября 2015

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

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

−96

Функция мПолучитьДанныеПоОтсрочкеОплатыРТУнаДт(тРТУ, тДт, тНедоплатаПоРТУ, теРегЗапись="", текЗаказыПокупателей="", текЗнакЗаказыПокупателей="=", текОтрицаниеЗнакаЗаказыПокупателей=Ложь, тРазрешенныхДнейОтсрочки=0, тМаксДеньПогашения="", КЛ_тРТУ="" , тРТУ_Дата="", тСтрокаТЗотчета, УровеньПоЕжеМесКва=0) // релиз 3.3 доб. , тСтрокаТЗотчета , УровеньПоЕжеМесква=0  // релиз 3.1 доб. , тРТУ_Дата=""
	                        текРТУ_Дата=?(ТипЗнч(тРТУ_Дата)=Тип("Дата") И НЕ тРТУ_Дата='00010101', тРТУ_Дата, тРТУ.Дата); // релиз 3.1 доб.
//...	
	КЛ_тРТУ=теРегЗапись.теРегистратор; тЕстьЕжемес=теРегЗапись.ДеньПогашенияМесяц>0   И теРегЗапись.ДеньПогашенияМесяц<=31;   
	                                     тЕстьЕжеква=теРегЗапись.ДеньПогашенияКвартал>0 И теРегЗапись.ДеньПогашенияКвартал<=31; 
		Если      тЕстьЕжемес И теРегЗапись.ДеньМесяцЭтоСледующийЗаОтгрузкой Тогда
тМаксДеньПогашения=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания);   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
		ИначеЕсли тЕстьЕжеква И Найти("/3/6/9/12/","/"+Строка(Месяц(текРТУ_Дата))+"/")<>0 И теРегЗапись.ДеньПогашенияКвартал>День(текРТУ_Дата) Тогда             // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
тМаксДеньПогашения=Мин(Дата(Год(текРТУ_Дата),Месяц(текРТУ_Дата),теРегЗапись.ДеньПогашенияКвартал), теРегЗапись.ДатаОкончания);                                   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                         
        ИначеЕсли тЕстьЕжемес И ?(Найти("/3/6/9/12/","/"+Строка(Месяц(текРТУ_Дата))+"/")=0,Истина,НЕ тЕстьЕжеква) И теРегЗапись.ДеньПогашенияМесяц>День(текРТУ_Дата)   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата 
                И НЕ(УровеньПоЕжеМесКва=1) Тогда  // релиз 3.3 доб. строку
тМаксДеньПогашения=Мин(Дата(Год(текРТУ_Дата),Месяц(текРТУ_Дата),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания); ПроверитьЕжеМесКваНаНеполноеПогашение(1,теРегЗапись,тСтрокаТЗотчета); // релиз 3.3 доб. ПроверитьЕжеМесКваНаНеполноеПогашение(1,теРегЗапись,тСтрокаТЗотчета); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                      
		ИначеЕсли тЕстьЕжеква И Найти("/3/6/9/12/","/"+Строка(Месяц(ДобавитьМесяц(текРТУ_Дата,1)))+"/")<>0 Тогда                                                 // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
тМаксДеньПогашения=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияКвартал), теРегЗапись.ДатаОкончания);ПроверитьЕжеМесКваНаНеполноеПогашение(2,теРегЗапись,тСтрокаТЗотчета); // релиз 3.3 доб. ПроверитьЕжеМесКваНаНеполноеПогашение(2,теРегЗапись,тСтрокаТЗотчета); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                         
        ИначеЕсли тЕстьЕжемес 
                И НЕ(УровеньПоЕжеМесКва=1 И тМаксДеньПогашения>=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания)) Тогда  // релиз 3.3 доб. строку

	//...
		
	                          тМаксДеньПогашения=НачалоДня(тМаксДеньПогашения);
	тРазрешенныхДнейОтсрочки=(тМаксДеньПогашения-НачалоДня(текРТУ_Дата))/(24*60*60); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
	Возврат                  (тМаксДеньПогашения-НачалоДня(тДт))/(24*60*60);
КонецФункции

Там, говорят, работы на час: посмотреть как в отчете данные собираются и перенести то, что надо. Открываю отчет, а там с два десятка вот таких функций и процедур. Орфография и пунктуация сохранена, жаль вся функция не поместилась.

HomoAlbus, 11 Ноября 2015

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

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

−96

Если ОтражатьВБухгалтерскомУчете = Истина Тогда
		Если Лев(Номер, 3) <> ТекПрефикс Тогда	Номер = "";	УстановитьНовыйНомер(); КонецЕсли;
	Иначе
		Если Лев(Номер, 3) = ТекПрефикс Тогда	Номер = "";	УстановитьНовыйНомер(); КонецЕсли;
КонецЕсли;

В чем смысл проверки на соответствие префиксу остается только гадать...

imxored, 10 Ноября 2015

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

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

−100

Если НЕ ЗначениеЗаполнено(Качество) Тогда
	Качество = Справочники.Качество.Новый;
КонецЕсли;
	
Если Качество = Справочники.Качество.Новый Тогда
	Качество = Справочники.Качество.ПустаяСсылка();
КонецЕсли;

Foxx, 03 Ноября 2015

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

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

−88

ЕСли ЗаявкаСсылка.таблица.Выгрузить().Колонки.Найти("СхемаЗакупки")  = Неопределено ТОгда
      ТекстЗапроса = 1/0;//вызываем Исключение
     КонецЕсли;

Пунктуация сохранена.

alexinzaz, 27 Октября 2015

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

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

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

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

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

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

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

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

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

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

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

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