1. Список говнокодов пользователя HomoAlbus

    Всего: 7

  2. 1C / Говнокод #19618

    −94

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Для Каждого Ст Из ВремяФактическое Цикл
	ВремяПрибытияНаЗагрузкуДляРасчета = ?(МаршрутыТаблица[Ст.НомерСтроки-1].ДатаПогрузкиПлан >= Ст.ВремяПрибытияНаЗагрузку,МаршрутыТаблица[Ст.НомерСтроки-1].ДатаПогрузкиПлан,Ст.ВремяПрибытияНаЗагрузку);
	ВремяПрибытияНаВыгрузкуДляРасчета = ?(?(ЗначениеЗаполнено(МаршрутыТаблица[Ст.НомерСтроки-1].ДатаРазгрузкиПлан),МаршрутыТаблица[Ст.НомерСтроки-1].ДатаРазгрузкиПлан,Ст.ВремяПрибытияНаВыгрузку) >= Ст.ВремяПрибытияНаВыгрузку,?(ЗначениеЗаполнено(МаршрутыТаблица[Ст.НомерСтроки-1].ДатаРазгрузкиПлан),МаршрутыТаблица[Ст.НомерСтроки-1].ДатаРазгрузкиПлан,Ст.ВремяПрибытияНаВыгрузку),Ст.ВремяПрибытияНаВыгрузку);
	ВремяНаПогрузке = -1*(ВремяПрибытияНаЗагрузкуДляРасчета - Ст.ВремяУбытияСЗагрузки)/60;//В минутах
	ВремяНаВыгрузке = -1*(ВремяПрибытияНаВыгрузкуДляРасчета - Ст.ВремяУбытияСВыгрузки)/60;//В минутах
	ОбщееВремя.Добавить(ВремяНаПогрузке+ВремяНаВыгрузке);
КонецЦикла;

    Когда любишь тернарные операторы больше чем маму и президента.

    HomoAlbus, 13 Марта 2016

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

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

    −92

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    Если НЕ(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента=""И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тКонтрагент="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="" И тКоличествоДней="" И тСуммаЭтоПроцент="") Тогда Запрос.Текст=Запрос.Текст+"
	|ГДЕ";
	КонецЕсли;
	Если НЕ тСостояниеЗаписи="" Тогда Запрос.Текст=Запрос.Текст+"
	| опмИзмененияСтандартныхУсловийОплаты.СостояниеЗаписи "+тЗнакСостоянияЗаписи+?(тЗнакСостоянияЗаписи="В"," (","")+"&СостояниеЗаписи"+?(тЗнакСостоянияЗаписи="В",")","");КонецЕсли;  // опм 04.05.2015 доб. ?(тЗнакСостоянияЗаписи="В"," (","")   +?(тЗнакСостоянияЗаписи="В",")","")
	Если НЕ тРегистратор="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.теРегистратор "+тЗнакРегистратора+" &Регистратор";
	КонецЕсли;
	Если НЕ тДоговорКонтрагента="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДоговорКонтрагента "+тЗнакДоговораКонтрагента+" &ДоговорКонтрагента";
	КонецЕсли;
	Если НЕ тКонтрагент="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДоговорКонтрагента.Владелец "+тЗнакКонтрагента+?(тЗнакКонтрагента="В"," (","")+"&Контрагент"+?(тЗнакКонтрагента="В",")","");   // опм 04.05.2015 доб. ?(тЗнакКонтрагента="В"," (","")  +?(тЗнакКонтрагента="В",")","")
    КонецЕсли;
	Если НЕ тДокументОткрытияКредитнойЛинии="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДокументОткрытияКредитнойЛинии "+тЗнакДокументаОткрытияКредитнойЛинии+" &ДокументОткрытияКредитнойЛинии";
	КонецЕсли;
	Если НЕ тВидЗаписи="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ВидЗаписи "+тЗнакВидаЗаписи+" &ВидЗаписи";
	КонецЕсли;
	Если НЕ тВидНачала="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ВидНачала "+тЗнакВидаНачала+" &ВидНачала";
	КонецЕсли;
	Если НЕ тПериод="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.Период "+тЗнакПериода+" &тПериод";
	КонецЕсли;
	Если НЕ тРазРегистратор="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.РазРегистратор "+тЗнакРазРегистратора+" &РазРегистратор";
	КонецЕсли;
	Если НЕ тДатаНачала="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДатаНачала "+тЗнакДатыНачала+" &ДатаНачала";
	КонецЕсли;
	Если НЕ тДатаОкончания="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДатаОкончания "+тЗнакДатыОкончания+" &ДатаОкончания";
	КонецЕсли;
	Если НЕ тСумма="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.Сумма "+тЗнакСуммы+" &Сумма";
	КонецЕсли;
	Если НЕ тКоличествоДней="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.КоличествоДней "+тЗнакКоличестваДней+" &КоличествоДней";
	КонецЕсли;
	Если НЕ тСуммаЭтоПроцент="" Тогда Запрос.Текст=Запрос.Текст+"
	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="" И тКоличествоДней="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.СуммаЭтоПроцент "+тЗнакСуммыЭтоПроцент+" &СуммаЭтоПроцент";
	КонецЕсли;

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

    HomoAlbus, 12 Ноября 2015

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

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

    −99

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    Функция ПолучитьПолныйСписокКонтрагентовОтбора(текКонтрагентыОтбора) // релиз 3.0
	    Запрос = Новый Запрос;
	    Запрос.Текст = 
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
	|	Контрагент.Ссылка КАК Ссылка1
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагент
	|ГДЕ
	|	Контрагент.ЭтоГруппа = ЛОЖЬ И (";                                                                               ы=0;
	Для каждого ЭлСпОтбКг из текКонтрагентыОтбора Цикл текКг=ЭлСпОтбКг.Значение;
		Если ТипЗнч(текКг)=Тип("СправочникСсылка.Контрагенты") И НЕ текКг=Справочники.Контрагенты.ПустаяСсылка() Тогда  ы=ы+1;
			Если текКг.ЭтоГруппа Тогда Запрос.Текст = Запрос.Текст +" 
	|	"+?(ы=1,"","ИЛИ ")+"Контрагент.Ссылка В ИЕРАРХИИ(&тКг"+Строка(ы)+")";
            Иначе                      Запрос.Текст = Запрос.Текст +"
	|	"+?(ы=1,"","ИЛИ ")+"Контрагент.Ссылка = &тКг"+Строка(ы);
	        КонецЕсли;	               
	    Запрос.УстановитьПараметр("тКг"+Строка(ы),текКг);
	    КонецЕсли;	
	КонецЦикла;	Запрос.Текст = Запрос.Текст +"
    |)";
 	        РезСп=Новый СписокЗначений;
	                                текТЗрег=Запрос.Выполнить().Выгрузить();
	        РезСп.ЗагрузитьЗначения(текТЗрег.ВыгрузитьКолонку("Ссылка1"));
	Возврат РезСп;		 
КонецФункции

    HomoAlbus, 11 Ноября 2015

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

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

    −96

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    Функция мПолучитьДанныеПоОтсрочкеОплатыРТУнаДт(тРТУ, тДт, тНедоплатаПоРТУ, теРегЗапись="", текЗаказыПокупателей="", текЗнакЗаказыПокупателей="=", текОтрицаниеЗнакаЗаказыПокупателей=Ложь, тРазрешенныхДнейОтсрочки=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)

  6. 1C / Говнокод #18894

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    Если не ДанныеАкта.ФормироватьБухПроводку Тогда
	Выборка = Результат[1].Выбрать();
	Пока Выборка.Следующий() Цикл
		СуммаВал = СуммаВал + Выборка.СуммаУслуги;
		//тут делаем всякое с выборкой
	КонецЦикла;
КонецЕсли;

Если ДанныеАкта.ФормироватьБухПроводку Тогда
	//тут делаем движения по счетам БУ
Иначе
	тз = Результат[1].Выгрузить();
	Для каждого стрТЗ Из тз Цикл
		//тут делаем тоже, что и с выборкой, только теперь с таблицей значений О_о
	КонецЦикла;
КонецЕсли;

    Смотрю одно решение для страховых компаний, полностью на поддержке...

    HomoAlbus, 20 Октября 2015

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

  7. 1C / Говнокод #16833

    −127

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    теСтрокаТЗ_двухТЧ=ТЗ_двухТЧ_РТиУ.Найти(СокрЛП(ЗначениеВСтрокуВнутр(теСтрокаТЧ.Номенклатура))+"++"+Строка(ё)+"++"+Строка(теСтрокаТЧ.НомерСтроки),"Ид");
		 теСтрокаТЗ_НДС_БезТекРТиУ=ТЗ_НДС_БезТекРТиУ.Найти(теСтрокаТЧ.Номенклатура);
	 	 ТЗостНмЗаказаБезТекРТиУ=ПолучитьТЗ_НоменклатурыЗаказа(текущСделка, РТиУобъ.Ссылка, ТекДата, ТекДата, ДокиЗаказаПлан, теСтрокаТЧ.Номенклатура);
	Если ТЗостНмЗаказаБезТекРТиУ.Количество()>0 И ТЗостНмЗаказаБезТекРТиУ.Итог("СуммаКолвоПоНм")=ТЗотбора1.Итог("КолвоВ_ЕдХр") Тогда	
             РазностьСум=ТЗостНмЗаказаБезТекРТиУ.Итог("СуммаСуммВзаиморасчПоНм")-(ТЗотбора1.Итог("Сумма")+?(текущСуммаВключаетНДС,0,ТЗотбора1.Итог("СуммаНДС")));
		Если РазностьСум<>0 И ПолучитьМодульЧисла(РазностьСум)<=Константы.опмМаксимальноеКорректируемоеВторымСпособомОтклонениеСуммОтгрузкиОтЗаказа.Получить() Тогда 
	    теСтрокаТЧ.Сумма=теСтрокаТЧ.Сумма+РазностьСум*ЗнакТипаДок;    теСтрокаТЗ_двухТЧ.Сумма=теСтрокаТЗ_двухТЧ.Сумма+РазностьСум;
	    КонецЕсли;
		Если ВсеОтгрузкиВВалютеЗаказа И НЕ теСтрокаТЗ_НДС_БезТекРТиУ=Неопределено Тогда
			     РазностьСумНДС=теСтрокаТЗ_НДС_БезТекРТиУ.СуммаНДС-ТЗотбора1.Итог("СуммаНДС");
		    Если РазностьСумНДС<>0 И ПолучитьМодульЧисла(РазностьСумНДС)<=Константы.опмМаксимальноеКорректируемоеВторымСпособомОтклонениеСуммОтгрузкиОтЗаказа.Получить() Тогда 
	    теСтрокаТЧ.СуммаНДС=теСтрокаТЧ.СуммаНДС+РазностьСумНДС*ЗнакТипаДок;    теСтрокаТЗ_двухТЧ.СуммаНДС=теСтрокаТЗ_двухТЧ.СуммаНДС+РазностьСумНДС;
	            Если НЕ текущСуммаВключаетНДС Тогда
	    теСтрокаТЧ.Сумма=теСтрокаТЧ.Сумма      -РазностьСумНДС*ЗнакТипаДок;    теСтрокаТЗ_двухТЧ.Сумма=теСтрокаТЗ_двухТЧ.Сумма      -РазностьСумНДС;
                КонецЕсли;
	        КонецЕсли;
	    КонецЕсли;
		Если ЗаказПокВыполненПолностью Тогда СтрокаТЗпоНм=ТЗ_НепоставленнойНмЗаказа.Найти(теСтрокаТЧ.Номенклатура);
			Если                          НЕ СтрокаТЗпоНм=Неопределено Тогда
		   ТЗ_НепоставленнойНмЗаказа.Удалить(СтрокаТЗпоНм);
	        КонецЕсли;
	    КонецЕсли;
    Иначе ЗаказПокВыполненПолностью=Ложь;
    КонецЕсли;

    HomoAlbus, 10 Октября 2014

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

  8. 1C / Говнокод #13282

    −169

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    // Функция возвращает округленное значение общего количества продуктов питания.
// 
// Параметры:
//	Число - число, которое необходимо округлить.
//	Порядок - число, порядок округления.

Функция УППБУ_Округлить(Число, ПорядокОкругления) Экспорт
	
	Порядок = Число(Строка(ПорядокОкругления));
	
	..........
	
КонецФункции

    Тиражное решение от одного из партнеров...

    HomoAlbus, 02 Июля 2013

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