СТАБИЛЬНАЯ Загрузка справочника номенклатуры в 1С:Управление торговлей 8 из прайс-листа в Excel (код открыт скачать можно бесплатно)
Интеграция - Загрузка и выгрузка в Excel
Загрузка справочника номенклатуры в 1С:Управление торговлей 8 из прайс-листа в Excel
Имеются исходные данные:
- Прайс-лист в Excel «ПрайсОнлайнХимСнаб.xls» — Microsoft Office Excel 97-2003 (.xls)
- Типовая конфигурация Управление торговлей Ред.10.3, релиз 10.3.10.4, платформа 8.2 (8.2.10.77)
- Необходимо загрузить в 1С из Excel не только наименования товаров и цены как в Примере 1, а также артикулы и штрих-кода, при этом необходимо чтобы номенклатура загружалась не в один каталог (группу), а распределялась по производителям в справочнике номенклатуры 1С.
Для того чтобы из Прайс-листа можно было загрузить справочник номенклатуры в 1С:Управление торговлей 8 с автоматическим распределением по группам (производители) необходимо будет подготовить форму файла для загрузки. Понадобиться добавить колонку с указанием единицы измерения (шт.) и производителя товара, при этом наименование производителя в прайс-листе должно соответствовать наименованию группы в справочнике номенклатуры программы 1С:Управление торговлей 8.
Используем типовую обработку «ЗагрузкаДанныхИзТабличногоДокумента.epf» которая идет на ИТС.
1. Запускаем программу 1С
2. Для запуска обработки выбираем пункт меню «Файл»>«Открыть».
3. В открывшемся окне находим файл обработки, который располагается на диске ИТС в каталоге \1CIts\EXE\EXTREPS\UNIREPS82\UploadFromTableDocument
Если предварительно вы скопировали файл обработки на свой компьютер, то можете выбрать его.
Откроется окно
Обратите внимание, что загрузка данных будет осуществляться в три этапа:
- Этап 1 — загрузка наименований и установка значений реквизитов новых элементов справочников необходимых для начала работы (единица измерения, ставка НДС, признак товар/услуга).
- Этап 2 — загрузка цен.
- Этап 3 — загрузка штрих-кодов
4. Этап 1. Загрузка наименований
Устанавливаем «Режим загрузки» — Загрузка в справочник
«Вид справочника» — Номенклатура
5. В закладке «Табличный документ» нажимаем кнопку 
«Открыть файл», в появившемся окне выбора находим каталог, в котором у нас находиться прайс-лист в Excel из которого мы планируем загружать данные в 1С.
Первоначально файл может не отобразиться. Установите Тип файла «Лист Excel (*.xls)»
Выбираем наш файл
Файл успешно прочитался
7. Далее выбираем закладку «Настройка»
Отражаются реквизиты карточки номенклатуры.
8. Настраиваем параметры загрузки наименований
Для удобства установим «Ручную нумерацию колонок»
На данном этапе загружаем только те реквизиты, которые позволят начать работать с программой, поэтому снимаем галочки с полей, которые нас пока не интересуют
«Первая строка данных табличного документа» — смотрим наш прайс-лист, отбрасываем шапку, данные для загрузки начитаются с девятой строки — ставим «9» (см.Рис. 2 «Прайс-лист»)
«Не создавать новых элементов» — галочку НЕ ставим, опция нужна, если планируем только изменять уже имеющиеся элементы.
Строки «Наименование» и «Полное наименование» — устанавливаем Режим загрузки «Искать», «№ Колонки табличного документа» — в нашем прайс-листе наименование в третьей колонке — ставим «3»
Строка «Родитель» — в колонке «Режим загрузки» выбираем «Искать», в колонке «№ Колонки табличного документа» — в нашем прайс-листе производители в четвертой колонке — ставим «4».
Если необходимости распределения по производителям нет и загрузить все новые элементы требуется в одну папку, тогда в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем группу номенклатуры, в которую будем загружать данные из прайс-листа.
Строка «Артикул» — ставим галку в колонке «Поле поиска» (вторая колонка) — программа проверит наличие в базе данных 1С элемента с таким артикулом, и если таковой уже существует, то новый элемент с таким наименованием создаваться не будет. Устанавливаем Режим загрузки «Искать», «№ Колонки табличного документа» — в нашем прайс-листе артикул во второй колонке — ставим «2»
Строка «Базовая единица измерения» — в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем единицу измерения (в нашем случае — шт.)
Строка «Весовой» — в нашем случае товар НЕ весовой, поэтому «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем «Нет»
Строка «Ставка НДС» — в нашем случае для всех загружаемых элементов устанавливаем НДС 18%, для этого в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем «18%».
Если товары идут с разным НДС, который указывается в отдельной колонке загружаемого прайс-листа, то в колонке «Режим загрузки» установите «Искать» и номер соответствующей колонки прайс-листа в «№ Колонки табличного документа».
Строка «Услуга» — в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем «Нет» (в нашем случае все позиции это товары).
Строка «Вид номенклатуры» — в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем «Товар».
Мы задали минимальные значения новых элементов справочника номенклатуры, которые позволят начать работать.
Если вы готовы задать значения недостающих реквизитов сейчас, то укажите и их.
Нажимаем «Загрузить» в правом нижнем углу, на вопрос нажимаем «Да»
Если загрузка пройдет нормально, то по результатам будет выдано сообщение об успешной загрузке.
8. Проверяем наличие новых элементов в соответствующих группах справочника номенклатуры.
На настоящий момент мы загрузили из прайс-листа в Excel наименования товаров в справочник номенклатуры 1С.
Как видите, реквизиты «Единица для отчетов» и «Единица хранения остатков» остались не заполненными.
Следующим шагом необходимо установить данные реквизиты, т.к. они потребуются при загрузке цен, штрих-кодов и дальнейшей работе.
Возможны два варианта:
Ручной.
Данные реквизиты создаются программой автоматически, при первом открытии и сохранении карточки номенклатуры. Если допустима ручная установка, то можно этот шаг пропустить и перейти сразу к этапу загрузки цен. Если не планируется загрузка штрих-кодов, то вполне допустимо даже оставить как есть — при первом использовании элемента номенклатуры необходимо будет отрыть и сохранить карточку товара.
Недостаток: ручная процедура открытия и записи может быть довольно трудоёмкой и занять довольно много времени при большом количестве элементов справочника.
Автоматический.
Возможна и автоматическая загрузка единиц измерения, но она рассчитана для продвинутых пользователей и потребует базовых навыков в программировании 1С.
Возможны два варианта: с идентификацией по артикулу или наименованию.
Идентификация по Артикулу более предпочтительна, но в прайс-листе колонки с артикулами может и не быть.
Вариант 1. Идентификация по Артикулу
Ставим «галку» в поле «Не создавать новых элементов» и снимаем «галки» со всех строк.
Строка «Артикул» — ставим галку в колонке «Поле поиска» (вторая колонка). Устанавливаем Режим загрузки «Искать», «№ Колонки табличного документа» — в нашем прайс-листе артикул во второй колонке — ставим «2»
В строках «Единица для отчетов» и «Единица хранения остатков» в поле «Режим загрузки» выбираем «Вычислять». В поле «Выражение» пишем алгоритм на встроенном языке программирования 1С. Например, наш специалист из отдела внедрения, за пару минут предложил такой код:
СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", ТекущиеДанные["Артикул"]);
БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(796);
ТекСпр = Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("ЕдиницаПоКлассификатору", БазоваяЕдиницаИзмерения, , СсылкаНоменклатуры);
Если ТекСпр.Пустая() Тогда НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = БазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = СсылкаНоменклатуры;
Попытка НайденнаяЕдиницаОбъект.Записать();
Результат = НайденнаяЕдиницаОбъект.Ссылка;
Исключение Сообщить("Не удалось записать");
КонецПопытки;
Иначе Результат = ТекСпр.Ссылка;
КонецЕсли;
//© Компания "Онлайн" 2010, www.online-ufa.ru
Если планируется многократное повторение данной процедуры, то в алгоритм необходимо дополнительно добавить процедуру проверки, чтобы исключить повторный ввод единиц измерения с тем же наименованием.
Вариант 2. В случае идентификации по Наименованию
Ставим «галочку» в поле «Не создавать новых элементов»
Снимаем «галки» со всех строк
Строка «Наименование» — ставим галку в колонке «Поле поиска» (вторая колонка). Устанавливаем Режим загрузки «Искать», «№ Колонки табличного документа» — в нашем прайс-листе наименования в третьей колонке — ставим «3»
В строках «Единица для отчетов» и «Единица хранения остатков» в поле «Режим загрузки» выбираем «Вычислять». В поле «Выражение» пишем алгоритм на встроенном языке программирования 1С, например такой:
СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоНаименованию(ТекущиеДанные["Наименование"]);
БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(796);
ТекСпр = Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("ЕдиницаПоКлассификатору", БазоваяЕдиницаИзмерения, , СсылкаНоменклатуры);
Если ТекСпр.Пустая() Тогда НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = БазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = СсылкаНоменклатуры;
Попытка НайденнаяЕдиницаОбъект.Записать();
Результат = НайденнаяЕдиницаОбъект.Ссылка;
Исключение Сообщить("Не удалось записать");
КонецПопытки;
Иначе Результат = ТекСпр.Ссылка;
КонецЕсли;
//© Компания "Онлайн" 2010, www.online-ufa.ru
9. Открываем карточку товара, проверяем правильность загрузки реквизитов
Если всё правильно, то можно приступить ко второму этапу — загрузке цен из прайс-листа в Excel.
Если в будущем планируется использовать данную процедуру загрузки данных с такими же настройками параметров загрузки, то рекомендуем сохранить текущие настройки. Для этого нажмите кнопочку
«Сохранить настройки» и понятно назовите текущую настройку, например, «Загрузка наименований товаров из прайс-листа Excel».
В следующий раз сможете загрузить сохраненные настройки, нажав на кнопку
«Восстановить настройки» и выбрав нужную из списка.
10. Этап 2. Загрузка цен
В «Управление торговлей» Ред.10.3 установка цен производится с помощью документа «Установка цен номенклатуры».
Используем ту же обработку «ЗагрузкаДанныхИзТабличногоДокумента.epf» с диска ИТС.
11. Устанавливаем «Режим загрузки» — «Загрузка в табличную часть».
12. В поле «Ссылка» выбираем «Установка цен номенклатуры».
После этого в том же самом поле «Ссылка» снова нажимаем на кнопку выбора
Открывается журнал документов «Установка цен номенклатуры».
Здесь можно выбрать уже существующий документ, в который мы хотим добавить новые элементы, или создать Новый (рекомендуется), в документе указываем какой «Тип цен» будем загружать (в нашем примере «Розничная»).
Нажимаем «Ок» и сохраняем пока пустой документ.
Теперь выбираем этот новый сохранённый документ из журнала в строке «Ссылка».
В поле «Табличная часть» выбираем «Товары».
13. Обратите внимание, что сейчас нужно перейти закладку «Табличный документ» и снова выбрать наш прайс-лист в Excel из которого мы загрузили наименования, а теперь будем загружать цены (см. пункт 5).
14. Настраиваем параметры загрузки
Опять устанавливаем «Первая строка данных табличного документа» — как и при загрузке наименований, ставим «9» и «Ручную нумерацию колонок».
В строке «Номенклатура» устанавливаем режим загрузки «Искать», «№ Колонки табличного документа» — в нашем примере ставим «3». Если необходима идентификация по артикулу, то в колонке "Искать по" выбираем "Артикул", а в «№ Колонки табличного документа» ставим номер колонки с артикулами - в нашем примере "2".
В строке «Цена» устанавливаем режим загрузки «Искать», «№ Колонки табличного документа» — ставим номер колонки с ценами, которые хотим загрузить, сначала будем загружать розничную цену, значит, ставим «5».
В строке «Валюта» устанавливаем Режим загрузки «Устанавливать», выбираем валюту (в примере «руб.»)
В строке «Единица измерения» в поле «Режим загрузки» выбираем «Вычислять». В поле «Выражение» пишем алгоритм на встроенном языке программирования 1С. Например, такой код:
СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоНаименованию(ТекущиеДанные["Номенклатура"]);
Результат = СсылкаНоменклатуры.ЕдиницаХраненияОстатков;
В строке «Тип цен» устанавливаем Режим загрузки «Устанавливать», выбираем цену, которую будем загружать «Розничная».
Если в вашем прайс-листе цены товаров приведены в разных валютах, которая указывается в отдельной колонке загружаемого прайс-листа, то в колонке «Режим загрузки» установите «Искать» и номер соответствующей колонки прайс-листа в «№ Колонки табличного документа».
В строке «Способ расчета цены» устанавливаем Режим загрузки «Устанавливать», выбираем «По процентной наценке на базовый тип»
Нажимаем «Загрузить» и отвечаем «Да»
Если загрузка пройдет нормально, то по результатам будет выдано сообщение об успешной загрузке.
15. Открываем документ «Установка цен номенклатуры», в который загружали данные (нажав кнопочку с изображением лупы 
в строке «Ссылка»)
16. Проверяем документ, если всё в порядке нажимаем «Ок».
Цены должны установиться.
17. Открываем справочник номенклатуры, проверяем закладку «Цены» в карточке загруженных элементов, нажимаем кнопку «Перечитать текущие цены».
Если всё в порядке, то можно приступать к загрузке остальных цен (оптовые, закупочные и т.д.). Процедура аналогична.
Обратите внимание, что 1С:Управление торговлей 8 поддерживает расчет одних цен на основании других. Поэтому загружать, возможно, будет достаточно только одну базовую цену, например Розничную или наоборот Закупочную, а для других цен указать алгоритмы формирования (скидка %, наценка %, округление до знака и т.д.).
Если в будущем планируется использовать данную процедуру загрузки данных с такими же настройками параметров загрузки, то рекомендуем сохранить текущие настройки. Для этого нажмите кнопочку
В следующий раз сможете загрузить сохраненные настройки, нажав на кнопку
18. Этап 3. Загрузка штрих-кодов
Используем всё ту же обработку «ЗагрузкаДанныхИзТабличногоДокумента.epf» с диска ИТС.
19. Устанавливаем «Режим загрузки» — «Загрузка в регистр сведений».
"Вид регистра" выбираем "Штрихкоды".
20. Обратите внимание, что сейчас нужно перейти закладку «Табличный документ» и снова выбрать наш прайс-лист в Excel из которого мы загрузили наименования и цены, а теперь будем загружать штрихкоды (см. пункт 5).
21. Настраиваем параметры загрузки
Опять устанавливаем параметр «Первая строка данных табличного документа» - ставим «9» и «Ручную нумерацию колонок».
Настраиваем параметры загрузки
Удаляем «галки» со всех строк, с которых возможно.
В оставшихся строках устанавливаем параметры
В строке «Штрихкод» устанавливаем Режим загрузки «Искать», в колонке «№ Колонки табличного документа» пишем как в нашем прайс-листе «9».
В строке «Владелец» в колонке «Описание типов» открываем окно «Редактирование типа данных» устанавливаем (оставляем) галку только в поле «Номенклатура». Режим загрузки устанавливаем «Искать». Для идентификации по Артикулу, в колонке «№ Колонки табличного документа» пишем номер колонки, в которой в нашем прайс-листе указаны артикулы — т.е. «2». В колонке «Искать по», устанавливаем «Артикул».
В случае, если в прайс-листе нет колонки с артикулами, то в колонке «Искать по» необходимо выбрать «Наименование», а в ячейке «№ Колонки табличного документа» указать номер колонки прайс-листа с наименованиями.
В строке «Тип штрихкода» в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем «EAN13».
В строке «Единица измерения» в поле «Режим загрузки» выбираем «Вычислять». В поле «Выражение» пишем алгоритм на встроенном языке программирования 1С. Например, такой код:
CсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоНаименованию(ТекущиеДанные["Владелец"]);
Результат = СсылкаНоменклатуры.ЕдиницаХраненияОстатков;
В строке «Качество» в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем «Новый».
В строках «Характеристика номенклатуры», «Серия номенклатуры», «Удалить код» в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» оставляем пустые ячейки.
Нажимаем «Загрузить»
Открываем карточку товара, проверяем наличие штрих-кода.
Если в будущем планируется использовать данную процедуру загрузки данных с такими же настройками параметров загрузки, то рекомендуем сохранить текущие настройки. Для этого нажмите кнопочку
В следующий раз сможете загрузить сохраненные настройки, нажав на кнопку
Вступайте в нашу телеграмм-группу Инфостарт
Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
См. также
Перенос данных 1C Разработчик 1С:Предприятие 8 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)
Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор
58000 руб.
04.08.2015 195035 480 310
Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)
Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!
55050 руб.
25.02.2015 192724 385 296
SALE! 10%
Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)
Правила в универсальном формате обмена для ERP 2.5, ERP 2.6, КА 2.5, КА 2.6, УТ 11.5, УТ 11.6, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.
27633 руб.
12.06.2017 165294 1009 329
Перенос данных 1C Взаиморасчеты Оптовая торговля Логистика, склад и ТМЦ Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Управленческий учет Платные (руб)
Можно проверить до покупки, оставьте заявку! Воспользовались более 268 компаний! Перенос данных из УТ 10.3 в УТ 11 | из УТ 10.3 в КА 2 | из УТ 10.3 в ERP. Решение для перехода с УТ 10.3. Можно перенести начальные остатки, нормативно-справочную информацию и все возможные документы. При выгрузке можно установить отбор по периоду, организациям и складам.
55200 руб.
24.04.2015 211586 186 254
Загрузка и выгрузка в Excel Маркетплейсы Разработчик Бухгалтер Пользователь 1С:Предприятие 8 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет Управленческий учет Платные (руб)
Реальный помощник, с помощью которого Вы преобразуете необходимые документы для Wildberries, OZON, ЯндексМаркет, ЛаМода, Мегамаркет, Aliexpress, Детский мир, Магнит Маркет (быв.МагнитЭкспресс), Лемана про, ЭНФАНТА (Акушерство), Летуаль, Твой дом, Золотое Яблоко, Каспи, Авито, Аптеки+, М.Видео,Тинькоф в документы "Отчет комиссионера (агента) о продажах" и другие. Работает в 1С:БП 3.0, 1С:БП 3.0 КОРП, 1С:УТ 11, 1С:УНФ, 1С:ERP.
5490 руб.
12.08.2021 48536 654 71
SALE! 10%
Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)
Переносите справочную информацию, остатки и документы из УПП 1.3 в Бухгалтерию 3.0 с помощью готовых правил. Переносится более 50 видов документов. Простой интерфейс и понятные настройки.
42000
37800 руб.
15.12.2021 37255 270 68
Загрузка и выгрузка в Excel Маркетплейсы Разработчик Бухгалтер Пользователь 1С:Предприятие 8 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Бухгалтерский учет Платные (руб)
Обработки загрузки данных о продажах WildBerries предназначены для следующих конфигураций: Бухгалтерия предприятия, редакция 3.0; Управление нашей фирмой, редакция 3.0; Розница, редакция 3.0; Управление торговлей, редакция 11; Управление торговлей, редакция 10.3
6000 руб.
11.12.2019 68104 1163 3
SALE! 10%
Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Разработчик 1С:Предприятие 8 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 Бухгалтерский учет Управленческий учет Платные (руб)
Переносите справочную информацию, остатки и документы из УПП 1.3 в ERP 2.6 и КА 2.6 с помощью готовых правил. Переносится более 60 видов документов. Простой интерфейс и понятные настройки.
42000
37800 руб.
24.06.2020 73338 108 35
Решил так:
СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",ТекущиеДанные.Номенклатура.Артикул);
Результат=СсылкаНоменклатуры.ЕдиницаХраненияОстатков;Еденица для отчетов
СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоКоду(ТекущиеДанные["Код"]);
БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(796);
ТекСпр=Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("ЕдиницаПоКлассификатору",БазоваяЕдиницаИзмерения,,СсылкаНоменклатуры);
Если ТекСпр.Пустая() Тогда НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = БазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = СсылкаНоменклатуры;
Попытка НайденнаяЕдиницаОбъект.Записать();
Результат = НайденнаяЕдиницаОбъект.Ссылка;
Исключение Сообщить("1Не удалось записать"+ТекущиеДанные["Наименование"]);
КонецПопытки;
Иначе Результат =ТекСпр.Ссылка;
КонецЕсли;
ПоказатьЕденица для хранения остатков
СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоКоду(ТекущиеДанные["Код"]);
БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(796);
ТекСпр=Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("ЕдиницаПоКлассификатору",БазоваяЕдиницаИзмерения,,СсылкаНоменклатуры);
Если ТекСпр.Пустая() Тогда НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = БазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = СсылкаНоменклатуры;
Попытка НайденнаяЕдиницаОбъект.Записать();
Результат = НайденнаяЕдиницаОбъект.Ссылка;
Исключение Сообщить("2Не удалось записать"+ТекущиеДанные["Наименование"]);
КонецПопытки;
Иначе Результат =ТекСпр.Ссылка;
КонецЕсли;
Показать
цена1 = "0.86" ;
цена2 = "8";
выражение1 = цена2*цена1;
Но я бы воспользовалься функцией ПривестиСтрокуКЧислу . Гарантия избежать всевозможных ошибок.
цена1 = ОбщегоНазначения.ПривестиСтрокуКЧислу("0.86") ;
цена2 = ОбщегоНазначения.ПривестиСтрокуКЧислу(8);
выражение1 = цена2*цена1;
Вот функция ПривестиСтрокуКЧислу, которая находится УправлениеТорговлей-Общие-ОбщиеМодули-ОбщегоНазначения-ПривестиСтрокуКЧислу
Функция ПривестиСтрокуКЧислу(ЧислоСтрокой, ВозвращатьНеопределено = Ложь) Экспорт
ОписаниеТипаЧисла = Новый ОписаниеТипов("Число");
ЗначениеЧисла = ОписаниеТипаЧисла.ПривестиЗначение(ЧислоСтрокой);
Если ВозвращатьНеопределено И (ЗначениеЧисла = 0) Тогда
Стр = Строка(ЧислоСтрокой);
Если Стр = "" Тогда
Возврат Неопределено;
КонецЕсли;
Стр = СтрЗаменить(СокрЛП(Стр), "0", "");
Если (Стр <> "") И (Стр <> ".") И (Стр <> ",") Тогда
Возврат Неопределено;
КонецЕсли;
КонецЕсли;
Возврат ЗначениеЧисла;
КонецФункции
ПоказатьВ аттаче - файл настроек для той-же обработки в Номенклатуру. Во вкладке "настройка"-"восстановить настройки из файла.."- открыть этот файл из аттача. В "События"-"При записи" должна быть такая функция:
Если Объект.БазоваяЕдиницаИзмерения.Пустая()=Ложь Тогда
ЗапросЕдИзм = Новый Запрос();
ЗапросЕдИзм.Текст = ""
|ВЫБРАТЬ
| ЕдиницыИзмерения.Ссылка
|ИЗ
| Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
|ГДЕ
| ЕдиницыИзмерения.Владелец = &Владелец
| И ЕдиницыИзмерения.ЕдиницаПоКлассификатору = &ЕдиницаПоКлассификатору"";
ЗапросЕдИзм.УстановитьПараметр(""Владелец"", Объект.Ссылка);
ЗапросЕдИзм.УстановитьПараметр(""ЕдиницаПоКлассификатору"",Объект.БазоваяЕдиницаИзмерения.Ссылка);
Выборка = ЗапросЕдИзм.Выполнить().Выбрать();
Если Выборка.Количество() <= 0 Тогда
Ед = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
Ед.ЕдиницаПоКлассификатору = Объект.БазоваяЕдиницаИзмерения.Ссылка;
Ед.Вес = 1;
Ед.Владелец = Объект.Ссылка;
Ед.Коэффициент = 1;
Ед.Наименование = Объект.БазоваяЕдиницаИзмерения.Наименование;
Ед.Записать();
Объект.ЕдиницаДляОтчетов = Ед.Ссылка;
Объект.ЕдиницаХраненияОстатков = Ед.Ссылка;
КонецЕсли;
КонецЕсли;
НомерСтолбцаИзображение = 8;
НомерСтолбцаОписаниеИзображение = 3;
ЗапросСуществующих = Новый Запрос();
ЗапросСуществующих.Текст = ""
|ВЫБРАТЬ
| ХранилищеДополнительнойИнформации.Ссылка
|ИЗ
| Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
|ГДЕ
| ХранилищеДополнительнойИнформации.Объект = &Объект
| И ХранилищеДополнительнойИнформации.Наименование = &Наименование"";
Объект.Записать();
ФайлКартинки = Новый Файл(СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]));
//Предупреждение(ФайлКартинки.Существует());
Если ФайлКартинки.Существует() Тогда
//Предупреждение(""!"");
ЗапросСуществующих.УстановитьПараметр(""Объект"", Объект.Ссылка);
ЗапросСуществующих.УстановитьПараметр(""Наименование"", СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]));
Выборка = ЗапросСуществующих.Выполнить().Выбрать();
Если Выборка.Количество() <= 0 Тогда
// Предупреждение(""!!"");
ХранилищеОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(ТекстыЯчеек[НомерСтолбцаИзображение]),Новый СжатиеДанных);
ХранилищеОбъект.Объект = Объект.Ссылка;
ХранилищеОбъект.Наименование = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]);
ХранилищеОбъект.ИмяФайла = ТекстыЯчеек[НомерСтолбцаИзображение];
ХранилищеОбъект.Записать();
Объект.ОсновноеИзображение=ХранилищеОбъект.Ссылка;
КонецЕсли;
КонецЕсли;
ПоказатьИз ручного труда осталось вбивать лишь значения свойств товара и загрузка изображений.
Еще раз большое спасибо!
1) в первой колонке - название Группы, во второй колонке - родитель (наименование или код?)
2) В настройке: в строке Наименование-
НоваяГруппа = Справочники.Номенклатура.СоздатьГруппу();
НоваяГруппа.Наименование = СокрЛП(ТекстыЯчеек[1]);
НоваяГруппа.Родитель =ТекущиеДанные["Родитель"];
в Настройке Родитель - искать по колонке № 2 искать по Наименованию
Зачем создавать лишнее, если есть доступный и бесплатный инструмент?
Да и по поводу загрузки "связанных" справочников - тоже вопросы.
Так что все равно нужно писать свои обработки.
и фразы
очень умиляют, спасибо :)
видимо, и остальные специалисты, и в самой 1С в том числе, также пишут весь код "за пару минут".
Если Лев(ТаблицаЗначенийМассив[НомерСтроки].КодТовара,3)<>"001" Тогда
Продолжить;
КонецЕсли;
Но лучше загрузка и синхронизация справочников 1с по ГУИД (Уникальный идентификатор) в качестве подстраховки
1. Найти из УникальныйИдентификатор код элемента
Функция НайтиЭлементПоИД (строкаИД)
ГУИД=Новый УникальныйИдентификатор(строкаИД);
Для Каждого МД Из Метаданные.Справочники Цикл
РезСсылка=Справочники[МД.Имя].ПолучитьСсылку(ГУИД);
Если РезСсылка.ПолучитьОбъект()<>Неопределено Тогда
Возврат РезСсылка.Код;
КонецЕсли;
КонецЦикла;
КонецФункции
Показать2.Найти УникальныйИдентификатор по коду
Функция НайтиЭлементПоКоду(строкаКод)
НоменклатураСсылка = Справочники.Номенклатура.НайтиПоКоду(СокрЛП(строкаКод));
Если НЕ НоменклатураСсылка.Пустая() Тогда
Сообщить("GUID = " + НоменклатураСсылка.УникальныйИдентификатор());
КонецЕсли;
КонецФункция
Для обработки загрузка, естественно, вводятся только одна-две , э-э-э-э, отличия . Первое - "ТекстыЯчеек[1]".
а) в поле "представление реквизита" - например "комментарий"
б) режим загрузки - "вычислять"
в) в поле "выражение"
Сообщить("В табличном документе есть данные - 1столбец:"+Строка(ТекстыЯчеек[1])+" 2столбец:"+Строка(ТекстыЯчеек[2])+" 3столбец"+Строка(ТекстыЯчеек[3]));
И второе отличие ЗагрузкаДанныхИзТабличногоДокумента.epf найти по Уникальному Идентификатору - в выражение вместо "Возврат" пишется "Результат". То есть для ЗагрузкаДанныхИзТабличногоДокумента это будет иметь вид:
//Функция НайтиЭлементПоИД (строкаИД) //это тоже не надо
ГУИД=Новый УникальныйИдентификатор(строкаИД);
Для Каждого МД Из Метаданные.Справочники Цикл
РезСсылка=Справочники[МД.Имя].ПолучитьСсылку(ГУИД);
Если РезСсылка.ПолучитьОбъект()<>Неопределено Тогда
//Возврат РезСсылка.Код; // ТУТ уже вставляется все что возможно Код Наименование Комментарий НаименованиеПолное
Результат РезСсылка.Код
КонецЕсли;
КонецЦикла;
//КонецФункции //и это не надо
ПоказатьПоиск по уникальному идентификатору занимает долгое время, зато уж гарантированно)) Для парсера или для синхронизации уж точно пригодится. Технология XML c ИдЭлемента - это наверно в другой ветке.
Ошибка при вызове метода контекста (Записать): Ошибка при выполнении обработчика - 'ПередЗаписью': {Справочник.Номенклатура.МодульОбъекта(46)}: Ошибка при вызове метода контекста (ПроверитьДопустимостьИзмененияРеквизитовСправочника): Попытка передачи с клиента на сервер мутабельного значения 1-го параметра метода ПроверитьДопустимостьИзмененияРеквизитовСправочника ().
И как бы я не боролся с ней - все бесполезно. Свежие идеи есть?
Постоянно загружается по 10 накладных в день.
Ставьте проверку и обработку ошибок. Поможет в Вашем случае? Что особенного?
КолонкаШтрихкоды=3; //если пусто -1
КолонкаРисунок=-4 ; //если пусто - ставим отрицательно
Если КолонкаШтрихкоды>0 И ЗначениеЗаполнено(СокрЛП(ТекстыЯчеек[КолонкаШтрихкоды])) Тогда
Если НЕ ОбщегоНазначения.ТолькоЦифрыВСтроке(ТекстыЯчеек[КолонкаШтрихкоды]) Тогда
//Запись= РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
Попытка
Объект.Записать(Истина);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
КонецЕсли;
ПоказатьЭта обработка прекрасна и очаровательна на файловой БД.
Вас не затруднит напомнит про ПроверитьДопустимостьИзмененияРеквизитовСправочника () ? Это кажется, из "Управление Торговлей для Украины 3" ? Не видел эту функцию. Есть идея, выполнить проверку допустимости запросом, например. Это уже не топик, простите, как и прочие "костыли".
Соглашусь, "задваивает" элементы. Чтобы не допустить "задваивания", приходится ставить отметку поле поиска - "код", например. В тяжелых случаях - "вычислять"
Запрос=новый Запрос; Запрос.Текст="
| ВЫБРАТЬ Номенклатура.Ссылка ИЗ Справочник.Номенклатура КАК Номенклатура ГДЕ
| Номенклатура.Артикул = &Артикул
| И Номенклатура.Поставщик ПОДОБНО &Поставщик
|";
Запрос.УстановитьПараметр("Артикул",СтрКодАртикул);
Запрос.УстановитьПараметр("Поставщик",СтрКодПоставщик);
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
Результат = РезультатЗапроса.Выгрузить()[0].Ссылка;
КонецЕсли; ПоказатьЭто каждый должен смотреть у себя по своим данным, универсального решения быть не может.
Единственный вариант - сделать многоступенчатую проверку и идентификацию: проверка по коду и наименованию, нет - только по наименованию (полностью), нет - похожесть. Найдено - еще раз перепроверить из найденного по коду. И только в этом случае записывать.
Особо "нестандартные" случаи - просто выводить информацией, что и как не совпало.
Только так, это - единственный вариант, закрывающий 90% обменов.
остальное - только вручную настраивать под "нюансы" кокнретной базы (конкретные данные обмена).
1. Наименование "Основной договор"
2. Вид договора "С покупателем"
3. Ведение взаиморасчетов "По договору в целом", валюта "тенге"
4. Условия договора "Без дополнительных условий"
Как это все можно сделать?
Ваша идея насчет скриншотов или видеоролика очень бы мне помогла.
Заранее спасибо!
Наверно создать группу лучше в два этапа
1. Создать группы
2. Назначить каждой группе родителя
Вот пример:
1. Создаете файл: каждая строка - название группы без спец символов вроде кавычек. Допускается тире, цифры, пробел.
Название группы1
Вторая группа
Автозапчасти
Велосипеды
Шины
Создаете обработку (или из аттача берите) с текстом для кнопки "Выполнить"
файл = Новый ТекстовыйДокумент;
адресФайла="C:\ТекстСНовымиГруппами.txt";
Попытка файл.Прочитать(адресФайла);
Исключение
Предупреждение("файл по данному адресу не найден");
КонецПопытки;
Для Сч=1 По файл.КоличествоСтрок() Цикл
ОбработкаПрерыванияПользователя();
Стр = файл.ПолучитьСтроку(Сч);
Состояние("обработка файла "+Строка(Сч));
НоваяГруппа = Справочники.Номенклатура.СоздатьГруппу();
//НоваяГруппа.Код = Строка(ТекстыЯчеек[2]);
НоваяГруппа.Наименование = СокрЛП(Стр);
НоваяГруппа.Записать();
КонецЦикла;
ПоказатьВот что выводит.
{Справочник.ВнешниеОбработки.Форма.ФормаЭлемента(189)}: Ошибка при вызове метода контекста (Создать): Ошибка подключения внешних метаданных: Ошибка загрузки документа.
Внешняя обработка не может быть прочитана текущей версией программы.
а так приходиться перед этим лопатить эксел предварительно, что тоже не удобно
можно это дело как-то поправить?
заранее огромное спасибо
а зачем начальная и конечная? если есть начальная, т.е. строка ехеля каким-то образом выделенная, например наименование группы размещенное по какому-то фиксированному адресу, например, в обьединении ячеек.. Тогда до признака окончаниия строк или следующей такой ячейки реализуется а один проход
А что касаемо алгоритма с группами, сброшу сегодня попозже, ну например с опознаванием ячеек на обьединение
Если не лень сбросьте и исходную, и доделанную постараюсь понять почему весь список попадает без учет разделения
Если не лень сбросьте и исходную, и доделанную постараюсь понять почему весь список попадает без учет разделения
Наверное мне кажется, но вижу, что "Устанавливать"-"Свечи". Потому и "весь список попадает без учет разделения".
А что касаемо алгоритма с группами, сброшу сегодня попозже, ну например с опознаванием ячеек на обьединение
Поверьте пожалуйста, создано столько замечательных обработок с различными объектами. Обновлены методы работы с объектами,например, понравилась статья "Загрузка из EXCEL в 1С тремя методами. Часть I. MS ADODB.Connection". Но все равно приходится, черт побери, да, приходится иногда загружать с помощью "Универсальной загрузки справочников". Проще и надежнее. Извините, если ошибаюсь.
Иначе придется придумать, куда (наверное в "при обработку и загрузке") засунуть переменную "НазваниеКаталогПродукции". На деле это будет так:
-В первой строке есть название. Название АВТОСВЕЧИ установить в переменную НазваниеКаталогПродукции.
-Во второй строке нет названия, есть товар. Для товара установить Родителя с названием из переменной НазваниеКаталогПродукции.
-Во третьей строке нет названия, есть товар. Для товара установить Родителя с названием из переменной НазваниеКаталогПродукции.
-В Строке ХХ ....
Вот один из шаблонов для определения группы товара
Запрос=новый Запрос;
Запрос.Текст="
|ВЫБРАТЬ
| Номенклатура.Наименование,
| Номенклатура.Ссылка как Результат,
| Номенклатура.ЭтоГруппа
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ЭтоГруппа
| И Номенклатура.Наименование = &Наименование
|";
Запрос.УстановитьПараметр("Наименование","Прочее");
РезультатЗапрсаВМассиве = Запрос.Выполнить().Выбрать();
Если Выборка.Количество()=0 Тогда
Вопрос("Не найдено ни одного родителя, необходимо создать новый или записывать в отдельную группу ДляРазбросаПоКаталогам. Сейчас прервать загрузку?", РежимДиалогаВопрос.ДаНет)
Если Ответ = КодВозвратаДиалога.Да Тогда
Возврат; //выйти из цикла или процедуры
КонецЕсли;
ИначеЕсли Выборка.Количество()>1 Тогда
Предупреждение("Найдено более двух родителей. Надо с этим что-то предпринять..",60);
КонецЕсли;
Пока РезультатЗапрсаВМассиве.Следующий() Цикл
Результат= РезультатЗапроса.Результат
//Объект = РезультатЗапроса.ссылка.ПолучитьОбъект();
//Объект.наименование = что-то с элементом
//Объект.записать();
КонецЦикла;
ПоказатьВот еще несколько шаблонов, кроме "Работа с Текстом (Строкой) 1с" при загрузке прайса:
Сообщить(" в текущих данных Код сейчас "+Строка(ТекущиеДанные["Код"]));
Сообщить(" в текущих данных Владелец сейчас "+Строка(ТекущиеДанные["Владелец"]));
Сообщить(" в ТекстыЯчеек[1] сейчас "+Строка(Строка(ТекстыЯчеек[1])));
Сообщить(" в ТекстыЯчеек[2] сейчас "+Строка(Строка(ТекстыЯчеек[2])));
Понимаете, сейчас только осталось в программный код перевести рассказ "-В первой строке есть названи и т.д. (см выше)" Задача интересная - определить переменную таким образом, чтобы она изменялась или читалась из прайса. Вот вижу еще один маневр:
Если значение из колонки два пустая, следовательно, в колонке 1 - название группы
Если СтрДлина(СокрЛП(Строка(Строка(ТекстыЯчеек[2]))))=0 Тогда
текстПеременнаяРодительДляСледующихСтрок=Строка(ТекстыЯчеек[1]));
//хочется в Результат и наити по наименованию
//засунуть Результат=Строка(ТекстыЯчеек[2]));
//но надо ссылку найти ссылПеременнаяРодительДляСледующихСтрок=Справочники.Номенклатура.НайтиПоНаименованию(Строка(ТекстыЯчеек[2]));
Если ссылПеременнаяРодительДляСледующихСтрок.ЭтоГруппа Тогда
Результат=ссылПеременнаяРодительДляСледующихСтрок;
КонецЕсли;
КонецЕсли;
ПоказатьВ-общем, надо будет поэксперементировать с вкладками "События-Перед записью объекта" и "События-При записи объекта". Ответ наверно чуть позже.
Если известно, что количество стобцов всегда одинаковое и всегда соответсвует, тогда скину свою обработку. У меня так и есть: "Обработка для поставщика 1", "Обработка для поставщика 2". Только я требую от поставщиков прайсы с кодами или со штрихкодами. Так можно избежать ошибки при количестве товаров в базе более 25000
Но что-то в ней не хватает. Конечно стандарта офисных документов ODF (Open Document Format). Теперь возможно загрузка справочника номенклатуры в 1С:Управление торговлей 8 из прайс-листа в OpenOffice ODF (Open Document Format). Как можно загрузить в 1с8 из OpenOffice ? Можно прочитать
вот я и хочу, обозначив 1 и последнюю строку, выделенную часть загрузить в одну папку, затем выделив другую часть - загрузить в другую
к примеру аккумуляторы в одну папку
амортизаторы в другую ..... и т.д.
приходиться каждый раз лишнее удалять... загружать, а потом опять открывать документ по-новой (((
может я делаю что-то не так? подскажите
обработка все делает на ура, единственно что нужно, так это задать диапазон загрузки
со строки такой - до строки такой.......... и все
и не надо во всем прайсе дописывать родителя, я его устанавливаю в из готовых заготовок
это еще и потому, что у разных поставщиков на одинаковую номенклатуру - разные родители или вообще нет
вот есть у меня прайс на 5000 наименований и даже разделение есть по группам (как задумал поставщик) а у меня другие для этого группы (родитель)
я устанавливаю куда грузить и задаю диапазон в прайсе....все.... остальное там идеально
если надо, я прикреплю обработку, которая есть у меня, сюда
Например, мне выкладывают прайс лист и помимо номенклатуры выдают все шк, т.е. одинаковых строк отличающихся только ШК - уйма. Как сделать так, чтобы в ценообразование загружать каждую номенклатуру единожды?
Сейчас пытаюсь забить при помощи нее Номенклатуру поставщика. Не получается - помогите кто сможет.
То есть у нас есть своя номенклатура, в ней артикулы совпадают с поставщиком, наименования некоторые отличаются.
Соответсвенно надо произвести поиск поля Наименования по артикулу справочника Номенклатура.
Написал такое:
СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",ТекущиеДанные.Номенклатура.Артикул);
Результат=СсылкаНоменклатуры.Наименование;Выдает такое:
Загружен элемент справочника: <>
Что не так делаю?
Теоретически там код писать не нужно...
В представлении реквизита "Номенклатура" ставишь искать по полю табличного документа (артикул) - из твоей таблицы с данными, в поле "искать по" выбираешь "Артикул", и все, должен привязывать к нужному родителю в номенклатуре найдя его по артикулу...
Смотрел в редакции УТ 11, в живую не проверял, но раньше пробовал таким образом другие справочники грузить.
ОбъектСсылка=Справочники.Номенклатура.НайтиПоКоду(КодЭлемента);
ОбъектСправочник=ОбъектСсылка.ПолучитьОбъект();
ХранилищеОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(СокрЛП(ПолеВвода2+ВходныеДанные+".jpg")),Новый СжатиеДанных);
ХранилищеОбъект.Объект = ОбъектСсылка;
ХранилищеОбъект.Наименование = СокрЛП(ОбъектСсылка.Наименование);
ХранилищеОбъект.ИмяФайла = СокрЛП("РасположениеФайлов"+".jpg");
ХранилищеОбъект.Записать();
ОбъектСправочник.ОсновноеИзображение=ХранилищеОбъект.Ссылка;
ОбъектСправочник.Записать();
ПоказатьИли применить ее в этой теме, где ОбъектСсылка - это найденный товар по артикулу . Вечером посмотрю другие шаблоны ..
В смысле- "одинаковые артикулы" ? У меня было такое, пришлось по Кодам или по УникальнымИдентификаторам искать. Подробнее?
А пока, думаю, чтобы найти несколько фото с добавлением _1.jpg _2.jpg _3.jpg, можно
1)перебирать каталог
2)явно указать в строке таблицы и проверять: пустая строка ? есть файл? например так
ФайлКартинки = Новый Файл(СокрЛП("c:\Мои документы\Jooob\foto\"+(Строка(ТекстыЯчеек[2]))+"__"+(Строка(ТекстыЯчеек[5]))+"_a.jpg"));
Если ФайлКартинки.Существует() Тогда
......
КонецЕсли;
3) в аттаче архив - НАДО проверить на одном товаре. Может не работать, синтаксис, опять-таки((
Чорт! Ну ей Богу, если срочно, то лучше обработку создать с перебором файлов, если в названии файла есть артикул - запись.
Пожалуйста, вместо скриншота ошибки - скриншот какие данные есть, на примере .
каким кодом можно корректно сформировать упаковки для номенклатуры. Использую индивидуальные наборы для номенклатуры (что-бы для каждой позиции указывать количество в упаковке).
Использую 1С:Предприятие 8.2 (8.2.17.153) Управление торговлей, редакция 11.0 (11.0.9.15)
Предполагаю поступать таким образом:
1. Для начала формирую конечные единицы (шт.), грузить в справочник "Упаковки", тут трудность только в формировании наименования. В конфигурации это делается таким кодом:
СокрЛП(СокрЛП(ЕдиницаИзмерения) + " (" + Формат(Коэффициент,"ЧРД=.") + " " + СокрЛП(ЕдиницаИзмеренияВладельца) + ")")2. Сформировать упаковки, тут две трудности:
а. Выбрать и установить конечную единицу измерения (родительскую)
б. Сформировать наименование из родительской единицы измерения и текущей.
И все эти единицы требуется проверять на наличие и если такие существуют, то грузить их не требуется...
Может кто делал подобное?
Понемногу решаю вопрос, результаты буду выкладывать тут, чтобы сохранялась информация для тех, кто столкнется с подобными проблемами.
При описании предполагаю, что читающий осознал все вышеописанное в самой статье и в обсуждениях:
Итак, грузим "конечные" единицы (шт) потому, что их потом потребуется использовать в качестве родителей для более крупных упаковок:
скрин настроек обработки во вложении, обратите внимание на то, что
1. поле "наименование" спущено в самый низ для того чтобы наименованию было из чего формироваться ("Единица измерения", "Коэффициент") и по нему проверяется наличие данной упаковки
2. Поиск происходит в том числе по полю "Владелец" что-бы владелец подставлялся из справочника номенклатуры (работает по наименованию)
3. Заполнял поля только необходимые для меня, остальные добавляйте "по вкусу".
код формирования наименования такой:
Результат = СокрЛП(СокрЛП(ТекущиеДанные.ЕдиницаИзмерения) + " (" + Формат(ТекущиеДанные.Коэффициент,"ЧРД=.") + " " + СокрЛП(ТекущиеДанные.ЕдиницаИзмерения) + ")");
p.s. В понимании некоторых процессов могу заблуждаться, прошу коллег попровлять меня.
p.p.s. ... to be continued...
Продолжаем разговор:
гружу упаковки (которые состоят из конечных упаковок)
Скрин настроек во вложении.
Комментарии и код:
1. Как и в прошлой загрузке Владелец ищется по наименованию номенклатуры из колонки таблицы.
2. Родитель (конечная упаковка из которой состоит текущая) ищется и заполняется кодом:
//Ищем конечную единицу для номенклатуры:
Штука = Справочники.ЕдиницыИзмерения.НайтиПоКоду(796);
СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоКоду(ТекущиеДанные.Владелец.Код);
Если Не(СсылкаНоменклатуры.Пустая()) Тогда
КонУпаковка = Справочники.УпаковкиНоменклатуры.НайтиПоРеквизиту("ЕдиницаИзмерения",Штука,,СсылкаНоменклатуры);
Если КонУпаковка.Пустая() Тогда
Сообщить("Нет конечной упаковки!!!");
КонецЕсли;
Иначе
Сообщить("Не найдена номенклатура");
КонецЕсли;
Сообщить(""+КонУпаковка.Ссылка.Наименование);
Результат = КонУпаковка.Ссылка;
Показать3. Ставим флаг "Состоит из других упаковок"
4. "Единица измерения" из классификатора ставлю вручную, но ничего не мешает поискать по коду или наименованию в классификаторе...
5. Количество в упаковке берем из колонки таблицы.
6. Коэффициент пересчитываем из текущих данных таким кодом:
//Пересчитываем коэффициенты на основании конечной единицы
КонечныйКоэффициент = ТекущиеДанные.Родитель.Коэффициент;
КоличествоУпаковок = ТекущиеДанные.КоличествоУпаковок;
Результат = КонечныйКоэффициент*КоличествоУпаковок;
7. Ну и, конечно же наименование, которое формируется из текущих данных по штатным алгоритмам таким кодом и вроде даже проверяется на уникальность не позволяя задвоить упаковку:
Результат = СокрЛП(СокрЛП(ТекущиеДанные.ЕдиницаИзмерения) + " (" + Формат(ТекущиеДанные.Коэффициент,"ЧРД=.") + " " + СокрЛП(ТекущиеДанные.Родитель.ЕдиницаИзмерения) + ")");
Ну, вот как-то так.
В общем и целом данной обработкой можно делать много чего.
Надеюсь кому нибудь это пригодится.
При загрузке использовались исключительно материалы данной статьи и ветки форума, за что авторам огромное спасибо.
цена1 = 0.86;
цена2 = ТекстыЯчеек[24];
выражение1 = цена2*цена1;
Результат = Вычислить(выражение1);Ошибка компиляции при вычислении выражения или выполнении фрагмента кода: {(1,3)}: Ошибка в выражении
Преобразование значения к типу Число не может быть выполнено
Вот вариант, без создания единиц хранения остатков при создании. Подходит? Не проверял, как работает, но синтаксических ошибок нет. Предусмотрен вариант ошибки , что артикул или строка, по которому ведется поиск, незаполнен.
АртикулДляПоиска=СокрЛП(ТекстыЯчеек[40]);
Если НЕ ЗначениеЗаполнено(АртикулДляПоиска) Тогда
Режим = РежимДиалогаВопрос.ДаНет;
Ответ = Вопрос("Пустая строка для поиска, возможен иной результат", Режим);
Если Ответ = КодВозвратаДиалога.Да Тогда
//
Иначе
Возврат 0;
КонецЕсли;
КонецЕсли;
Запрос=новый Запрос;
Запрос.Текст="
| ВЫБРАТЬ
| Номенклатура.Ссылка,
| Номенклатура.Код,
| Номенклатура.Артикул,
| Номенклатура.Поставщик
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Артикул = &kjhgfd
//| И Номенклатура.Поставщик = &fghjk
|";
Запрос.УстановитьПараметр("fghjk",АртикулДляПоиска);
РезультатЗ = Запрос.Выполнить().Выгрузить();
РезультатЗапроса = Запрос.Выполнить();
//Если НЕ РезультатЗапроса.Пустой() Тогда
// СтрокаРезультата = РезультатЗапроса.Выгрузить()[0];
// Ссылка=СтрокаРезультата.Ссылка ;
//КонецЕсли;
Если РезультатЗапроса.Пустой() Тогда
Объект=Справочники.Номенклатура.СоздатьЭлемент();
Объект.Артикул=АртикулДляПоиска;
Объект.БазоваяЕдиницаИзмерения=Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796");
Попытка
Объект.Записать();
Результат=Объект.Ссылка;
Исключение
Сообщить("Не удалось записать "+СокрЛП(ОписаниеОшибки()));
КонецПопытки;
Иначе
СтрокаРезультата = РезультатЗапроса.Выгрузить()[0];
Результат=СтрокаРезультата.Ссылка ;
КонецЕсли;
ПоказатьПопробовал загружать номенклатуру без идентификации по артикулу и коду. Вот, например код, который вставляется "Нумерация объектов-События-При записи объектов"
Мне понравилась идея вместо постоянной писанины обработок сразу создать номенклатуру, штрихкод, единицы измерения БЕЗ ПОВТОРНЫХ запусков. Ну. знаете, например, чекбокс "не создавать новые" и т.п. Но быдьте осмотрительны, ИДЕНТИФИКАЦИИ по коду\артикулу нет. Это уже самостоятельно :)
КолонкаШтрихкоды=-3; //если не заполнена или неохота записывать -1
//если пусто -1
Спр=Объект.Ссылка.ПолучитьОбъект();
СсылкаНоменклатуры=Объект.Ссылка;
БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796");
ТекСпр=Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("ЕдиницаПоКлассификатору",БазоваяЕдиницаИзмерения,,СсылкаНоменклатуры);
//Сообщить(ТекСпр.Пустая());
Если ТекСпр.Пустая() Тогда
НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = БазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = СсылкаНоменклатуры;
Попытка НайденнаяЕдиницаОбъект.Записать();
СпрКод=Справочники.Номенклатура.НайтиПоКоду(СсылкаНоменклатуры.Код).ПолучитьОбъект();
Объект.ЕдиницаДляОтчетов = НайденнаяЕдиницаОбъект.Ссылка;
Объект.ЕдиницаХраненияОстатков = НайденнаяЕдиницаОбъект.Ссылка;
Объект.ЕдиницаИзмеренияМест= НайденнаяЕдиницаОбъект.Ссылка;
Исключение Сообщить("Не удалось записать еденицу "+" "+ ОписаниеОшибки());
КонецПопытки;
//Сообщить(Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("ЕдиницаПоКлассификатору",БазоваяЕдиницаИзмерения,,СсылкаНоменклатуры).Пустая());
КонецЕсли;
Объект.Записать();
Если КолонкаШтрихкоды>0 И ЗначениеЗаполнено(СокрЛП(ТекстыЯчеек[КолонкаШтрихкоды])) Тогда
Запрос=новый Запрос;
Запрос.Текст="
|ВЫБРАТЬ
| Штрихкоды.Штрихкод,
| Штрихкоды.Владелец.Ссылка,
| Штрихкоды.Владелец.Код Код,
| Штрихкоды.ХарактеристикаНоменклатуры.Ссылка,
| Штрихкоды.ХарактеристикаНоменклатуры.Наименование
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Штрихкод = &lkjhgfds
//| И Штрихкоды.ХарактеристикаНоменклатуры.Наименование ПОДОБНО &srgdthfyjuki
|";
Запрос.УстановитьПараметр("lkjhgfds",СокрЛП(ТекстыЯчеек[КолонкаШтрихкоды]));
//Запрос.УстановитьПараметр("srgdthfyjuki",СокрЛП(?(Результат.ВГраница()>=ХаракНоменклатуры, СокрЛП(Результат[ХаракНоменклатуры]), "")));
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
СтрокаРезультата = РезультатЗапроса.Выгрузить()[0];
длорпавы = СтрокаРезультата.Код;
Xcvghjkjbv("нашли владельца штрихкода, "+Строка(длорпавы)+" "+Строка(СтрокаРезультата.ВладелецСсылка)) ;
Иначе
Запись= РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
Запись.Штрихкод = СокрЛП(ТекстыЯчеек[КолонкаШтрихкоды]);
Запись.Владелец = СсылкаНоменклатуры;
Запись.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
Запись.ЕдиницаИзмерения = СсылкаНоменклатуры.ЕдиницаХраненияОстатков;
Запись.Качество = Справочники.Качество.НайтиПоНаименованию("Новый");
Попытка
Запись.Записать(Истина);
Исключение
Xcvghjkjbv("Не удалось записать ШК: "+" для элемента: "+Строка(Объект)+" "+СокрЛП(Объект.Код)+" ||| "+ ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
КонецЕсли;
ПоказатьВот ошибка:
Ячейка[R2C5](Характеристика номенклатуры): Не найден
Добавлена запись № 1.
прикрепляю файл который пробовал загрузить.
Думаю, подход к делу надо изменить. В настройках.
1) Качество - устанавливать
2) Единицы измерения - вычислять
"Я Пойду по другому пути" (с)DJ Ленин :) То есть решил
Итак, характеристики можно добавить так например, извините на неправильное названия переменных, написанных впопыхах)
Если (Какое то условие, что цена ОТЛИЧАЕТСЯ и надо вводить характеристику) Тогда
ЗапросХНА=новый Запрос;
ЗапросХНА.Текст="
| ВЫБРАТЬ
| ХарактеристикиНоменклатуры.Ссылка,
| ХарактеристикиНоменклатуры.Владелец.Код
|from
| Справочник.ХарактеристикиНоменклатуры КАК ХарактеристикиНоменклатуры
|where
| ХарактеристикиНоменклатуры.Наименование ПОДОБНО &харнаим
| И ХарактеристикиНоменклатуры.Владелец = &харнокод
| И НЕ ХарактеристикиНоменклатуры.ПометкаУдаления
|";
ЗапросХНА.УстановитьПараметр("харнокод",НоменклЦ);
ЗапросХНА.УстановитьПараметр("харнаим",ХарактеристикаНаименованиеЕ);
РезультатПустой1 = ЗапросХНА.Выполнить().Пустой();
Если РезультатПустой1 И УстанавливатьХарактеристикиНовые Тогда
Характеристика = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
Характеристика.Владелец = НоменклЦ;
Характеристика.Наименование = ХарактеристикаНаименование;
Попытка
Характеристика.Записать();
новШк = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
новШк.Владелец = НоменклЦ;
новШк.ЕдиницаИзмерения = НоменклЦ.ЕдиницаХраненияОстатков;
новШк.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
новШк.Качество = Справочники.Качество.Новый;
новШк.Штрихкод = РаботаСТорговымОборудованием.СформироватьШтрихКод();
новШк.ХарактеристикаНоменклатуры = Характеристика.Ссылка;
новШк.Записать();
Исключение
Сообщить(СокрЛП(ОписаниеОшибки())) ;
КонецПопытки;
Иначе
Сообщить(СокрЛП(СокрЛП(ТекстыЯчеек[1]))+";"+СокрЛП(ХарактеристикаНаименование)+";"+СокрЛП(ЦенаНоменклатуры)+";"+Формат((Строка(БазоваяЦцена)), "ЧЦ=13; ЧДЦ=0; ЧГ=0"));
КонецЕсли;
Иначе
Сообщить(СокрЛП(СокрЛП(ТекстыЯчеек[1]))+";"+СокрЛП("")+";"+СокрЛП(ЦенаНоменклатуры)+";"+Формат((Строка(БазоваяЦцена)), "ЧЦ=13; ЧДЦ=0; ЧГ=0"));
КонецЕсли;
ПоказатьЭто преступление, давать грязный кусок кода. Не знаю, что поможет тебе Kuthor , приаттаченая настройка или подробнее история1 или история2 ? С утра попробую разобраться в вопросе)) Обратил внимание на рисунок настроек. Как и говорил, предлагаю свой вариант (приаттаченный скрин настроек). ЧЕМ ОН НЕУДОБЕН ?
По крайней мере, ОБРАБОТКА ОШИБКИ - "ХАРАКТЕРИСТИКА НЕ НАЙДЕНА" в ЭТОМ ответе есть. Если честно - один товар - много характеристик - это История3 Какая из историй будет полезна?
Ошибка компиляции при вычислении выражения или выполнении фрагмента кода: {(2,14)}: Переменная не определена (СсылкаНоменклатуры)
как это лечить? или может код не правильный?
1)СсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоНаименованию(ТекущиеДанные["Владелец"]); Результат=СсылкаНоменклатуры.ЕдиницаХраненияОстатков;
2)CсылкаНоменклатуры = Справочники.Номенклатура.НайтиПоНаименованию(ТекущиеДанные["Владелец"]); Результат=СсылкаНоменклатуры.ЕдиницаХраненияОстатков;
тесты идентичны, с номером 1 работает, а с номером 2 нет.
А иногда до ступора доходит и во внешней обработке проверяю орфографию, начав текст примерно так
ТекстыЯчеек= Новый Массив;
СсылкаН=Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ТекстыЯчеек[1]));Да, ошибки будут постоянно. 1С - это тоже ошибка. Исправление старых багов и создание новых )) Но мне для ведения учета вполне, тьфу-тьфу, хватает. АВС и XYZ анализ проводить, например.
Весьма интересно все-таки знать продукт. Например зачастую очень удобно большие данные обрабатывать не внешней обработкой, а применять встроенные отчеты и обработки. Правда, пока не могу "вырасти" до покупки ИТС и подключаемых платных модулей, кроме типовых. Все-таки не внешней обработкой , а этой вот ЗагрузкаДанныхИзТабличногоДокумента.epf, речь о которой идет в этой статье. Мда-а-а, я философ? Нет, так, пару строк написал, чтобы поисковый идекс статья попала и упоминание про УниверсальныеПодборИОбработкаОбъектов.epf
Простите, Kutnor, увлекся... :) Если ближе к делу, стал подгружать ШК из внешнего файлика. Почему? Для загрузки 23000 штрихкодов - это удобнее, чем копипастить в таблицу. Вот пример для УниверсальныеПодборИОбработкаОбъектов.epf
Вот файлик c:\bcode.txt
1709009-4;4620769209832;
1709009-5;4620769209917;
1709009-6;4620769209849;
В обработка\настройка - произвольный алгоритм Универсальной Подбора И Обработки Объектов вставил код
Текст = "";
Запр = Новый Запрос("
| ВЫБРАТЬ
| Штрихкоды.Штрихкод как Код,
| Штрихкоды.Владелец.Ссылка
| ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
| ГДЕ
| Штрихкоды.Владелец.Ссылка = &Товар ");
Запр.УстановитьПараметр("Товар", Объект.Ссылка);
ВыбМ = Запр.Выполнить().Выбрать();
ВыбТ = Запр.Выполнить().Выгрузить();
Индекс = ВыбТ.Количество();
Если Индекс=0 Тогда
НазваниеФайла="c:\bcode.txt";
Текст = Новый ЧтениеТекста(НазваниеФайла, КодировкаТекста.ANSI);
Стр=""; Найдено=1; ШКСуществует=1;
СписокНоменклатуры = Новый СписокЗначений;
Пока Стр<>Неопределено Цикл
Стр = Текст.ПрочитатьСтроку();
Строк=СокрЛП(Стр);
Разделитель=Найти(Строк,";");
Если СтрДлина(Строк)>3 Тогда
КонецПервого=Разделитель;
Первое=СтрЗаменить(Сред(Строк,1,КонецПервого),";","");
Второе=СтрЗаменить(Сред(Строк,КонецПервого,СтрДлина(Строк)),";","");
Если СокрЛП(Объект.Артикул)=Первое Тогда
Если ЗначениеЗаполнено(Второе) Тогда
Для Каждого ЭлементМассива Из ВыбТ Цикл ШКСуществует=0;
Если СокрЛП(ЭлементМассива[0]) = СокрЛП(Второе) Тогда
Сообщить("Для арт.:"+СокрЛП(Объект.Артикул)+" уже существует ШК, предлагаемый для арт:"+СокрЛП(Первое)); ШКСуществует=1;Прервать;
КонецЕсли;
КонецЦикла;
Если НЕ ШКСуществует=1 Тогда
БуфернаяСтрока=СокрЛП(Второе);
Сообщить(Второе);
Если ОбщегоНазначения.ТолькоЦифрыВСтроке(БуфернаяСтрока) Тогда
Номенкл = Объект.Ссылка;
Запись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
Запись.Штрихкод = СокрЛП(БуфернаяСтрока);
Запись.Владелец = Номенкл;
Запись.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
Запись.ЕдиницаИзмерения = Номенкл.ЕдиницаХраненияОстатков;
Запись.Качество = Справочники.Качество.НайтиПоНаименованию("Новый");
Попытка Запись.Записать(Истина); Исключение Сообщить("Не удалось записать ШК: "+СокрЛП(БуфернаяСтрока)+" для элемента: "+Строка(Номенкл)+" "+СокрЛП(Номенкл.Код)+" ||| "+ ОписаниеОшибки()); КонецПопытки;
ИначеЕсли НЕ ОбщегоНазначения.ТолькоЦифрыВСтроке(БуфернаяСтрока) Тогда Сообщить("В буфере обмена нет данных формата EAN "+БуфернаяСтрока); КонецЕсли;
Иначе
Сообщить("-");
КонецЕсли;
Найдено=1;Прервать;
КонецЕсли;
Иначе
Найдено=0;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если НЕ Найдено=1 Тогда Сообщить("Для "+""+СокрЛП(Объект.Код)+" , арт.:"+СокрЛП(Объект.Артикул)+" не найдено .") ; КонецЕсли;
Текст.Закрыть();
КонецЕсли;
Показать... и ... ЗАРАБОТАЛО !!! :)))
а как перебрать и поставить с нужным размером ?
Родитель = Справочники.Номенклатура.НайтиПоНаименованию("ТМ БУМ",Истина);
Результат = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", ТекстЯчейки, Родитель);
????
Лучше-бы я не давал совет. Совет: Есть смысл перестроить справочник.
Плохой совет: ввести в Справочник.Номенклатура реквизит Размер (строка,фиксированная,10,индексировать)
+поиск по реквизиту облегчается
+очевидный списочный отбор
-эволюция трудна, при превышении 1000 ценников уже придется модифицировать структуру
Совет получше: ввести в Справочник.Номенклатура реквизит Размер (создать Справочник.Размеры)
+преимущество подбора размерного ряда
Идеальный вариант: 1.каждый товар вести учет характеристики
2. на каждый штрихкод установить характеристику и размер
+будет возможность легко обрабатывать большие объемы, больше 25000 ценников
+если есть сайт, обратил внимание, выбор по размеру и цвету? Думаю, идеальный вариант лучше
ПоказатьОтвет на вопрос
Предпочел-бы цифру из строки выбрать с помощью Regexp и построить выбор не по НайтиПоРеквизиту, а запросом. Вот в аттаче РаботаСЗапросами.epf
Вот примерно так,
стр="Строка с наименование р.599";
СтрокаАртикул="Артикул-Какой-то"
RegExp.IgnoreCase = Истина; //Игнорировать регистр
RegExp.Global = Истина; //Поиск всех вхождений шаблона
RegExp.MultiLine = Истина; //Многострочный режим
RegExp.Pattern = "([^0-9]*)([0-9]+)([^0-9]*)";
стр=RegExp.Replace(стр, "$2");
Если (RegExp.Test(стр)) Тогда
СтрокаЦифраРазмера=Стр;
Иначе
СтрокаЦифраРазмера="";
КонецЕсли;
Запрос=новый Запрос;
Запрос.Текст="
|ВЫБРАТЬ
| Номенклатура.Ссылка,
| Номенклатура.Наименование
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Артикул = &Артикул
| И Номенклатура.Наименование ПОДОБНО ""%"" + &ЦифраРазмера + ""%""
|";
Запрос.УстановитьПараметр("Артикул",СтрокаАртикул);
Запрос.УстановитьПараметр("ЦифраРазмера",СтрокаЦифраРазмера);
РезультатЗ = Запрос.Выполнить();
Результат = РезультатЗ.Выгрузить();
Для каждого СтрокаТЗ из РезультатЗ Цикл
КонецЦикла;
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
СтрокаРезультата = РезультатЗапроса.Выгрузить()[0];
Результат=СтрокаРезультата.Ссылка;
КонецЕсли; Показатьвозможно ошибки типов, не проверял.
Потом у нс расширился ассортимент характеристик и я подгрузил новые, поставил галочку не создавать новые.
Так он что сделал:
допустим есть товар пряжа из шерсти цвет черный 50 уп.
когда я загружал пряжу из хлопка цвет черный, он его не создал а взял и спер у пряжи из шерсти вместе с количеством.
теперь на складе лежит 50 уп. пряжи из шерсти, а в 1С их нет, зато есть пряжа из хлопка 50 уп.
кто подскажет как этого в будущем избежать и как мне теперь все это исправить.
то есть как я понял у характеристики есть 3 параметра:
1)Наименование
2)Номенклатура
3)ХарактеристикаНоменклатуры.Владелец
вот сейчас у меня у некоторых характеристик поля 2 и 3 разные, а должны быть одинаковые.
1. Легко можно загрузить сразу в первом проходе все Единицы измерения ( Единица для хранения остатков + Единица для отчетов )
Допустим "Базовую единицу" вы прописали откуда брать, тогда добавьте такой код в События (в настройках над таблицей) в заладку "При записи"
текБазоваяЕдиницаИзмерения = Объект.БазоваяЕдиницаИзмерения;
текСсылка = Объект.Ссылка;
Если НЕ ЗначениеЗаполнено(Объект.ЕдиницаХраненияОстатков) Тогда
ВыборкаЕдиниц = Справочники.ЕдиницыИзмерения.Выбрать(, текСсылка);
Если ВыборкаЕдиниц.Следующий() Тогда
НайденнаяЕдиница = ВыборкаЕдиниц.Ссылка;
Иначе
НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(текБазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = текБазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = текСсылка;
Попытка
НайденнаяЕдиницаОбъект.Записать();
НайденнаяЕдиница = НайденнаяЕдиницаОбъект.Ссылка;
Исключение
//Сообщить("Не удалось записать единицу хранения остатков: " + ОписаниеОшибки(), СтатусСообщения.Важное);
Отказ = Истина;
КонецПопытки;
КонецЕсли;
Если НЕ Отказ Тогда
Объект.ЕдиницаХраненияОстатков = НайденнаяЕдиница;
Объект.ЕдиницаДляОтчетов = НайденнаяЕдиница;
КонецЕсли;
КонецЕсли;
Показатьучтите что в этом коде нельзя использовать"Возврат"
2. Чтобы создать группу (родителя) автоматически, добавьте следующий код (в строку Родитель):
ИмяРодителя = ТекстЯчейки;
текГруппа = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ИмяРодителя),Истина);
Если текГруппа = Справочники.Номенклатура.ПустаяСсылка() Тогда
ГруппаНоменклатуры = Справочники.Номенклатура.СоздатьГруппу();
ГруппаНоменклатуры.Наименование = ИмяРодителя;
ГруппаНоменклатуры.Записать();
текГруппа = ГруппаНоменклатуры.Ссылка;
КонецЕсли;
Результат = текГруппа;
ПоказатьПример для одноуровневых справочников, для многоуровневых доработайте сами
Но учтите! По кнопке [Контроль заполнения] папки сразу создадутся! Можно вынести в "При записи".
Номенклатура поставщика отличается от нашей. В накладной поставщика есть штрих-коды, которые занесены в нашу номенклатуру.
Можно ли сделать так, чтоб обработка ЗагрузкаДанныхИзтабличногоДокумента искала штрихкод, а в документ поступления подставляла нашы наименования номенклатуры. Раньше, когда поставщик в своих накладных не использовал штрих-код мы выходили из положения так. в карточке номенклатуры наименование - наше наименование, полное наименование - наименование номенклатуры поставщика. и в настройке обработки в строке наименование ставили вычислять и такой код
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
| Номенклатура.Ссылка
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.НаименованиеПолное ПОДОБНО &НаименованиеПолное";
Запрос.УстановитьПараметр("НаименованиеПолное", ТекстЯчейки);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Если Выборка.Следующий() Тогда
Результат = Выборка.Ссылка;
Иначе
ОписаниеОшибки = "Не найдена ноиенклатура с полным наименованием " + ТекстЯчейки;
КонецЕсли;
Может его как-нибудь подправить, чтоб обработка брала из регистра штрих-коды?
Может поможет кто-нибудь?
При нажатии на кнопку загрузить выдает ошибку:
"Ошибка при вызове метода контекста (Вопрос)"
Нажимаю подробно выходит:
{ВнешняяОбработка.ЗагрузкаДанныхИзТабличногоДокумента.МодульОбъекта(946)}: Ошибка при вызове метода контекста (Вопрос)
Если Вопрос("Загрузить "+КоличествоЭлементов + ТекстВопросаИсточника, РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда
по причине:
Использование модальных окон в данном режиме запрещено!
Заранее огромное спасибо!
В номенклатуре есть много свойств, и на половине товаров вбиты значения этих свойств, в другой нет.
Как то можно из ексель импортировать значения свойств объектов для номенклатуры?
Наименований очень много, десятки тысяч
источник чтоли хотя бы указал
предыдущая ссылка на статью про загрузку накладной
оригинал вот
Добрый день!
Спасибо огромное за подробную инструкцию, но у меня проблем а в том, что по этой инструкции удается только создать новые артикулы, а как быть со старыми - нужно изменить артикулы, которые уже есть в 1С. Номенклатуры много, сейчас вот решили изменить полностью все кодировки артикульные. Если руками обрабатывать, то даже месяца времени не хватит. Может есть какие-то другие обработки групповые? Спасибо заранее!
если на все вопросы ответ "да", то пожалуйста, загружайте свои артикулы
Процедура КнопкаВыполнитьНажатие(Кнопка)
ВыборкаШК = РегистрыСведений.Штрихкоды.Выбрать();
Пока ВыборкаШК.Следующий() Цикл
Если ВыборкаШК.Владелец = ВыборкаШК.ЕдиницаИзмерения.Владелец Тогда
Продолжить;
КонецЕсли;
Если ВыборкаШК.Владелец.ЭтоГруппа Тогда
Продолжить;
КонецЕсли;
Состояние("Обрабатывается: " + ВыборкаШК.Владелец);
Запись = ВыборкаШК.ПолучитьМенеджерЗаписи();
Запись.Прочитать();
Запись.ЕдиницаИзмерения = Запись.Владелец.ЕдиницаХраненияОстатков;
Попытка
Запись.Записать()
Исключение
ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки())
КонецПопытки;
Состояние("Обрабатывается: ......");
КонецЦикла;
Сообщить("Обработка завершена!");
КонецПроцедуры
Показать
"сылкаНоменклатуры = Справочники.Номенклатура.НайтиПоНаименованию(ТекущиеДанные["Наименование"]);
БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(796);"
это я так понимаю код по классификатору "НайтиПоКоду(796)" у мея другой код конфиг для украины, ошибок не выдает но не ставит хотя код я изменил не пойму что не так
Вот только забыл установить "Код для Сборки" ... теперь не знаю как обновить номенклатуру))
Было бы хорошо, если бы еще была функция для перезаписи существующей номенклатуры
Вы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.
№ 97415
Создание 07.11.11 09:56
Обновление 10.12.11 12:31
Просмотры 202920
Загрузки 0
Рейтинг
226
Комментарии 133
Код открыт Не указано
Рубрики Перенос данных 1C Загрузка и выгрузка в Excel
Кому
Системный администратор
,
Разработчик
Тип файла Нет файла
Платформа 1С:Предприятие 8
Конфигурация 1С:Управление торговлей 10
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)