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

1C Розница 2.3 обмен с сайтом

Автор Andcord, 14 янв 2023, 22:07

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

Andcord

Добрый вечер!

Ребята подскажите пожалуйста сломал голову уже...

Использую Стандартный обмен с сайтом


   // Заполняет реквизиты товара для объекта XDTO типа Предложение.



//
// Параметры
// ПредложениеXDTO - объект XDTO типа Предложение
// ПакетCML - пакет XDTO
// Характеристика - характеристика номенклатуры
// Параметры - параметры обмена.
//
Процедура ДобавитьРеквизитыТовараДляПредложенияXDTO(ПредложениеXDTO, СтрокаПредложения, Параметры)

ПредложениеXDTO.Ид = УникальныйИдентификаторОбъекта(СтрокаПредложения.Номенклатура, СтрокаПредложения.Характеристика);

Наименование = СтрокаПредложения.НоменклатураНаименование;

Если ЗначениеЗаполнено(СтрокаПредложения.Характеристика) Тогда
Наименование = Наименование + " (" + СтрокаПредложения.Характеристика + ")";
КонецЕсли;

ПредложениеXDTO.Наименование = ФорматНаименованияДляXDTO(Наименование);
ПредложениеXDTO.БазоваяЕдиница = БазоваяЕдиницаXDTO(ПредложениеXDTO, СтрокаПредложения);
ПредложениеXDTO.Артикул = СтрокаПредложения.НоменклатураАртикул;

ЗаполнитьХарактеристикиСтрокиТоваров(ПредложениеXDTO, СтрокаПредложения);

ЗаполнитьСвойстваПредложения(ПредложениеXDTO, СтрокаПредложения);

СтатусУдаления = Неопределено;
Если СтрокаПредложения.НоменклатураПометкаУдаления = Истина Тогда
СтатусУдаления = "Удален";
КонецЕсли;



Andcord

Andcord, Если при выгрузки у товара не создана Характеристика то Штрихкод выгружается как надо

// Добавляет объект XDTO типа Товар в список товаров объекта XDTO типа Каталог
//
// Параметры
// ТоварыXDTO - объект XDTO типа Товары
// ПакетCML - пакет XDTO
// ДополнительныеДанные - структура, содержащая информацию по изображениям номенклатуры и значения свойств
// Параметры - структура, содержащая параметры обмена.
//
Процедура ДобавитьНоменклатуруXDTO(ТоварыXDTO, ПакетCML, ДанныеНоменклатуры, Параметры)

СтруктураРезультата = Параметры.СтруктураРезультата;

ТоварТип = ПакетCML.Получить("Товар");
ТоварXDTO = ФабрикаXDTO.Создать(ТоварТип);

Если ДанныеНоменклатуры.НоменклатураПометкаУдаления Тогда

ТоварXDTO.Статус = "Удален";

КонецЕсли;

Ид = УникальныйИдентификаторОбъекта(ДанныеНоменклатуры.Номенклатура, ДанныеНоменклатуры.Характеристика);

ТоварXDTO.Ид = Ид;

Штрихкод = ПолучитьШтрихкодДляXDTO(ДанныеНоменклатуры.НоменклатураШтрихКод);
Если ЗначениеЗаполнено(Штрихкод) Тогда

ТоварXDTO.Штрихкод = ШтрихКод;

КонецЕсли;

Штрихкод есть у всего товара...

Теги:

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

Рейтинг@Mail.ru

Поиск