Диадок, модуль 1С - заполнение полей с дополнительной информацией

Диадок, модуль 1С — заполнение полей с дополнительной информацией

Некоторые контрагенты для настройки электронного обмена документами требуют заполнения специальных полей ИнфПолФХЖ1 и ИнфПолФХЖ2 дополнительной информацией.

Категория: Публикации 1С

Подробнее

Описание
Подробнее

Описание

Например:
https://kazan.megastroy.com/edo

— В дополнительном текстовом поле документа ЭДО (XML) должен быть указан GLN магазина «Мегастрой» согласно нижеприведенному примеру:

<ИнфПолФХЖ1>
<ТекстИнф Идентиф="грузополучатель" Значен="4604985999975" />
</ИнфПолФХЖ1>
</СвСчФакт>

— В дополнительном текстовом поле табличной части документа ЭДО (XML) должны быть указаны международные штрих-кода номенклатуры EAN-13 или EAN-8 формата согласно нижеприведенном примере:

<ТаблСчФакт>
    <СведТов НалСт="X" НомСтр="1" X" ОКЕИ_Тов="X" КолТов="X" ЦенаТов="X" СтТовБезНДС="X" СтТовУчНал="X">
    <Акциз>
      <БезАкциз>X</БезАкциз>
  </Акциз>
  <СумНал>
      <СумНДС>X</СумНДС>
  </СумНал>
  <ИнфПолФХЖ2 Значен="4610001691112" Идентиф="штрихкод"/>
</СведТов>

Быстро разобраться мне помогла статья — //sale.itcity.ru/1c/articles/1247892/, за что автору этой статьи благодарность. А ниже привожу пример рабочей процедуры в подключаемом модуле:

  Процедура _ОбработатьДляАгавы(СсылкаНаДокумент, Протоконтент)
        
  
  //в моем случае GLN хранится в доп свойстве документа сч.фактура выданный  - "GLN"    
      _СвойствоGLN = УправлениеСвойствами.НаборСвойствПоИмени("GLN");
      GLN = УправлениеСвойствами.ЗначениеСвойства(СсылкаНаДокумент,_СвойствоGLN);
      //Сообщить(""+СсылкаНаДокумент+" GLN:"+GLN);
       
  
  ДополнитьМассивKeyValue(Протоконтент.AdditionalInfoId.StructedAdditionalInfos, "грузополучатель", Строка(GLN));
  
      КоллекцияСтрок = Протоконтент.Table.Items;
      
      Для Каждого Элемент Из КоллекцияСтрок Цикл
            
          Номенклатура     = Справочники.Номенклатура.НайтиПоКоду(Элемент.ItemVendorCode);
          
          ШХ = _ПолучитьШтрихКод(Номенклатура);
          Если НЕ ЗначениеЗаполнено(ШХ) Тогда
              Сообщить("("+Номенклатура.Код+") " + Номенклатура.Наименование + " - не указан ШХ!", СтатусСообщения.Важное);
          КонецЕсли;
          
          ДополнитьМассивKeyValue(Элемент.StructedAdditionalInfos
              , "штрихкод"
              , ШХ);
              
          //Сообщить(ШХ); 
  
  
      КонецЦикла;
  КонецПроцедуры

Тестировалось на:

1С:Предприятие 8.3 (8.3.18.1289)

Бухгалтерия предприятия, редакция 3.0 (3.0.89.34)

Каталог решений - Диадок, модуль 1С — заполнение полей с дополнительной информацией