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

    Всего: 3

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

    −13

    1. 1
    2. 2
    3. 3
    ...
    ТабличныйДокумент.Вывести(Отчеты[Сред(Лев(ЭтаФорма.ИмяФормы, СтрНайти(ЭтаФорма.ИмяФормы, ".Форма.") - 1), 7)].ПолучитьМакет(Сред(ЭтаФорма.ИмяФормы, СтрНайти(ЭтаФорма.ИмяФормы, "ФормаОтчета")) + "_" + Раздел.ИмяСтраницы));
    ...

    Типовая ЗУП 3.0.25.150, модуль ФОРМЫ регл. отчета 6-НДФЛ.

    SkyHunter, 22 Марта 2017

    Комментарии (2)
  3. 1C / Говнокод #19040

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

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

    SkyHunter, 18 Ноября 2015

    Комментарии (6)
  4. 1C / Говнокод #18802

    −94

    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
    Функция ПолучитьДоговорКонтрагента(Организация,Подразделение,Контрагент) Экспорт
    	
    	 ЗапросДоговор = Новый Запрос;
    		ЗапросДоговор.Текст = "ВЫБРАТЬ
    		               |	ДоговорыКонтрагентов.Ссылка
    		               |ИЗ
    		               |	Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
    		               |ГДЕ
    		               |	ДоговорыКонтрагентов.Организация = &Организация
    		               |	И ДоговорыКонтрагентов.Подразделение = &Подразделение
    		               |	И ДоговорыКонтрагентов.Владелец = &Владелец
    		               |
    		               |СГРУППИРОВАТЬ ПО
    		               |	ДоговорыКонтрагентов.Ссылка";
    		ЗапросДоговор.УстановитьПараметр("Организация",Организация);
    		ЗапросДоговор.УстановитьПараметр("Подразделение",Подразделение);
    		ЗапросДоговор.УстановитьПараметр("Владелец",Контрагент);
    		Результат = ЗапросДоговор.Выполнить();
    		Если НЕ Результат.Пустой() Тогда
    			Возврат Результат.Выбрать().Следующий();
    		Иначе
    			
    			Возврат Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
    			
    		КонецЕсли;
    	
    КонецФункции

    Вот вроде функция общего модуля называется ПолучитьДоговорКонтрагента, и ты, не заглядывая в неё, конечно же, ждёшь возврата ссылки на спр-к ДоговорыКонтрагентов, но нет!!

    SkyHunter, 02 Октября 2015

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