Загрузка Номенклатуры и УКТВЭД из Excel файла

Обработка предназначена для загрузки данных в справочник "Номенклатура" из Excel файла.
Она была написана ввиду того, что при помощи стандартной обработки по загрузке данных из табличного документа у меня не получилось загрузить коды УКТВЭД, которые были в Excel файле.

Обработка написана для Альфа-Авто Автосервис + Автозапчасти украинская версия 4.1.11.01, которая имеет незначительную доработку под собственные нужды.
Более детально смотрите в описании.

Отличие доработаной конфигурации от исходной — в Справочнике.Номенклатура добавлены 2 дополнительных реквизита/столбца (АртикулАльт и АртикулКор), которые используються для альтернативных номеров (для совместимости пользователей с Альфа-Авто, которые будут переходить с 1С7.7 ТиС Smile ) — в дальнейшем постепенно будем приучать пользователей к стандартному функционалу по кросам.

Если у вас не модифицированная обработка, то можно найти и закоментировать следующие строки:

...
ПерНомАльтернатива = ЛистExcel.Cells(Строка, 2).Value;
ПерНомКорейский = ЛистExcel.Cells(Строка, 3).Value;
...
Товар.АртикулАльт = СокрЛП(ПерНомАльтернатива);
Товар.АртикулКор = СокрЛП(ПерНомКорейский);
...
Объект.АртикулАльт = СокрЛП(ПерНомАльтернатива);
Объект.АртикулКор = СокрЛП(ПерНомКорейский);
 
Описание работы:
Перед нажатием "Выполнить" необходимо указать номер строки с которой будет производиться чтение файла, затем установить основные реквизиты , выбирая нужные значения в элементах формы расположенные ниже.
Например Группа/Родитель - это группа справочника Номенклатура в которую будет производиться загрузка данных.

Пример Excel файла с которого производилась подгрузка данных

1 - № по каталогу
2 - № альтернативный
3 - № корейский
4 - Наименование
5 - Наименование полное
6 - Наименование англ.
7 - Украинское наименование
8 - Марка
9 - Модель
10 - Бренд
11 - Производитель
12 - Тип номенклатуры   (выбирается в соответствующем элементе формы)
13 - Вид номенклатуры   (выбирается в соответствующем элементе формы)
14 - Базовая единица    (выбирается в соответствующем элементе формы)
15 - Основная единица   (выбирается в соответствующем элементе формы)
16 - Ставка НДС         (выбирается в соответствующем элементе формы)
17 - Валюта учета       (выбирается в соответствующем элементе формы)
18 - Страна             (выбирается в соответствующем элементе формы)
19 - УКТ ВЭД
20 - % наценки          (выбирается в соответствующем элементе формы)
21 - Примечание
Вы можете изменить расположение столбцов в файле, но при этом необходимо изменить номера столбцов в коде
ПерНомКаталог = ЛистExcel.Cells(Строка, 1).Value;
ПерНомАльтернатива = ЛистExcel.Cells(Строка, 2).Value;
ПерНомКорейский = ЛистExcel.Cells(Строка, 3).Value;
ПерНаименование = ЛистExcel.Cells(Строка, 4).Value;
ПерАнглНаименование = ЛистExcel.Cells(Строка, 6).Value;
ПерУкрНаименование = ЛистExcel.Cells(Строка, 7).Value;
ПерМарка = ЛистExcel.Cells(Строка, 8).Value;
ПерМодель = ЛистExcel.Cells(Строка, 9).Value;
ПерБренд = ЛистExcel.Cells(Строка, 10).Value;
ПерУКТВЭД = ЛистExcel.Cells(Строка, 18).Value;

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *