Бухгалтерия / Говнокод #16685 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 GORYNY4, (Updated )

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

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

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?


    8