Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 17:57

Добавить штрихкод в обработку выгрузка CommerceML

Автор Hoogun, 03 апр 2018, 12:56

0 Пользователей и 1 гость просматривают эту тему.

Hoogun

Здравствуйте.
Помогите пожалуйста решить проблему в УТ. Имеется обработка выгрузка товаров в формате CommerceML, так вот она вполне нормально работает кроме штрихкода, а один клиент просит, чтоб выгружался штрихкод товара. Здесь фрагмент кода из обработки, который выводит часть параметров, но я не программист, поэтому прошу помощи, что нужно добавить, чтоб из базы вставлялись штрихкоды к товарам.

Стр = "<Товары>";
Текст.ДобавитьСтроку(Стр);  
Для Каждого СтрТовар ИЗ Строка.Док.Товары Цикл
    Стр = "<Товар>";
    Текст.ДобавитьСтроку(Стр);  
Стр = "<Ид>"+СтрТовар.Номенклатура.УникальныйИдентификатор()+"</Ид>";
Текст.ДобавитьСтроку(Стр);  
ТекАрт = СокрЛП(СтрТовар.Номенклатура.Артикул);
ТекАрт = ?(ПустаяСтрока(ТекАрт),СокрЛП(СтрТовар.Номенклатура.Код),ТекАрт);
Стр = "<Артикул>"+ТекАрт+"</Артикул>";
Текст.ДобавитьСтроку(Стр);
НаимТовар = СокрЛП(СтрТовар.Номенклатура.Наименование);
НаимТовар = СтрЗаменить(НаимТовар,"&","and");
НаимТовар = СтрЗаменить(НаимТовар,"<","(");
НаимТовар = СтрЗаменить(НаимТовар,">",")");

Стр = "<Наименование>"+НаимТовар+"</Наименование>";
Текст.ДобавитьСтроку(Стр);  
Стр = "<БазоваяЕдиница Код="+"""796"""+">";
Текст.ДобавитьСтроку(Стр);  
Стр = "<Пересчет>";
Текст.ДобавитьСтроку(Стр);  
Стр = "<Единица>шт</Единица>";
Текст.ДобавитьСтроку(Стр);  
Стр = "<Коэффициент>1</Коэффициент>";
Текст.ДобавитьСтроку(Стр);  
Стр = "<ДополнительныеДанные>";
Текст.ДобавитьСтроку(Стр);  
Стр = "<ЗначениеРеквизита>";
Текст.ДобавитьСтроку(Стр);  
    Стр = "<Наименование>Вес</Наименование>";
    Текст.ДобавитьСтроку(Стр);  
    Стр = "<Значение>0</Значение>";
    Текст.ДобавитьСтроку(Стр);  
Стр = "</ЗначениеРеквизита>";
Текст.ДобавитьСтроку(Стр);  

Стр = "<ЗначениеРеквизита>";
Текст.ДобавитьСтроку(Стр);  
    Стр = "<Наименование>Объем</Наименование>";
    Текст.ДобавитьСтроку(Стр);  
    Стр = "<Значение>0</Значение>";
    Текст.ДобавитьСтроку(Стр);  
Стр = "</ЗначениеРеквизита>";
Текст.ДобавитьСтроку(Стр);  
Стр = "</ДополнительныеДанные>";
Текст.ДобавитьСтроку(Стр);  
Стр = "</Пересчет>шт</БазоваяЕдиница>";
Текст.ДобавитьСтроку(Стр);
                                ...  

wise

(0)ЕСЛИ {я не программист, поэтому прошу помощи}
то ТВОЙ вариант позвать программиста...
штрих-код НЕ хранится в документе... его НАДО "выгрести" запросом ПЕРЕД выгрузкой табличной части.
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Hoogun


Похожие темы (5)

Рейтинг@Mail.ru

Поиск