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

    −126

    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
    ТовМат = РегистрыСведений.ТоварнаяМартица;
ГруппаД = Справочники.КлассификацияABC.НайтиПоНаименованию("Д").Ссылка;
ТЗНомен = Запрос.Выполнить().Выгрузить();Ит=0;тСерт = Справочники.СертификатыСоответствия.ПустаяСсылка();
ТЗНомен.Сортировать("Производитель,Сертификат,Номенклатура");
тПроизвод="";
Для Каждого стр Из ТзНомен Цикл
	Если Объект.ИсключитьТоварыГруппыД = Истина Тогда
		Если стр.Номенклатура.КлассABC = ГруппаД Тогда
			Продолжить;
		КонецЕсли;	
	КонецЕсли;	

	Если стр.Номенклатура.ЭтоГруппа = Ложь Тогда
		Если НаличиеВМатрице = истина Тогда
			НаборД = ТовМат.СоздатьНаборЗаписей();
			// устанавливаем параметры отбора по полному набору Измерений регистра:
			НаборД.Отбор.нОменклатура.Установить(стр.Номенклатура.Ссылка);
			НаборД.Прочитать();
			Если НаборД.Количество() = 0 Тогда
				Продолжить;
			Конецесли;	
		КонецЕсли;

    Бывший программист из нашей конторы отбирает строки таблицы с номенклатурой, по которой отсутствуют записи в регистре сведений, используя при этом другие "удивительные приемы программирования"... Ушел на повышение в саму 1С)))

    Запостил: GORYNY4, 12 Сентября 2014

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

    • ava Jeyrico 12.09.2014 16:04 # +3

      Ждем в ERP 2.1
      Ответить

    • ava eth0 12.09.2014 17:42 # +3

      > ТоварнаяМартица
      В марте дело было?

      > нОменклатура
      Правильно - номенклатУра.

      Можно было написать правильный запрос и не заниматься херотой.
      Ответить

    • ava guest 25.11.2014 08:26 # 0

      Это декомпозиционный паттерн
      Ответить

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