Всем доброго дня, дорабатываю правила обмена между УТ 10- розница 1.0 через КД. Мне нужно из справочника серии номенклатуры УТ передать серийный номер и там создать Элемент справочника серийные номера(с владельцем Номенклатура) т создать штрихКод с владельцем (элемент Серийный номер ). Серийный номер с владельцем Номенклатура создается, а вот штрихКод как?
По теме из базы знаний
- Подсистема "Обмен данными по произвольным правилам КД 2.x"
- Синхронизация и обмен для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ и других с EnterpriseData (универсальный формат обмена), правила обмена
- Обмен через универсальный формат. Пример нестандартной конвертации данных
- Конвертация данных из 1С 8.3 в 7.7 (версия КД 2.1). Перенос данных из 8.3 в 7.7. Создание в современной 1С 8.3 XML в формате КД2. Инструкции и примеры переноса данных из любой современной 1С 8.3 в устаревшую конфигурацию 1С 7.7, через Конвертацию данных 2
- "Обновление через копию" - как это использовать?
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
нужно передать так УТ Справочник СерииНоменклатуры- Серийныйномер (владелец номенклатура )-> РегистрСведений штрихкоды -Штрихкод (владелец Справочник серийные номера) т создать этот серийный номер
или передать в Справочник серийные номера и там програмно изменять Штрихкод
или передать в Справочник серийные номера и там програмно изменять Штрихкод
(6) я перенес серию Номенклатуры в Серийный номер розницы после выгрузки хочу создать штрихкод, но штрихкод создает без владельца , т.к. серийный номер новый и еще не записан
НаборЗаписей = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Владелец.Установить(Объект);
НаборЗаписей.Прочитать();
Если НаборЗаписей.Количество() = 0 Тогда
НовыйНомер = НаборЗаписей.Добавить();
НовыйНомер.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 ;
НовыйНомер.ШтрихКод = Объект.КодСерийногоНомера;
ИначеЕсли НаборЗаписей.Количество() = 1 Тогда
НовыйНомер = НаборЗаписей[0];
НовыйНомер.ШтрихКод = Объект.КодСерийногоНомера;
КонецЕсли;
НаборЗаписей.Записать(); Показать
(19)Без ваших конфигураций и баз конечно сложновато. Попробуйте создать ПВД с произвольным алгоритмом. Запросом собирите данные по нужны сериям. Создайте структуру и ВыгрузитьПоПравилу.
ПКО с пустым источником. Получить из входящих данных.
Текст ПВД
Примерно как-то так.
ПКО с пустым источником. Получить из входящих данных.
Текст ПВД
Запрос = Новый Запрос;
Запрос.Текст =
"";
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ВходящиеДанные = Новый Структура();
ВходящиеДанные.Вставить("Владелец" , Выборка.Владелец);
ВходящиеДанные.Вставить("Штрихкод" , Выборка.Штрихкод);
ВходящиеДанные.Вставить("ТипШтрихкода" , Выборка.ТипШтрихкода);
ВходящиеДанные.Вставить("ПредставлениеШтрихкода", Выборка.ПредставлениеШтрихкода);
ВыгрузитьПоПравилу(Выборка.Владелец, , ВходящиеДанные, , "СерииВШтрихкодыРегистр");
КонецЦикла;
КонецЕсли;
ПоказатьЗапрос.Текст =
"";
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ВходящиеДанные = Новый Структура();
ВходящиеДанные.Вставить("Владелец" , Выборка.Владелец);
ВходящиеДанные.Вставить("Штрихкод" , Выборка.Штрихкод);
ВходящиеДанные.Вставить("ТипШтрихкода" , Выборка.ТипШтрихкода);
ВходящиеДанные.Вставить("ПредставлениеШтрихкода", Выборка.ПредставлениеШтрихкода);
ВыгрузитьПоПравилу(Выборка.Владелец, , ВходящиеДанные, , "СерииВШтрихкодыРегистр");
КонецЦикла;
КонецЕсли;
Примерно как-то так.
Прикрепленные файлы:
На своём пример, правда чуть чуть другое, создаю сейчас правила для миграции из Штрих-М Управление предприятием 7 в УТ 11.4, из штриха справочник ШтрихКоды передаются элементы в регистр сведений ут ШтрихкодыНоменклатуры. В вашем случае (посмотрел у себя в ут 10.3) нужно передать из РС Штрихкоды скорее всего в справочник Розницы (не могу точнее подсказать так как у меня нет такой конфигурации).
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот