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)