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
|