Выборка = РегистрыСведений.arte_ЦеныНоменклатуры.ВыбратьПоРегистратору(Источник);
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить( "ВидЦены", Новый ОписаниеТипов( "СправочникСсылка.ТипыЦенНоменклатуры" ) , "ТипЦен");
ТЗ.Колонки.Добавить( "Номенклатура", Новый ОписаниеТипов( "Структура" ), "Номенклатура");
ТЗ.Колонки.Добавить( "Упаковка", Новый ОписаниеТипов( "Структура" ), "Упаковка" ); //Новый ОписаниеТипов( "СправочникСсылка.ЕдиницыИзмерения"), "Упаковка" );
ТЗ.Колонки.Добавить( "Цена", Новый ОписаниеТипов(,,, Новый КвалификаторыЧисла(15, 2) ), "Цена" );
ПОКА Выборка.Следующий() ЦИКЛ
СТР = ТЗ.Добавить();
СТР.ВидЦены = Источник.ТипЦен;
СТР.Цена = Выборка.Цена;
// ************************ НОМЕНКЛАТУРА >>
ИсходящаяНоменклатура = Новый Структура;
Наименование = Выборка.Номенклатура.Наименование
+ " "
+ Выборка.ХарактеристикаНоменклатуры.Наименование
+ " "
+ Выборка.СерияНоменклатуры.Наименование;
ПолноеНаименование = Наименование;
ВидНоменклатуры = Выборка.Номенклатура.ВидНоменклатуры;
СтавкаНДС = Выборка.Номенклатура.СтавкаНДС;
Родитель = Выборка.Номенклатура.Родитель;
ЭтоГруппа = Выборка.Номенклатура.ЭтоГруппа;
ИсходящаяНоменклатура.Вставить("Наименование", Наименование);
ИсходящаяНоменклатура.Вставить("НаименованиеПолное", ПолноеНаименование);
ИсходящаяНоменклатура.Вставить("ВидНоменклатуры", ВидНоменклатуры);
ИсходящаяНоменклатура.Вставить("СтавкаНДС", СтавкаНДС);
ИсходящаяНоменклатура.Вставить("Родитель", Родитель);
ИсходящаяНоменклатура.Вставить("Номенклатура", Выборка.Номенклатура);
ИсходящаяНоменклатура.Вставить("ЭтоГруппа", ЭтоГруппа);
СТР.Номенклатура = ИсходящаяНоменклатура;
// << ************************ НОМЕНКЛАТУРА
// ************************************
ИсходящаяУпаковка = Новый Структура;
ИсходящаяУпаковка.Вставить("Владелец", ИсходящаяНоменклатура);
ИсходящаяУпаковка.Вставить("Наименование", Выборка.ЕдиницаИзмерения.Наименование);
ИсходящаяУпаковка.Вставить("ЕдиницаИзмерения", Выборка.ЕдиницаИзмерения.ЕдиницаПоКлассификатору);
ИсходящаяУпаковка.Вставить("Вес", Выборка.ЕдиницаИзмерения.Вес);
ИсходящаяУпаковка.Вставить("Объем", Выборка.ЕдиницаИзмерения.Объем);
ИсходящаяУпаковка.Вставить("ПометкаУдаления", Выборка.ЕдиницаИзмерения.ПометкаУдаления );
СТР.Упаковка = ИсходящаяУпаковка;
КОНЕЦЦИКЛА;
КоллекцияОбъектов = ТЗ; |