0
akimov_aleks
13.02.19
✎
12:43
|
Добрый день подскажите как сделать нужно сократить названия номенклатуры для загрузки в ТСД
Функция МассивБазыТоваров()
МассивВыгрузки = Новый Массив();
Для Каждого СтрокаТЧ Из Объект.Товары Цикл
ВыгружаемыйТовар = Новый Структура;
ВыгружаемыйТовар.Вставить("Штрихкод", СтрокаТЧ.Штрихкод);
ВыгружаемыйТовар.Вставить("Номенклатура", Строка(СтрокаТЧ.Номенклатура));
ВыгружаемыйТовар.Вставить("ЕдиницаИзмерения", Строка(СтрокаТЧ.Упаковка));
ВыгружаемыйТовар.Вставить("ХарактеристикаНоменклатуры", Строка(СтрокаТЧ.Характеристика));
ВыгружаемыйТовар.Вставить("Количество", 0);
ВыгружаемыйТовар.Вставить("Цена", СтрокаТЧ.Цена);
Если ВыгружатьРеквизитыАлкогольнойПродукции Тогда
ВыгружаемыйТовар.Вставить("Алкоголь" , СтрокаТЧ.Алкоголь);
ВыгружаемыйТовар.Вставить("Маркируемый" , СтрокаТЧ.Маркируемый);
ВыгружаемыйТовар.Вставить("КодВидаАлкогольнойПродукции", СтрокаТЧ.КодВидаАлкогольнойПродукции);
ВыгружаемыйТовар.Вставить("КодАлкогольнойПродукции" , "");
ВыгружаемыйТовар.Вставить("ЕмкостьТары" , СтрокаТЧ.ЕмкостьТары);
ВыгружаемыйТовар.Вставить("Крепость" , СтрокаТЧ.Крепость);
ВыгружаемыйТовар.Вставить("ИННПроизводителя" , СтрокаТЧ.ИННПроизводителя);
ВыгружаемыйТовар.Вставить("КПППроизводителя" , СтрокаТЧ.КПППроизводителя);
КонецЕсли;
МассивВыгрузки.Добавить(ВыгружаемыйТовар);
КонецЦикла;
Возврат МассивВыгрузки;
КонецФункции
|
|