7.7 ТиС для Украины Как сделать запрос?

Новая тема
Показывать по 10 20 40 сообщений
"Док=ТекущийДокумент();


ТЗ=СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Товар", "Справочник.Номенклатура");
ТЗ.НоваяКолонка("МОЛ", "Справочник.МОЛ");
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 Цикл  
ТЗ.НоваяСтрока();
   ТЗ.Товар = Док.Товар;
ТЗ.Мол=Док.Товар.МОЛ;

КонецЦикла;

ТЗ.Сортировать("МОЛ");
ТЗ.ВыбратьСтроки();
МОЛ="""";
Пока ТЗ.ПолучитьСтроку()=1 Цикл  
Если ТЗ.МОЛ=МОЛ Тогда
Товар=ТЗ.Товар;
Таб.ВывестиСекцию("Строка");

Иначе
МОЛ=ТЗ.Товар.МОЛ;
Таб.ВывестиСекцию("МОЛ");
Товар=ТЗ.Товар;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;"
Читают тему
(гостей: 1)

Быстрый переход