[HELP]: v8.2 УП: УТ 11 внешняя обработка

&НаСервере 

Функция ЗаполнитьОбъект(Знач док)     

докоб=док.получитьобъект();

докпроведен=док.проведен;

таб=новый ТаблицаЗначений;

таб.Колонки.Добавить("Номен");
таб.Колонки.Добавить("Цена");
таб.Колонки.Добавить("Видцены");

//отдел1=Справочники.ХарактеристикиНоменклатуры.НайтиПоРеквизиту("НаименованиеПолное", Строка(Характе));

Запрос = Новый Запрос;

Запрос.Текст = 

"ВЫБРАТЬ

|    ХарактеристикиНоменклатуры.Ссылка  КАК Хар

|ИЗ

|    Справочник.ХарактеристикиНоменклатуры КАК ХарактеристикиНоменклатуры

|ГДЕ

|    ХарактеристикиНоменклатуры.Владелец.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Ассортимент"));
//Результат1 = Запрос.Выполнить().Выгрузить();

СписокЗнач = Новый СписокЗначений;

СписокЗнач.ЗагрузитьЗначения(Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Хар"));

Для Каждого ТекущаяСтрока Из СписокЗнач Цикл

отдел1=ТекущаяСтрока.Значение;

отдел1=Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(отдел1);

Сообщить(отдел21);

КонецЦикла;


для каждого текстрока из докоб.товары цикл

Для Каждого ТекущаяСтрока Из СписокЗнач Цикл

отдел1=ТекущаяСтрока.Значение;

отдел21=Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(отдел1);


текстрока.характеристика= отдел21;

номен=текстрока.номенклатура;

цена=текстрока.цена;        видцены=текстрока.видцены;

новстрока=таб.добавить();                                                                                                            

новстрока.номен=номен;

новстрока.видцены=видцены;

новстрока.цена=цена;

            //Возврат;

Продолжить;

Сообщить(Отдел21);


КонецЦикла;

КонецЦикла;


для каждого текстрока из таб цикл

новстрока=докоб.товары.добавить();

новстрока.номенклатура=текстрока.номен;

новстрока.видцены=текстрока.видцены;

новстрока.цена=текстрока.цена;

конеццикла;

// вторая



докоб.записать(?(докпроведен,РежимЗаписиДокумента.Проведение,РежимЗаписиДокумента.Запись));


КонецФункции