FUNCTION Xml_Open( xml ) 
 LOCAL a,c,h,f,i,j,k,n,o,t,oXml,cFil,e := "ERROR",cVal,cDop,cKd 
  
  cVal := gIniC7(cFileIni, "COM", "Currency1", "EUR") 
  cVal := upper(cVal) 
  cDop := gIniC7(cFileIni, "COM", "Currency2", "LVL") 
  cDop := upper(cDop) 
  cKd  := cVal+','+cDop 
  IF empty(xml) 
     MsgBox(Lower(e), "Empty parameters", e) 
     RETURN .F. 
  ENDIF 
  
  IF ! file(xml) 
     MsgBox(Lower(e), "Not found:"+xml, e) 
     RETURN .F. 
  ENDIF 
  
  j := space(3) 
  h := fOpen(xml) 
  IF h > 0 
     j := space(3) 
     fRead(h, @j, 3) 
     fClose(h) 
  ENDIF 
  IF j == chr(239)+chr(187)+chr(191) 
     c := cWrk+iif(right(cWrk, 1) == "\", "", "\") 
     f := c+lower(ProcName())+".xml" 
     h := fCreate(f) 
     IF h > 0 
        a := FileToArray(xml) 
        k := len(a) 
        FOR i := 1 TO k 
            j := a[ i ] 
            IF i == 1 
               IF left(j, 3) == chr(239)+chr(187)+chr(191); j := subs(j, 4) 
               ENDIF 
            ENDIF 
            fWrite(h, j+hb_OsNewLine()) 
        NEXT 
        fClose(h) 
     ENDIF 
     oXml := HXMLDoc():Read(f) 
  ELSE 
     oXml := HXMLDoc():Read(xml) 
  ENDIF 
  
  IF Empty( oXml ) 
     MsgBox(Lower(e), "Not found:"+xml, e) 
     RETURN .F. 
  ENDIF 
  IF Empty( oXml:aItems ) 
     MsgBox(Lower(e), "Not found:"+xml, e) 
     RETURN .F. 
  ENDIF 
  cFil := xml 
  IF ( i := RAt("\", xml) ) > 0; cFil := subs(xml, i+1) 
  ENDIF 
  
  Init_Stru(cFil) 
  
  IF ! IsOrder(oXml);           RETURN .F. 
  ENDIF 
  
  IF ! GetOrder_Currency(cKd);  RETURN .F. 
  ENDIF 
  
  IF ! GetOrder_Header();       RETURN .F. 
  ENDIF 
  GetDocument_Parties() 
  GetOrder_Parties() 
  GetOrder_Summary() 
  
  IF ! Crt_OrderDbf();          RETURN .F. 
  ENDIF 
  IF ! empty(f); fErase(f) 
  ENDIF 
  
 RETURN .T. 
  
 FUNCTION IsOrder( oXml ) 
 LOCAL c,i,j,k,o,t,v,e := "ERROR" 
  
  t := "Document-Order" 
  oXmlDoc := oXml:find(t) 
  IF Empty( oXmlDoc ) 
     MSgBox(Lower(e), "Not found tag:<"+t+">", e) 
     RETURN .F. 
  ENDIF 
  
  t := "Document-Header" 
  o := oXmlDoc:find(t) 
  IF Empty( o ) 
     MsgBox(Lower(e), "Not found tag:<"+t+">", e) 
     RETURN .F. 
  ENDIF 
  t := "DocumentType" 
  j := o:find(t) 
  IF valtype(j) != "O" 
     MsgBox(Lower(e), "Not found tag:<"+t+">", e) 
     RETURN .F. 
  ENDIF 
  v := j:aItems[1] 
  IF valtype(v) != "C" 
     MsgBox(Lower(e), "Not found tag:<"+t+">", e) 
     RETURN .F. 
  ENDIF 
  IF v != "ORDER" 
     MsgBox(Lower(e), "File xml not found value ORDER:<"+t+">", e) 
     RETURN .F. 
  ENDIF 
  
  k := len(o:aItems) 
  FOR i := 1 TO k 
      j := o:aItems 
      ArrOrderHead(j:title, Get_Value(j, 1)) 
  NEXT 
  
 RETURN .T. 
 

 
 <?xml version="1.0" encoding="Utf-8"?> 
 <Document-Order> 
 <Document-Header> 
 <DocumentReceiveDateTime>2010-09-23T11:01:32</DocumentReceiveDateTime> 
 <DocumentProcessDateTime>2010-09-23T11:03:09</DocumentProcessDateTime> 
 <DocumentType>ORDER</DocumentType> 
 <DocumentSource>F</DocumentSource> 
 <OriginalFileName>![CDATA[ORDERS_51653730.xml]]</OriginalFileName></Document-Header> 
 <Order-Header> 
 <OrderNumber>4518964305</OrderNumber> 
 <OrderDate>2010-09-23</OrderDate> 
 <OrderCurrency>LVL</OrderCurrency> 
 <ExpectedDeliveryDate>2010-09-24</ExpectedDeliveryDate> 
 <DocumentFunctionCode>O</DocumentFunctionCode> 
 </Order-Header> 
 <Document-Parties> 
 <Sender> 
 <ILN>4751008570007</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>4751008570007</ILN> 
 <Name>Rimi Latvia SIA</Name> 
 <OperatorDetails> 
 <Name>Inga Mankevica</Name> 
 <TelephoneNumber>+3713713920152, +3713719483712</TelephoneNumber> 
 <E-mail>sn.bauska@rimibaltic.com</E-mail> 
 </OperatorDetails> 
 </Buyer> 
 <Seller> 
 <ILN>4750140000007</ILN> 
 <Name>Bisoks SIA</Name> 
 <CodeByBuyer>1082</CodeByBuyer> 
 </Seller> 
 <DeliveryPoint> 
 <ILN>4751008571394</ILN> 
 <Name>SuperNetto Bauska</Name> 
 <CodeBySupplier>S20</CodeBySupplier> 
 <CodeByBuyer>S120</CodeByBuyer> 
 <StreetAndNumber>Za─╝─Б iela 3</StreetAndNumber> 
 <CityName>Bauska</CityName> 
 <Country>LV</Country> 
 </DeliveryPoint> 
 <ShipFrom> 
 <CodeByBuyer>1082</CodeByBuyer> 
 </ShipFrom> 
 </Order-Parties> 
 <Order-Lines> 
 <Line> 
 <Line-Item> 
 <LineNumber>10</LineNumber> 
 <EAN>4750140220719</EAN> 
 <BuyerItemCode>746934</BuyerItemCode> 
 <ItemDescription>SIEVIE┼аU PUSGAR─АS ZE─╢ES 22071</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>16.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.8000</OrderedUnitNetPrice> 
 <OrderedNetAmount>12.8000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>20</LineNumber> 
 <EAN>4750140411551</EAN> 
 <BuyerItemCode>459632</BuyerItemCode> 
 <SupplierItemCode>41155</SupplierItemCode> 
 <ItemDescription>SIEV.ZE─╢B.41155 FAVORITE SPECIAL 20DEN</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>15.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.3600</OrderedUnitNetPrice> 
 <OrderedNetAmount>5.4000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>30</LineNumber> 
 <EAN>4750140411209</EAN> 
 <BuyerItemCode>459638</BuyerItemCode> 
 <SupplierItemCode>41120</SupplierItemCode> 
 <ItemDescription>SIEV.ZE─╢B.41120 FAVORITE SLIM 20DEN KAST</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>30.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.2800</OrderedUnitNetPrice> 
 <OrderedNetAmount>8.4000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>40</LineNumber> 
 <EAN>4750140411407</EAN> 
 <BuyerItemCode>459640</BuyerItemCode> 
 <SupplierItemCode>41140</SupplierItemCode> 
 <ItemDescription>SIEV.ZE─╢B.41140 FAVORITE COMF.30DEN KAST</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>24.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.3900</OrderedUnitNetPrice> 
 <OrderedNetAmount>9.3600</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>50</LineNumber> 
 <EAN>4750140421260</EAN> 
 <BuyerItemCode>459210</BuyerItemCode> 
 <ItemDescription>SIEV.ZE─╢B. 42126 RELAX FAVORITE 40DEN</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>16.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.9600</OrderedUnitNetPrice> 
 <OrderedNetAmount>15.3600</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>60</LineNumber> 
 <EAN>4750140721025</EAN> 
 <BuyerItemCode>458908</BuyerItemCode> 
 <ItemDescription>SIEVIE┼аU BIKS─кTES 72102 BISOKS</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>9.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>1.3200</OrderedUnitNetPrice> 
 <OrderedNetAmount>11.8800</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>70</LineNumber> 
 <EAN>4750140221389</EAN> 
 <BuyerItemCode>746932</BuyerItemCode> 
 <ItemDescription>SIEVIE┼аU VILNAS ─кSZE─╢ES 22138</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>20.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.5800</OrderedUnitNetPrice> 
 <OrderedNetAmount>11.6000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>80</LineNumber> 
 <EAN>4750140220573</EAN> 
 <BuyerItemCode>464983</BuyerItemCode> 
 <ItemDescription>SIEVIE┼аU ZE─╢ES 22057 FAVORITE FITNESS</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>30.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.6100</OrderedUnitNetPrice> 
 <OrderedNetAmount>18.3000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>90</LineNumber> 
 <EAN>4750140252512</EAN> 
 <BuyerItemCode>462296</BuyerItemCode> 
 <SupplierItemCode>25251</SupplierItemCode> 
 <ItemDescription>SIEV.PUSG.ZE─╢ES 3 P─АRI 25251 FAV.20DEN</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>25.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.3700</OrderedUnitNetPrice> 
 <OrderedNetAmount>9.2500</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>100</LineNumber> 
 <EAN>4750140252116</EAN> 
 <BuyerItemCode>462295</BuyerItemCode> 
 <SupplierItemCode>25211</SupplierItemCode> 
 <ItemDescription>SIEV. ─кS─АS ZE─╢ES 20 DEN 3 P─АRI 25211 FAV</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>45.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.3000</OrderedUnitNetPrice> 
 <OrderedNetAmount>13.5000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>110</LineNumber> 
 <EAN>4750140421116</EAN> 
 <BuyerItemCode>516964</BuyerItemCode> 
 <SupplierItemCode>42111</SupplierItemCode> 
 <ItemDescription>SIEV.ZE─╢B.42111 FAVORITE MAKE UP 20DEN</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>5.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.5800</OrderedUnitNetPrice> 
 <OrderedNetAmount>2.9000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>120</LineNumber> 
 <EAN>4750140511084</EAN> 
 <BuyerItemCode>792581</BuyerItemCode> 
 <SupplierItemCode>51108</SupplierItemCode> 
 <ItemDescription>MEIT.POLIAM.ZE─╢B.51108 FAVORITE</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>20.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>1.0300</OrderedUnitNetPrice> 
 <OrderedNetAmount>20.6000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>130</LineNumber> 
 <EAN>4750140320587</EAN> 
 <BuyerItemCode>446173</BuyerItemCode> 
 <SupplierItemCode>32058</SupplierItemCode> 
 <ItemDescription>B─ТRNU ZE─╢ES 32058 BISOKS</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>34.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.6100</OrderedUnitNetPrice> 
 <OrderedNetAmount>20.7400</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>140</LineNumber> 
 <EAN>4750140221372</EAN> 
 <BuyerItemCode>747087</BuyerItemCode> 
 <SupplierItemCode>22137</SupplierItemCode> 
 <ItemDescription>SIEVIE┼аU VILNAS ZE─╢ES FAVORITE 22137</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>22.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>0.6100</OrderedUnitNetPrice> 
 <OrderedNetAmount>13.4200</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 <Line> 
 <Line-Item> 
 <LineNumber>150</LineNumber> 
 <EAN>4750140421390</EAN> 
 <BuyerItemCode>771258</BuyerItemCode> 
 <SupplierItemCode>42139</SupplierItemCode> 
 <ItemDescription>S.Z/B.FAVORITE MICRO*SOFT 60 DEN 42139</ItemDescription> 
 <ItemType>CU</ItemType> 
 <OrderedQuantity>25.000</OrderedQuantity> 
 <OrderedUnitPacksize>1.000</OrderedUnitPacksize> 
 <UnitOfMeasure>GAB</UnitOfMeasure> 
 <OrderedUnitNetPrice>1.2400</OrderedUnitNetPrice> 
 <OrderedNetAmount>31.0000</OrderedNetAmount> 
 </Line-Item> 
 </Line> 
 </Order-Lines> 
 <Order-Summary> 
 <TotalLines>15</TotalLines> 
 <TotalOrderedAmount>336.000</TotalOrderedAmount> 
 <TotalNetAmount>204.5100</TotalNetAmount> 
 </Order-Summary> 
 </Document-Order> 
 

 
 <?xml version="1.0" encoding="Utf-8"?> 
 <Document-Invoice> 
 <Document-Header> 
 <DocumentReceiveDateTime>^mDtoS(Date(), "-")+"T"+Time()</DocumentReceiveDateTime> 
 <DocumentProcessDateTime>^-</DocumentProcessDateTime> 
 <DocumentID>^-</DocumentID> 
 <DocumentUID>^-</DocumentUID> 
 <DocumentType>INVOICE</DocumentType> 
 <DocumentSource>W</DocumentSource> 
 <OriginalFileName>^-</OriginalFileName> 
 </Document-Header> 
 <Invoice-Header> 
 <InvoiceNumber>^AllTrim(NR_2)+AllTrim(NR_1)</InvoiceNumber> 
 <InvoiceDate>^mDtoS(Date(), "-")</InvoiceDate> 
 <InvoiceCurrency>^OH_3</InvoiceCurrency> 
 <InvoicePaymentDueDate>^mDtoS(Date()+10, "-")</InvoicePaymentDueDate> 
 <InvoicePaymentTerms>10</InvoicePaymentTerms> 
 <InvoicePostDate>^-</InvoicePostDate> 
 <DocumentFunctionCode>O</DocumentFunctionCode> 
 <DocumentNameCode>380</DocumentNameCode> 
 <Remarks>^GetFile("txt_remarks.txt",.T.)</Remarks> 
 <Order> 
 <BuyerOrderNumber>^OH_1</BuyerOrderNumber> 
 <BuyerOrderDate>^OH_2</BuyerOrderDate> 
 <SellerOrderNumber>^-</SellerOrderNumber> 
 </Order> 
 <Delivery> 
 <DeliveryLocationNumber>^OP_9</DeliveryLocationNumber> 
 <CodeBySeller>^-</CodeBySeller> 
 <CodeByBuyer>^-</CodeByBuyer> 
 <Name>^-</Name> 
 <StreetAndNumber>^-</StreetAndNumber> 
 <CityName>^-</CityName> 
 <Country>^-</Country> 
 <DeliveryDate>^mDtoS(Date(), "-")</DeliveryDate> 
 <DespatchNumber>^AllTrim(NR_2)+AllTrim(NR_1)</DespatchNumber> 
 </Delivery> 
 </Invoice-Header> 
 <Document-Parties> 
 <Sender> 
 <ILN>^OP_6</ILN> 
 </Sender> 
 <Receiver> 
 <ILN>^OP_1</ILN> 
 </Receiver> 
 <Creator> 
 <SystemUniqueCode>^-</SystemUniqueCode> 
 <Name>^-</Name> 
 <E-mail>^-</E-mail> 
 <CreationType>^-</CreationType> 
 </Creator> 
 </Document-Parties> 
 <Invoice-Parties> 
 <Buyer> 
 <ILN>^OP_1</ILN> 
 <TaxID>^-</TaxID> 
 <CodeBySeller>^-</CodeBySeller> 
 <UtilizationRegisterNumber>^-</UtilizationRegisterNumber> 
 <Name>^-</Name> 
 <StreetAndNumber>^gT("StreetR")</StreetAndNumber> 
 <CityName>^-</CityName> 
 <PostalCode>^-</PostalCode> 
 <Country>^-</Country> 
 </Buyer> 
 <Payer> 
 <ILN>^OP_1</ILN> 
 <TaxID>^-</TaxID> 
 <CodeBySeller>^-</CodeBySeller> 
 <CodeByBuyer>^-</CodeByBuyer> 
 <UtilizationRegisterNumber>^-</UtilizationRegisterNumber> 
 <Name>^-</Name> 
 <StreetAndNumber>^gT("StreetR")</StreetAndNumber> 
 <CityName>^-</CityName> 
 <PostalCode>^-</PostalCode> 
 <Country>^-</Country> 
 </Payer> 
 <Invoicee> 
 <ILN>^OP_1</ILN> 
 <TaxID>^-</TaxID> 
 <CodeBySeller>^-</CodeBySeller> 
 <CodeByBuyer>^-</CodeByBuyer> 
 <UtilizationRegisterNumber>^-</UtilizationRegisterNumber> 
 <Name>^-</Name> 
 <StreetAndNumber>^gT("StreetR")</StreetAndNumber> 
 <CityName>^-</CityName> 
 <PostalCode>^-</PostalCode> 
 <Country>^-</Country> 
 </Invoicee> 
 <Seller> 
 <ILN>^OP_6</ILN> 
 <TaxID>^-</TaxID> 
 <CodeBySeller>^-</CodeBySeller> 
 <CodeByBuyer>^-</CodeByBuyer> 
 <UtilizationRegisterNumber>^-</UtilizationRegisterNumber> 
 <Name>^-</Name> 
 <StreetAndNumber>^gT("StreetB")</StreetAndNumber> 
 <CityName>^-</CityName> 
 <PostalCode>^-</PostalCode> 
 <Country>^-</Country> 
 <OperatorDetails> 
 <Name>^-</Name> 
 <TelephoneNumber>^-</TelephoneNumber> 
 <E-mail>^-</E-mail> 
 </OperatorDetails> 
 </Seller> 
 <Payee> 
 <ILN>^OP_6</ILN> 
 <TaxID>^-</TaxID> 
 <AccountNumber>^-</AccountNumber> 
 <UtilizationRegisterNumber>^-</UtilizationRegisterNumber> 
 <CodeBySeller>^-</CodeBySeller> 
 <CodeByBuyer>^-</CodeByBuyer> 
 <Name>^-</Name> 
 <StreetAndNumber>^gT("StreetB")</StreetAndNumber> 
 <CityName>^-</CityName> 
 <Country>^-</Country> 
 </Payee> 
 </Invoice-Parties> 
 <Invoice-Lines> 
 <Line> 
 <Line-Item> 
 <LineNumber>^u2s(LN_1)</LineNumber> 
 <EAN>^AllTrim(LN_2)</EAN> 
 <SupplierItemCode>^-</SupplierItemCode> 
 <ItemDescription>^LN_13</ItemDescription> 
 <InvoiceQuantity>^iif(empty(LN_14), LN_7, LN_14)</InvoiceQuantity> 
 <InvoiceUnitNetPrice>^iif(empty(LN_15), LN_10, LN_15)</InvoiceUnitNetPrice> 
 <UnitOfMeasure>^LN_24</UnitOfMeasure> 
 <InvoicedUnitPackSize>^-</InvoicedUnitPackSize> 
 <TaxRate>^LN_22</TaxRate> 
 <TaxCategoryCode>S</TaxCategoryCode> 
 <TaxAmount>^LN_23</TaxAmount> 
 <NetAmount>^iif(empty(LN_16), LN_11, LN_16)</NetAmount> 
 </Line-Item> 
 <Line-Delivery> 
 <DeliveryLocationNumber>^OP_9</DeliveryLocationNumber> 
 <CodeByBuyer>^-</CodeByBuyer> 
 <Name>^-</Name> 
 <DeliveryDate>^mDtoS(Date()+10, "-")</DeliveryDate> 
 <DespatchNumber>^AllTrim(NR_2)+AllTrim(NR_1)</DespatchNumber> 
 </Line-Delivery> 
 <Line-AdditionalInformation> 
 <CountryOfOrigin>^-</CountryOfOrigin> 
 </Line-AdditionalInformation> 
 </Line> 
 </Invoice-Lines> 
 <Invoice-Summary> 
 <TotalLines>^OS_7</TotalLines> 
 <TotalNetAmount>^OS_6</TotalNetAmount> 
 <TotalTaxAmount>^OS_4</TotalTaxAmount> 
 <TotalRounding>^-</TotalRounding> 
 <TotalGrossAmount>^OS_6+OS_4</TotalGrossAmount> 
 <Tax-Summary> 
 <Tax-Summary-Line> 
 <TaxRate>^OS_5</TaxRate> 
 <TaxCategoryCode>S</TaxCategoryCode> 
 <TaxAmount>^OS_4</TaxAmount> 
 <TaxableAmount>^OS_6</TaxableAmount> 
 </Tax-Summary-Line> 
 </Tax-Summary> 
 </Invoice-Summary> 
 </Document-Invoice>

 
  
 aHDokum := hb_Hash()           // список обраб. документов xml 
 hb_HSet(aHDokum, "E01E1F5C-D6E4-46E8-B923-3758B0D79BDE", {|o,n| Zajavka1( o, n ) }) 
 hb_HSet(aHDokum, "E01E1F5C-D6E4-46E8-B923-3758B0000ABC", {|o,n| Zajavka2( o, n ) }) 
 ... 
 // в коде 
 ... 
 //   вместо 
 //   if j:title=="DOCUMENT" .and. j:GetAttribute("GUID")=="E01E1F5C-D6E4-46E8-B923-3758B0D79BDE"  
 //   делаем 
      if j:title=="DOCUMENT" 
         b := hb_HGetDef(aHDokum, j:GetAttribute("GUID"), Nil) 
         If b != Nil 
            Eval(b, j, i) 
         EndIf 
 ...  
  
  
 Function Zajvka1( oXml, nElm )    
 Local b, i, k, s, v, oe, ot, ots, ote 
 Local aStru := {...} // структура врем.файла куда съедать данные 
 Local aHAtr := hb_Hash() 
  
  hb_HSet(aHAtr, "GUID"     , {|o,i,p,v| FieldPut(FieldPos(p), v) }) 
  hb_HSet(aHAtr, "DT"       , {|o,i,p,v| FieldPut(FieldPos(p), v) }) 
  hb_HSet(aHAtr, "DocNumber", {|o,i,p,v| FieldPut(FieldPos(p), v) }) 
  hb_HSet(aHAtr, "A05"      , {|o,i,p,v| FieldPut(FieldPos(p), v) }) 
  hb_HSet(aHAtr, "DocID"    , {|o,i,p,v| FieldPut(FieldPos(p), v) }) 
  
  oe := oXml:find("ELEMENTS")  
  if oe == nil  
     ? "Error xml structure" 
     return .F. 
  endif  
  for k=1 to len(oe:aitems)  
      ot:=o2:aItems[ k ]  
      if ot==nil  
         return .F.  
      endif  
      For i := 1 To len(ot:aAttr) 
          s := ot:aAttr[ i ][1] 
          b := hb_HGetDef(aHAtr, s, Nil) 
          If b != Nil 
             v := ot:aAttr[ i ][2] 
             Eval( b, ot, i, s, v ) 
          EndIf 
      Next 
  
 // ? t:GetAttribute("GUID"),t:GetAttribute("DT"),t:GetAttribute("DocNumber") // читаем заголовок заявки  
      ots:=ot:find("TABLES")  
        if ots==nil  
           return .F.  
        endif  
    
        ote:=ots:find("TABLE")  
        if ote==nil  
           return .F. 
        endif 
  
        For i := 1 To len(ote:aAttr) 
            s := ote:aAttr[ i ][1] 
            b := hb_HGetDef(aHAtr, s, Nil) 
            If b != Nil 
               v := ote:aAttr[ i ][2] 
               Eval( b, ote, i, s, v ) 
            EndIf 
        Next 
  
 ... 
 Return .T. 
  
 Function Zajvka2( o )    
 ... 
 Return .T.