!          . ?

  Data
gContact   Group(Dia:G_Contact).             !    .
gDataInfo  Group(Dia:G_DataInfo).            !   
qDocPack   Queue(Dia:Q_DocPack).             !  

  Code  
  !     
  Clear(gContact)
  gContact.sApiKey         = _ApiKeyDiadoc_  !  API  .
  gContact.sUser           = ''  !   
  gContact.sPass           = ''        !  
  gContact.lDebugCodePage  = CP_UTF8         !     (  = -1 / CP_UTF8 / CP_ACP)
  gContact.bSilentMode     = False           !       
   
  !      
  Dia::AccessCheck(gContact)    
  
  
  !   ID   .  
  Clear(gDataInfo)
  gDataInfo.bRequest       = 1               !  : 1 = ID 
  gDataInfo.sInn           = ''           ! 
  gDataInfo.sKPP           = ' ()'   ! 
                            
  !  ID     .  
  If Dia::GetInfo(gContact,gDataInfo) then ID  = gDataInfo.sEDO.    
  

  !           .    
  Clear(qDocPack)    !   .
  qDocPack.EdoFrom   = 'ID   ()'
  qDocPack.EdoTo     = 'ID    ()'
  qDocPack.FileName1 = '  XML    '
  qDocPack.VDoc      = 2  !  
  Add(qDocPack)    
  
  Dia::PostPack(gContact,qDocPack)  !  