Загрузка прайса. УТ 10.3
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Приветствую всех!
Прислали мне прайс (см. картинку)
Я доработал свою же обработку по загрузке номенклатуры в 1с из эксель (для документов Поступление товаров и услуг) //infostart.ru/public/666516/
И получилось так, что не сложно было обучить менеджера загружать прайс в дальнейшем самостоятельно (см. картинку).
В дальнейшем на проекте автоматизации салона красок воспользовался данной обработкой для загрузки прайса пигментов разных цветов: каждый пигмент имеет название и номер цвета, цена зависит как от названия цвета, так и от номера цвета (см. картинку).
Для загрузки подобных прайсов (к слову сказать, в этой отрасли все прайсы двумерные) я доработал обработку следующим образом: обхожу табличный документ по горизонтали и вертикали - цикл в цикле - и для каждого сочетания НазваниеЦвета-НомерЦвета определяю и записываю цену (см. картинку)
Макет = ЭлементыФормы.ПолеТабличногоДокумента1;
Для К = 2 По Макет.ВысотаТаблицы Цикл
Для Н = 2 По Макет.ШиринаТаблицы Цикл
НазваниеЦвета = СокрЛП(Макет.Область(1,Н,1,Н).Текст);
НомерЦвета = СокрЛП(Макет.Область(К,1,К,1).Текст);
Цена = СокрЛП(Макет.Область(К,Н,К,Н).Текст);
Если Цена = "нет" Тогда
Продолжить;
КонецЕсли;
НайденныйЦвет = Справочники.НазваниеЦвета.НайтиПоНаименованию(НазваниеЦвета,Истина);
Если НЕ ЗначениеЗаполнено(НайденныйЦвет) Тогда
Об = Справочники.НазваниеЦвета.СоздатьЭлемент();
Об.Родитель = ГруппаЦветов;
Об.Наименование = НазваниеЦвета;
Об.Записать();
НайденныйЦвет = Об.Ссылка;
КонецЕсли;
НайденныйНомерЦвета = Справочники.НомерЦвета.НайтиПоНаименованию(НомерЦвета,Истина);
Если НЕ ЗначениеЗаполнено(НайденныйНомерЦвета) Тогда
Об = Справочники.НомерЦвета.СоздатьЭлемент();
Об.Родитель = ГруппаНомерЦвета;
Об.Наименование = НомерЦвета;
Об.Записать();
НайденныйНомерЦвета = Об.Ссылка;
КонецЕсли;
Попытка
Цена = Число(Цена);
Исключение
Продолжить;
Сообщить("Возникла ошибка строка " + К + " колонка " + Н);
КонецПопытки;
НЗ = РегистрыСведений.ЦеныЦветов.СоздатьНаборЗаписей();
НЗ.Отбор.НазваниеЦвета.Установить(НайденныйЦвет);
НЗ.Отбор.НомерЦвета.Установить(НайденныйНомерЦвета);
НЗ.Отбор.Период.Установить(Период);
Запись = НЗ.Добавить();
Запись.НазваниеЦвета = НайденныйЦвет;
Запись.НомерЦвета = НайденныйНомерЦвета;
Запись.Период = Период;
Запись.Цена = Цена;
НЗ.Записать();
КонецЦикла;
КонецЦикла;
К сожалению, на демо-УТ этот алгоритм не воспроизвести, поэтому выкладываю листинг алгоритма, который не включен в предлагаемую обработку. Просто, имея некоторый шаблон для работы с экселевскими данными, можно решать разнообразные задачи - в том числе загружать двумерные прайсы пигментов.
Представленная обработка тестировалась перед публикацией на платформе 8.3.11.3034 на демо-УТ 10.3.46.2.
1) [Расширение] УНФ. Список заказов + Структура подчиненности
2) [Расширение] УТ 11.4. Счет на оплату с факсимиле
3) [Расширение] БП 3.0. Список счетов/ Список реализаций + Связанные документы
Внешние обработки (не расширения!):
2) Список заказов поставщикам + структура подчиненности
3) Список заказов покупателей + структура подчиненности
4) Список реализаций со структурой подчиненности + реестр документов
5) Список заказов покупателей (Расширенная версия)
Другие публикации:
1) Удаление справочников для любых баз на управляемых формах
2) Удаление документов для любых баз на управляемых формах
3) Удаление чеков ККМ в Рознице 2.2
4) Загрузка товаров, штрихкодов, цен и остатков на УФ - Розница 2.2
5) Отчет Остатки и цены (прайс с остатками)
7) [ЦФшник] Доработка конфигурации Конвертация Данных
Вступайте в нашу телеграмм-группу Инфостарт
См. также
17284 руб.
26.04.2016 687963 1571 669
5490 руб.
12.08.2021 48385 654 71
6000 руб.
11.12.2019 67991 1163 3
12444 руб.
29.10.2014 237820 777 544
6000 руб.
26.11.2020 51237 865 4
6000 руб.
01.03.2021 13413 88 0
