Консультация № 66062
08.12.2006, 08:50
0.00 руб.
0 7 5
Здравствуйте Уважаемые Эксперты!
Есть небольшая проблемма с выгрузской из табличной части реализации Торговли 9.0 в Excell. Вопрос: как можно при этом доработать файл выгрузки чтоб к ниже перечисленным колонкам выгружался КОД выгружаемого товара (Наименование), те обращение к справочнику номенклатура, тк в табличной части кода нет. Вот файл:
Процедура Выгрузить()
Спр = СоздатьОбъект ("Справочник.Номенклатура");
Табл = СоздатьОбъект("Таблица");
ПечТабл = СоздатьОбъект("Таблица");
Док.ВыгрузитьТабличнуюЧасть(Табл,);
Табл.ВыбратьСтроки();
Пока Табл.ПолучитьСтроку() = 1 Цикл
Номенклатура = Табл.Номенклатура;
Количество = Табл.Количество;
Цена = Табл.Цена;
Сумма = Табл.Сумма;
СуммаНдс = Окр(Табл.СуммаНДС, 2, 1);
ПечТабл.ВывестиСекцию("Строка");
КонецЦикла;
ПечТабл.Показать("Выгруженный товар","");
КонецПроцедуры
Заранее Спасибо, Андрей!

Обсуждение

Неизвестный
08.12.2006, 09:04
общий
это ответ
Здравствуйте, Andru!
Добавьте после строки Номенклатура = Табл.Номенклатура; следующий код
Спр.НайтиПоНаименованию (Номенклатура,0,1);
Код = Спр.Код;

И измените
Табл = СоздатьОбъект<b>("ТаблицаЗначений")</b>;
Неизвестный
08.12.2006, 09:17
общий
это ответ
Здравствуйте, Andru!
Можно попробовать делать выборку не таблицы значений, а самого документа.
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
Код=Док.Номенклаткра.Код;
//далее по тексту
Неизвестный
08.12.2006, 09:17
общий
это ответ
Здравствуйте, Andru!
если я правильно понял вопрос то вам пожет следующее

Код = Табл.Номенклатура.Код;
Неизвестный
08.12.2006, 09:47
общий
Спасибо!
Неизвестный
08.12.2006, 09:53
общий
Супер! Все работает!Спасибо ЛЮДИ ДОБРЫЕ!!!очень помогли!
Неизвестный
08.12.2006, 09:59
общий
это ответ
Здравствуйте, Andru!
Процедура Выгрузить()
Спр = СоздатьОбъект ("Справочник.Номенклатура");
Табл = СоздатьОбъект("Таблица");
ПечТабл = СоздатьОбъект("Таблица");
Док.ВыгрузитьТабличнуюЧасть(Табл,);
Табл.ВыбратьСтроки();
Пока Табл.ПолучитьСтроку() = 1 Цикл
Код=Табл.Номенклатура.Код;
Номенклатура = Табл.Номенклатура;
Количество = Табл.Количество;
Цена = Табл.Цена;
Сумма = Табл.Сумма;
СуммаНдс = Окр(Табл.СуммаНДС, 2, 1);
ПечТабл.ВывестиСекцию("Строка");
КонецЦикла;
ПечТабл.Показать("Выгруженный товар","");
КонецПроцедуры
Неизвестный
11.12.2006, 13:27
общий
это ответ
Здравствуйте, Andru!
Нужно в талице, которая выводится, добавить еще одну колонку, в которой поставить заголовок КОД и в этой колонке в секции "Строка" выражение "Номенклатура.код"
Форма ответа