Как передать и прочитать значение через AdditionalInfo
подскажите как правильно конвертировать значение реквизита "Направление деятельности" (Справочник "Направление деятельности") конфигурации ЕРП (В ЕРП это реквизит шапки документа) в реквизит "Номенклатурная группа" (Справочник "Номенклатурная группа") конфигурации Бухгалтерия (В бухгалтерии это значение строки табличной части).
В данный момент пошел путем передачи значения через AdditionalInfo.- ниже код
Основная проблема с чтением значения на стороне Бухгалтерии. Прочитать значение и найти его по наименованию могу без проблем. Но не получается автоматически создать элемент "номенклатурной группы" если он отсутствует в базе приемнике.
В данный момент пошел путем передачи значения через AdditionalInfo.- ниже код
AdditionalInfoВставить(ДанныеXDTO, "НаправлениеДеятельности", Новый Структура("Значение, ИмяПКО", ДанныеИБ.НаправлениеДеятельности, "ПТД_НаправлениеДеятельностиВГруппуАналитическогоУч"));
Основная проблема с чтением значения на стороне Бухгалтерии. Прочитать значение и найти его по наименованию могу без проблем. Но не получается автоматически создать элемент "номенклатурной группы" если он отсутствует в базе приемнике.
По теме из базы знаний
Найденные решения
(4)
По данному варианту реализовал вот так
На стороне ЕРПИ поместил данные
На стороне Бухгалтерии прочитал, выполнил поиск, если не нашёл, то создал программно...
По данному варианту реализовал вот так
На стороне ЕРПИ поместил данные
AdditionalInfoВставить(ДанныеXDTO, "НаправлениеДеятельности", ДанныеИБ.НаправлениеДеятельности.Наименование);
На стороне Бухгалтерии прочитал, выполнил поиск, если не нашёл, то создал программно...
Если ДанныеXDTO.Свойство("AdditionalInfo") И ТипЗнч(ДанныеXDTO.AdditionalInfo)=Тип("Структура") Тогда //ED
ДопДанные = ДанныеXDTO.AdditionalInfo;
Если ДопДанные.Свойство("НаправлениеДеятельности") Тогда
НаправлениеДеятельности = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию(ДопДанные.НаправлениеДеятельности, Истина);
Если НаправлениеДеятельности.Пустая() И ДопДанные.НаправлениеДеятельности <> "" Тогда
НовыйОбъект = Справочники.НоменклатурныеГруппы.СоздатьЭлемент();
НовыйОбъект.Наименование = ДопДанные.НаправлениеДеятельности;
НовыйОбъект.Записать();
НаправлениеДеятельности = НовыйОбъект.Ссылка;
КонецЕсли;
КонецЕсли;
Если ДопДанные.Свойство("СкладМатериалов") Тогда
СкладМатериалов = Справочники.Склады.НайтиПоНаименованию(ДопДанные.СкладМатериалов,Истина);
КонецЕсли;
КонецЕсли;
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4)
По данному варианту реализовал вот так
На стороне ЕРПИ поместил данные
На стороне Бухгалтерии прочитал, выполнил поиск, если не нашёл, то создал программно...
По данному варианту реализовал вот так
На стороне ЕРПИ поместил данные
AdditionalInfoВставить(ДанныеXDTO, "НаправлениеДеятельности", ДанныеИБ.НаправлениеДеятельности.Наименование);
На стороне Бухгалтерии прочитал, выполнил поиск, если не нашёл, то создал программно...
Если ДанныеXDTO.Свойство("AdditionalInfo") И ТипЗнч(ДанныеXDTO.AdditionalInfo)=Тип("Структура") Тогда //ED
ДопДанные = ДанныеXDTO.AdditionalInfo;
Если ДопДанные.Свойство("НаправлениеДеятельности") Тогда
НаправлениеДеятельности = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию(ДопДанные.НаправлениеДеятельности, Истина);
Если НаправлениеДеятельности.Пустая() И ДопДанные.НаправлениеДеятельности <> "" Тогда
НовыйОбъект = Справочники.НоменклатурныеГруппы.СоздатьЭлемент();
НовыйОбъект.Наименование = ДопДанные.НаправлениеДеятельности;
НовыйОбъект.Записать();
НаправлениеДеятельности = НовыйОбъект.Ссылка;
КонецЕсли;
КонецЕсли;
Если ДопДанные.Свойство("СкладМатериалов") Тогда
СкладМатериалов = Справочники.Склады.НайтиПоНаименованию(ДопДанные.СкладМатериалов,Истина);
КонецЕсли;
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот