Правила обмена для непериодических, независимых РС

Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

1С:Конвертация данных

1. VID1234 146 01.10.24 11:07 Сейчас в теме

Здравствуйте. Подскажите пожалуйста, начал осваивать КД 3, есть в ЕРП и ЗУП РС графики работ по видам времени. Он заполняется в момент записи справочника график работы сотрудника. Соответственно, форма после повторного открытия элемента, заполняется данными с этого регистра сведений. Настроил регистрацию и справочника и РС, также настроил и выгрузку. Т.е. в файлике появляются данные регистра сведений, даже при загрузке в ЕРП, синхронизация показывает успешное выполнение, но по факту график есть, а записей в рс нет, соответственно при открытии графика таблица пустая: скрин в закрепе. И сам вопрос, что нужно поставить в ПОД или ПКО, чтобы корректно загружался РС?

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. VID1234 146 01.10.24 14:46 Сейчас в теме

Короче обработчик "перед выгрузкой" в ПОД добавил это:

// Необходимые поля отбора
ПоляОтбора=Новый Массив;
//ПоляОтбора.Добавить("Период");  // У подчиненного регистратору всегда есть
МетаданныеРегистра=Метаданные.НайтиПоТипу(ТипЗнч(Объект));
Для каждого МетаИзмерение Из МетаданныеРегистра.Измерения Цикл
    ПоляОтбора.Добавить(МетаИзмерение.Имя);    
КонецЦикла;

Отбор = Новый ТаблицаЗначений;
Отбор.Колонки.Добавить ("Имя");
Отбор.Колонки.Добавить ("Значение");
Отбор.Колонки.Добавить ("Использование");

Строки=Объект.ВыгрузитьКолонки();

Для каждого Запись Из Объект Цикл
    Отбор.Очистить();
    Строки.Очистить();
    
    Для каждого ИмяПоля Из ПоляОтбора Цикл
        СтрокаОтбора = Отбор.Добавить();
        СтрокаОтбора.Имя              =     ИмяПоля;
        СтрокаОтбора.Значение         =     Запись[ИмяПоля];
        СтрокаОтбора.Использование    =     Истина;
    КонецЦикла;
    
    ЗаполнитьЗначенияСвойств(Строки.Добавить(),Запись);
    
    НаборЗаписей = Новый Структура("Отбор, Строки");
    НаборЗаписей.Отбор     = Отбор;
    НаборЗаписей.Строки = Строки;
    
    ВыгрузитьРегистр(НаборЗаписей,,,,ИмяПКО);
КонецЦикла;
Отказ=Истина;

Показать

Оставьте свое сообщение

E-mail: