импорт себестоимости и розничной цены Номенклатуры в автоматическом режиме
Для получения доступа к форуму необходимо
авторизоваться
или
зарегистрироваться
на сайте.
Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте
rarus-soft.ru
Читают тему
Подскажите, пожалуйста, как в АА в автоматическом режиме сделать начальный ввод розничной цены и себестоимости для номенклатуры?
Иммется БД на access, переносим в АА Номенклатурные позиции(экспортируем в EXCEL, потом собственная обработка импорта из excel), хотелось бы также перенести цены (свои а не контрагентов), вводить в ручную >4000 позиций совсем не хочется, а ничего толкового в голову не приходит, как при вводе Номенклатуры, вводить для неё цены в автоматическом режиме. Или уже после того, как ввели всю номенклатуру, ввести для неё цены - себестоимость и розницу.
Фрагмент для поиска номенклатуры по составному значению из 2-х колонок XLS - 5 и 6 колонки)
Арт = СокрЛП(ТекстыЯчеек[5]) + СокрЛП(ТекстыЯчеек[6]); Ном = Справочники.Номенклатура.НайтиПоРеквизиту(""Артикул"",Арт); Если Ном.Пустая() Тогда Предупреждение(""Номенклатура с каталожным номером: "" + Арт + "" отсутствует в базе! Введите ее в справочник и повторите загрузку!"",5); Сообщить(""Номенклатура с каталожным номером: "" + Арт + "" отсутствует в базе! Введите ее в справочник и повторите загрузку!""); Иначе Результат = Ном; КонецЕсли;или так
Фрагмент создания и подстановки ГТД (ГТД в текущей колонке, страна в 15-й колонке) - при загрузке приходной накладной
НаименованиеГТД = СокрЛП(ТекстЯчейки); Если НЕ ПустаяСтрока(НаименованиеГТД) Тогда НаименованиеСтраны = СокрЛП(ТекстыЯчеек[15]); Страна = Справочники.КлассификаторСтранМира.НайтиПоНаименованию(НаименованиеСтраны); Если Страна.Пустая() Тогда Предупреждение(""Отсутствует страна: "" + НаименованиеСтраны,5); Сообщить(""Отсутствует страна: "" + НаименованиеСтраны +"" введите ее в справочник и повторите загрузку!""); Иначе Запрос = Новый Запрос(""ВЫБРАТЬ | ГТД.Ссылка |ИЗ | Справочник.ГТД КАК ГТД |ГДЕ | ГТД.Наименование = &Наименование | И ГТД.Страна = &Страна | |СГРУППИРОВАТЬ ПО | ГТД.Ссылка""); Запрос.УстановитьПараметр(""Наименование"", НаименованиеГТД); Запрос.УстановитьПараметр(""Страна"", Страна); Рез = Запрос.Выполнить(); Если Рез.Пустой() Тогда НовыйГТД = Справочники.ГТД.СоздатьЭлемент(); НовыйГТД.Наименование = СокрЛП(НаименованиеГТД); НовыйГТД.Страна = Страна; НовыйГТД.Записать(); Результат = НовыйГТД.Ссылка; Иначе Выборка = Рез.Выбрать(); Выборка.Следующий(); Результат = Выборка.Ссылка; КонецЕсли; КонецЕсли; КонецЕсли;Уточняю, т.е. это код можно писать прямо в обработке на закладке "Настройка" в колонке "Выражение" выставив режим загрузки "Вычислять"?