1. 1C / Говнокод #19404

    −101

    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
    ЗапросУсл= Новый Запрос;
    ЗапросУсл.Текст=" ВЫБРАТЬ бит_УслугиЖКХ.Ссылка,
    |                       бит_УслугиЖКХ.Код,
    |                       бит_УслугиЖКХ.Наименование,
    |                       бит_УслугиЖКХ.Приоритет,
    |                       бит_УслугиЖКХ.ГруппаУслуги
    | ИЗ Справочник.бит_УслугиЖКХ КАК бит_УслугиЖКХ
    | ГДЕ бит_УслугиЖКХ.ПометкаУдаления=Ложь";
    	  
    tzУслуги=ЗапросУсл.Выполнить().Выгрузить(); 
    	 	 
    kolFind="";
    kolFind=мТаблицаПечати.Колонки.Найти("ГруппаУслуги");
    Если СокрЛП(Строка(kolFind))="" тогда
    	  мТаблицаПечати.Колонки.Добавить("ГруппаУслуги");
    КонецЕсли;
    	
     Для Каждого str_TP  Из мТаблицаПечати  Цикл 
     	//Сообщить(Строка(str_TP.Приоритет)+"    "+Строка(str_TP.Услуга));
    	 ncv="";
    	ncv= tzУслуги.Найти(str_TP.Услуга, "Ссылка" );
    	если СокрЛП(Строка(ncv))<>"" тогда
    		  str_TP.ГруппаУслуги=СокрЛП(Строка(ncv.ГруппаУслуги));
    	 конецесли;
    КонецЦикла;

    Так и хочется расстрелять этих козлов, но у них на сайте написано, что их более 5000 и они, как зараза, проникли в 43 города, в том числе и к буржуям.
    Ребя, скиньтесь на патроны, Greenpeace нас не забудет!

    Запостил: ivan_0110, 05 Февраля 2016

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

    • Походу кого-то задело за живое - заминусовали. Наверное, авторы подвалили.
      Ответить
    • На 5000 чел нужна большая куча...э...патронов.
      Ответить
      • Можно их пригласить на конференцию с чаем и печеньками.
        Ответить
        • немного пургена в чай сделает эту конференцию динамичней.
          Ответить
          • тогда они засрут и все остальные конфигурации
            Ответить
    • мерзкая конторка
      Ответить
    • Я представляю как любит этот программист переключение раскладки - прям хлебом не корми дай попереключать.
      Ответить
    • >ЗапросУсл.Текст=" ВЫБРАТЬ бит_УслугиЖКХ.Ссылка,
      | бит_УслугиЖКХ.Код,
      | бит_УслугиЖКХ.Наименование,
      | бит_УслугиЖКХ.Приоритет,
      | бит_УслугиЖКХ.ГруппаУслуги
      | ИЗ Справочник.бит_УслугиЖКХ КАК бит_УслугиЖКХ
      | ГДЕ бит_УслугиЖКХ.ПометкаУдаления=Ложь";

      А это как называется? AssQL ?
      Ответить

    Добавить комментарий