#include "hxml.ch" 
 Proc main 
 local oXml,oXmlDoc 
 local zvhash:={=>} 
 local sdhash:={} 
 local npp:=0 
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
  
 REQUEST HB_CODEPAGE_UTF16LE ,HB_CODEPAGE_UTF8 ,HB_CODEPAGE_UTF8EX    
  
 REQUEST HB_CODEPAGE_RU866  
  
 hb_cdpSelect( "RU866" ) 
  
  
 cc:=hb_MemoRead(hb_DirBase()+"orders.plist") 
 oXml := HXMLDoc():ReadString( cc )  
   if oXml==nil 
 return nil 
   endif 
  
  
 o:=oXml:find("plist") 
   if o==nil 
 return nil 
   endif 
  
 o1:=o:find("array") 
   if o1==nil 
 return nil 
   endif 
  
  
    for i=1 to len(o1:aitems) 
 k:=o1:aitems[ i ] 
  if k==nil 
 return nil 
  endif   
 zvhash:={=>} 
 sdhash:={=>} 
 as:={} 
 npp:=0 
  
    if k:title=="dict" 
  
         for j=1 to len(k[3]) 
        if k[3][j]:title=="key" 
   
              if len(k[3][j+1]:aitems)#0 .and. k[3][j+1]:title=="string" 
 zvhash[k[3][j]:aitems[1]]:=HB_UTF8TOSTR(k[3][j+1]:aitems[1],"RU866") 
              endif 
  
        elseif  k[3][j]:title=="array" // содержимое 
  
    if len(k[3][j]:aitems)#0 
              for kk=1 to len(k[3][j]:aitems) 
  
                        if k[3][j]:aitems[kk]:title=="dict" 
    
     if hb_isarray(k[3][j]:aitems[kk][3]) .and. len(k[3][j]:aitems[kk][3])#0 
 as:={} 
                for jj=1 to len(k[3][j]:aitems[kk][3]) 
                   if k[3][j]:aitems[kk][3][jj]:title=="key" 
                        if len(k[3][j]:aitems[kk][3][jj+1]:aitems)#0 .and. k[3][j]:aitems[kk][3][jj+1]:title=="string" 
 aadd(as,{k[3][j]:aitems[kk][3][jj]:aitems[1],HB_UTF8TOSTR(k[3][j]:aitems[kk][3][jj+1]:aitems[1],"RU866")}) 
                        endif 
                   endif 
                next 
 npp++ 
 sdhash[npp]:=aclone(as) 
  
      endif                   
                         
                        endif 
              next 
    endif 
  
  
  
        endif 
  
         next 
  
 ? hb_valtoexp(zvhash) 
 ? hb_valtoexp(sdhash) 
 *** получили 2 массива , заголовок заявки и ее содержимое , пишем в базу 
 wait 
    endif   
   next      
  
 return nil 
  
 

 
 FUNCTION Init_Stru( cFile ) 
 LOCAL i,j,k,n 
  
  IF empty(_aOrder) 
     _aOrder := {} // tag name                          Field struct             названия на док.\формах 
     aAdd(_aOrder, {"XmlFileName"                 , { "FL_0" , "C" ,  80 , 0 }, "Xml file name"}) 
     aAdd(_aOrder, {"DocumentReceiveDateTime"     , { "DH_1" , "C" ,  20 , 0 }, "Document receiving date" }) 
     aAdd(_aOrder, {"DocumentProcessDateTime"     , { "DH_2" , "C" ,  20 , 0 }, "Document processing date" }) 
     aAdd(_aOrder, {"DocumentType"                , { "DH_3" , "C" ,  35 , 0 }, "Document type" }) 
     aAdd(_aOrder, {"DocumentSource"              , { "DH_4" , "C" ,   1 , 0 }, "Document Source" }) 
     aAdd(_aOrder, {"OrderNumber"                 , { "OH_1" , "C" ,  35 , 0 }, "Order number" }) 
     aAdd(_aOrder, {"OrderDate"                   , { "OH_2" , "C" ,  10 , 0 }, "Order date" }) 
     aAdd(_aOrder, {"OrderCurrency"               , { "OH_3" , "C" ,   3 , 0 }, "Order Currency" }) 
     aAdd(_aOrder, {"ExpectedDeliveryDate"        , { "OH_4" , "C" ,  10 , 0 }, "Expected delivery date" }) 
     aAdd(_aOrder, {"DocumentFunctionCode"        , { "OH_5" , "C" ,   1 , 0 }, "3/4/9/O/R. O-original, R-return" }) 
     aAdd(_aOrder, {"SenderILN"                   , { "DP_1" , "C" ,  13 , 0 }, "ILN of Document Sender" }) 
     aAdd(_aOrder, {"ReceiverILN"                 , { "DP_2" , "C" ,  13 , 0 }, "ILN of Document Receiver" }) 
     aAdd(_aOrder, {"BuyerILN"                    , { "OP_1" , "C" ,  13 , 0 }, "ILN of buyer" }) 
     aAdd(_aOrder, {"BuyerName"                   , { "OP_2" , "C" ,  80 , 0 }, "Buyer name" }) 
     aAdd(_aOrder, {"OperatorName"                , { "OP_3" , "C" ,  40 , 0 }, "Name of Person who creates the order" }) 
     aAdd(_aOrder, {"OperatorTelephoneNumber"     , { "OP_4" , "C" ,  35 , 0 }, "First telephone no.: dialling" }) 
     aAdd(_aOrder, {"OperatorE-mail"              , { "OP_5" , "C" ,  80 , 0 }, "E-Mail Address of Operator" }) 
     aAdd(_aOrder, {"SellerILN"                   , { "OP_6" , "C" ,  13 , 0 }, "ILN of seller" }) 
     aAdd(_aOrder, {"SellerName"                  , { "OP_7" , "C" ,  80 , 0 }, "Seller Name" }) 
     aAdd(_aOrder, {"SellerCodeByBuyer"           , { "OP_8" , "C" ,  35 , 0 }, "Code assigned to seller by buyer" }) 
     aAdd(_aOrder, {"DeliveryPointILN"            , { "OP_9" , "C" ,  13 , 0 }, "ILN of delivery point" }) 
     aAdd(_aOrder, {"DeliveryPointName"           , { "OP_10", "C" ,  80 , 0 }, "Delivery point name" }) 
     aAdd(_aOrder, {"DeliveryPointCodeBySupplier" , { "OP_11", "C" ,  35 , 0 }, "Code assigned to delivery location by buyer" }) 
     aAdd(_aOrder, {"DeliveryPointStreetAndNumber", { "OP_12", "C" , 100 , 0 }, "Street and number" }) 
     aAdd(_aOrder, {"DeliveryPointCityName"       , { "OP_13", "C" ,  50 , 0 }, "City name" }) 
     aAdd(_aOrder, {"DeliveryPointPostalCode"     , { "OP_14", "C" ,  10 , 0 }, "Postal code" }) 
     aAdd(_aOrder, {"DeliveryPointCountry"        , { "OP_15", "C" ,  10 , 0 }, "Country code (ISO 3166)" }) 
     aAdd(_aOrder, {"ShipFromCodeByBuyer"         , { "OP_16", "C" ,  35 , 0 }, "Ship from" }) 
     aAdd(_aOrder, {"DeliveryPointCodeByBuyer"    , { "OP_17", "C" ,  35 , 0 }, "Code assigned to delivery location by buyer" }) 
     aAdd(_aOrder, {"TotalLines"                  , { "OS_1" , "N" ,  10 , 0 }, "Total number of lines" }) 
     aAdd(_aOrder, {"TotalOrderedAmount"          , { "OS_2" , "N" ,  19 , 3 }, "Total amount ordered" }) 
     aAdd(_aOrder, {"TotalNetAmount"              , { "OS_3" , "N" ,  19 , 4 }, "Total purchase amount ordered" }) 
     aAdd(_aOrder, {"TotalTaxAmount"              , { "OS_4" , "N" ,  19 , 4 }, "Total PVN amount  ordered" }) 
     aAdd(_aOrder, {"TotalTaxRate"                , { "OS_5" , "N" ,   7 , 2 }, "Total PVN procent ordered" }) 
     aAdd(_aOrder, {"TotalNetTaxAmount"           , { "OS_6" , "N" ,  19 , 4 }, "Total PVN amount  ordered fakt" }) 
     aAdd(_aOrder, {"TotalFaktLine"               , { "OS_7" , "N" ,   7 , 0 }, "Total fakt line" }) 
     aAdd(_aOrder, {"TotalSumma"                  , { "OS_8" , "N" ,  15 , 4 }, "Total summa R_6" }) 
     aAdd(_aOrder, {"DateCreateOrder"             , { "DT_C" , "C" ,  15 , 0 }, "DateTime create order" }) 
     aAdd(_aOrder, {"DateModifyOrder"             , { "DT_M" , "C" ,  15 , 0 }, "DateTime modify order" }) 
     aAdd(_aOrder, {"DateDeleteOrder"             , { "DT_D" , "C" ,  15 , 0 }, "DateTime delete order" }) 
     aAdd(_aOrder, {"DateCreateInvoice"           , { "DT_I" , "C" ,  15 , 0 }, "DateTime create invoice" }) 
     aAdd(_aOrder, {"PvnRegNumber"                , { "NR_0" , "C" ,  16 , 0 }, "Pvn.NR. or Reg.NR." }) 
     aAdd(_aOrder, {"DokumentNr"                  , { "NR_1" , "C" ,  16 , 0 }, "Dokument NR." }) 
     aAdd(_aOrder, {"DokumentSerija"              , { "NR_2" , "C" ,  12 , 0 }, "Dokument Serija" }) 
     aAdd(_aOrder, {"DokumentLVESOT"              , { "NR_3" , "C" ,   2 , 0 }, "Dokument LV / ES/ OTherwise" }) 
     aAdd(_aOrder, {"KlientGruppa"                , { "NR_4" , "C" ,  12 , 0 }, "Gruppa klienta" }) 
     aAdd(_aOrder, {"UmzValutaKod"                , { "NR_5" , "C" ,   6 , 0 }, "Kod svoeji valuti" }) 
     aAdd(_aOrder, {"DokumentDate"                , { "NR_6" , "D" ,   8 , 0 }, "Data dokumenta" }) 
     aAdd(_aOrder, {"DokumentOplataDay"           , { "NR_7" , "N" ,   7 , 0 }, "Day oplata dokumenta" }) 
     aAdd(_aOrder, {"RegNumber"                   , { "NR_8" , "C" ,  16 , 0 }, "Reg. NR. or Reg.NR." }) 
     aAdd(_aOrder, {"InvoiceDateCreate"           , { "NR_9" , "D" ,   8 , 0 }, "Data create invoice xml" }) 
     aAdd(_aOrder, {"U08_R_9"                     , { "NR_10", "C" ,   3 , 0 }, "U08_R_9" }) 
     aAdd(_aOrder, {"U08_ID_NUM"                  , { "NR_11", "C" ,  10 , 0 }, "U08_ID_NUM" }) 
     aAdd(_aOrder, {"U08_R_44"                    , { "NR_12", "C" ,   6 , 0 }, "U08_R_44" }) 
     aAdd(_aOrder, {"DokumentStatus"              , { "NR_S" , "N" ,   1 , 0 }, "Order line status" }) 
     aAdd(_aOrder, {"BankKod"                     , { "BA_0" , "C" ,  14 , 0 }, "BankKod" }) 
     aAdd(_aOrder, {"BankName"                    , { "BA_1" , "C" ,  40 , 0 }, "BankName" }) 
     aAdd(_aOrder, {"BankKont1"                   , { "BA_2" , "C" ,  21 , 0 }, "BankKont1" }) 
     aAdd(_aOrder, {"BankKont2"                   , { "BA_3" , "C" ,  21 , 0 }, "BankKont2" }) 
     aAdd(_aOrder, {"OrderCurrency2"              , { "VL_1" , "C" ,   3 , 0 }, "Currency2 Order" }) 
     aAdd(_aOrder, {"Data_Currency2"              , { "VL_2" , "D" ,   8 , 0 }, "Currency2 Data " }) 
     aAdd(_aOrder, {"Kurs_Currency2"              , { "VL_3" , "N" ,  11 , 7 }, "Currency2 Kurs " }) 
     aAdd(_aOrder, {"KolvoCurrency2"              , { "VL_4" , "N" ,   7 , 0 }, "Currency2 Kolvo" }) 
     aAdd(_aOrder, {"TotalNetAmountCurrency2"     , { "VL_5" , "N" ,  19 , 4 }, "Currency2 Total purchase amount ordered" }) 
     aAdd(_aOrder, {"TotalTaxAmountCurrency2"     , { "VL_6" , "N" ,  19 , 4 }, "Currency2 Total PVN amount  ordered" }) 
     aAdd(_aOrder, {"TotalNetCenaCurrency2"       , { "VL_7" , "N" ,  19 , 4 }, "Currency2 Total cena  ordered" }) 
     aAdd(_aOrder, {"OrderCurrency3"              , { "VL_8" , "C" ,   3 , 0 }, "Currency3 Bilance" }) 
  
     _nOrderHead := len(_aOrder) 
  
     aAdd(_aOrder, {"LineStatus"                  , { "LN_0" , "N" ,   1 , 0 }, "Order line status" }) 
     aAdd(_aOrder, {"LineNumber"                  , { "LN_1" , "N" ,  10 , 0 }, "Order line number" }) 
     aAdd(_aOrder, {"EAN"                         , { "LN_2" , "C" ,  16 , 0 }, "EAN code of commodity" }) 
     aAdd(_aOrder, {"BuyerItemCode"               , { "LN_3" , "C" ,  35 , 0 }, "Buyer's  commodity code" }) 
     aAdd(_aOrder, {"SupplerItemCode"             , { "LN_4" , "C" ,  35 , 0 }, "Seller's commodity code" }) 
     aAdd(_aOrder, {"ItemDescription"             , { "LN_5" , "C" , 100 , 0 }, "ItemDescription (Nosaukums)" }) 
     aAdd(_aOrder, {"ItemType"                    , { "LN_6" , "C" ,   2 , 0 }, "CU/RC Item type: CU-commodity, RC-returnable package" }) 
     aAdd(_aOrder, {"OrderedQuantity"             , { "LN_7" , "N" ,  19 , 3 }, "Ordered quantity" }) 
     aAdd(_aOrder, {"OrderedUnitPacksize"         , { "LN_8" , "N" ,  19 , 3 }, "Number of sales packeges in Ordered Unit (pc in box)" }) 
     aAdd(_aOrder, {"UnitOfMeasure"               , { "LN_9" , "C" ,  10 , 0 }, "UnitOfMeasure" }) 
     aAdd(_aOrder, {"OrderedUnitNetPrice"         , { "LN_10", "N" ,  19 , 4 }, "Net price, excluding VAT" }) 
     aAdd(_aOrder, {"OrderedNetAmount"            , { "LN_11", "N" ,  19 , 4 }, "Net amount, Total for Row, without VAT" }) 
     aAdd(_aOrder, {"Kods"                        , { "LN_12", "C" ,   7 , 0 }, "Mat. kods" }) 
     aAdd(_aOrder, {"Nosukums"                    , { "LN_13", "C" , 100 , 0 }, "Mat. nosukums" }) 
     aAdd(_aOrder, {"Daudzums"                    , { "LN_14", "N" ,  19 , 3 }, "Mat. daudzums" }) 
     aAdd(_aOrder, {"Cena"                        , { "LN_15", "N" ,  19 , 4 }, "Mat. cena" }) 
     aAdd(_aOrder, {"Summa"                       , { "LN_16", "N" ,  19 , 4 }, "Mat. summa" }) 
     aAdd(_aOrder, {"AtlikumsDaudzums"            , { "LN_17", "N" ,  19 , 3 }, "Atl. daudzums" }) 
     aAdd(_aOrder, {"AtlikumsCena"                , { "LN_18", "N" ,  19 , 4 }, "Atl. cena" }) 
     aAdd(_aOrder, {"AtlikumsSumma"               , { "LN_19", "N" ,  19 , 4 }, "Atl. summa" }) 
     aAdd(_aOrder, {"ZakazSumma"                  , { "LN_20", "N" ,  19 , 4 }, "Summa zakaza" }) 
     aAdd(_aOrder, {"PriznakEdit"                 , { "LN_21", "C" ,   1 , 0 }, "Priznak korektirovki" }) 
     aAdd(_aOrder, {"TaxRate"                     , { "LN_22", "N" ,   7 , 2 }, "Procent PVN" }) 
     aAdd(_aOrder, {"TaxAmount"                   , { "LN_23", "N" ,  19 , 4 }, "Summa PVN line" }) 
     aAdd(_aOrder, {"Merveniba"                   , { "LN_24", "C" ,   5 , 0 }, "Ed.izmerenija" }) 
     aAdd(_aOrder, {"LineStatusHand"              , { "LN_25", "N" ,   1 , 0 }, "Order line status set" }) 
     aAdd(_aOrder, {"SpecialAtzimes"              , { "SP_0" , "C" , 180 , 0 }, "SpecialAtzimes" }) 
  ENDIF    
  IF empty(_aOrderStru) 
     k := len(_aOrder) 
     _aOrderStru := Array(k) 
     FOR i := 1 TO k; _aOrderStru := aClone(_aOrder[2]) 
     NEXT 
  ENDIF 
  IF empty(_aOrderName) 
     k := len(_aOrder) 
     _aOrderName := Array(k) 
     FOR i := 1 TO k; _aOrderName := {_aOrder[1], _aOrder[3]} 
     NEXT 
  ENDIF 
  IF empty(_aOrderList) 
     k := _nOrderHead 
     _aOrderList := Array(k) 
     FOR i := 1 TO k; _aOrderList := aClone(_aOrder[2]) 
     NEXT 
  ENDIF 
  
  ArrOrderHead() 
  IF ! empty(cFile); ArrOrderHead("XmlFileName", cFile) 
  ENDIF 
  ArrOrderLine() 
  
 RETURN NIL 
 

 
 <?xml version="1.0" encoding="utf-8"?> 
 <Document-Order> 
   <Document-Header> 
     <DocumentReceiveDateTime>2014-10-20T08:41:39</DocumentReceiveDateTime> 
     <DocumentProcessDateTime>2014-10-20T08:41:42</DocumentProcessDateTime> 
     <DocumentID>406920616</DocumentID> 
     <DocumentUID>308baa6f3dea490d997833092d787927</DocumentUID> 
     <DocumentLink>https://ediweb.eu/edi/showDocument?uid=MzA4YmFhNmYzZGVhNDkwZDk5NzgzMzA5MmQ3ODc5Mjc%3D</DocumentLink> 
     <DocumentType>ORDER</DocumentType> 
     <DocumentSource>F</DocumentSource> 
     <OriginalFileName><![CDATA[ORDERS_20562038.xml]]></OriginalFileName> 
   </Document-Header> 
   <Order-Header> 
     <OrderNumber>4533708474</OrderNumber> 
     <OrderDate>2014-10-20</OrderDate> 
     <OrderCurrency>EUR</OrderCurrency> 
     <ExpectedDeliveryDate>2014-10-24</ExpectedDeliveryDate> 
     <DocumentFunctionCode>O</DocumentFunctionCode> 
   </Order-Header> 
   <Document-Parties> 
     <Sender> 
       <ILN>9981237153176</ILN> 
     </Sender> 
     <Receiver> 
       <ILN>4750140000007</ILN> 
       <CodeBySender>1082</CodeBySender> 
     </Receiver> 
     <Creator> 
       <SystemUniqueCode>system</SystemUniqueCode> 
       <Name>System user</Name> 
       <CreationType>E</CreationType> 
     </Creator> 
   </Document-Parties> 
   <Order-Parties> 
     <Buyer> 
       <ILN>9981237153176</ILN> 
       <Name>Rimi Lietuva UAB</Name> 
       <OperatorDetails> 
         <Name>Viktorija Krūminytė</Name> 
         <E-mail>manager.T758@rimibaltic.com</E-mail> 
       </OperatorDetails> 
     </Buyer> 
     <Seller> 
       <ILN>4750140000007</ILN> 
       <Name>Bisoks SIA</Name> 
       <CodeByBuyer>1082</CodeByBuyer> 
     </Seller> 
     <DeliveryPoint> 
       <ILN>4751008574388</ILN> 
       <Name>Rimi MHM Luize (Klaipėda)</Name> 
       <CodeBySupplier>Y92</CodeBySupplier> 
       <CodeByBuyer>T758</CodeByBuyer> 
       <StreetAndNumber>Šiaurės pr. 15, Klaipėda</StreetAndNumber> 
       <CityName>Klaipėda</CityName> 
       <PostalCode>92312</PostalCode> 
       <Country>LT</Country> 
     </DeliveryPoint> 
     <ShipFrom> 
       <CodeByBuyer>1082</CodeByBuyer> 
     </ShipFrom> 
   </Order-Parties> 
   <Order-Lines> 
     <Line> 
       <Line-Item> 
         <LineNumber>10</LineNumber> 
         <EAN>4750140030110</EAN> 
         <BuyerItemCode>7090121</BuyerItemCode> 
         <SupplierItemCode>32051</SupplierItemCode> 
         <ItemDescription>BĒRNU KLASISK. ZEĶES 32051 COLORED 14-16</ItemDescription> 
         <ItemType>CU</ItemType> 
         <OrderedQuantity>3.000</OrderedQuantity> 
         <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
         <UnitOfMeasure>GAB</UnitOfMeasure> 
         <OrderedUnitNetPrice>0.7300</OrderedUnitNetPrice> 
         <OrderedNetAmount>2.1900</OrderedNetAmount> 
       </Line-Item> 
     </Line> 
     <Line> 
       <Line-Item> 
         <LineNumber>20</LineNumber> 
         <EAN>4750140030127</EAN> 
         <BuyerItemCode>7090122</BuyerItemCode> 
         <SupplierItemCode>32051</SupplierItemCode> 
         <ItemDescription>BĒRNU KLASISK. ZEĶES 32051 COLORED 17-19</ItemDescription> 
         <ItemType>CU</ItemType> 
         <OrderedQuantity>3.000</OrderedQuantity> 
         <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
         <UnitOfMeasure>GAB</UnitOfMeasure> 
         <OrderedUnitNetPrice>0.7300</OrderedUnitNetPrice> 
         <OrderedNetAmount>2.1900</OrderedNetAmount> 
       </Line-Item> 
     </Line> 
 ... 
   <Order-Summary> 
     <TotalLines>52</TotalLines> 
     <TotalOrderedAmount>174.0000</TotalOrderedAmount> 
     <TotalNetAmount>198.1200</TotalNetAmount> 
   </Order-Summary> 
 </Document-Order>