Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
XML file to Cursor
Message
From
17/11/2006 03:48:15
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
XML, XSD
Title:
XML file to Cursor
Miscellaneous
Thread ID:
01170611
Message ID:
01170611
Views:
121
Dear All,

im a beginner in using XML file, i want a code to convert xml to cursors or tables. here's my xml files.
       <?xml version="1.0" encoding="UTF-16" ?> 
- <BOM>
- <BO>
- <AdmInfo>
  <Object>20</Object> 
  <Version>2</Version> 
  </AdmInfo>
- <Documents>
- <row>
  <DocNum>5</DocNum> 
  <DocType>dDocument_Items</DocType> 
  <HandWritten>tNO</HandWritten> 
  <Printed>tNO</Printed> 
  <DocDate>20061113</DocDate> 
  <DocDueDate>20061113</DocDueDate> 
  <CardCode>V10000</CardCode> 
  <CardName>Acme Associates</CardName> 
  <Address>600 Eastern Blvd Manchester PA 03101 USA</Address> 
  <DocCurrency>USD</DocCurrency> 
  <DocRate>0.000000</DocRate> 
  <DocTotal>4187.600000</DocTotal> 
  <Reference1>5</Reference1> 
  <Comments>Remarks Based On Purchase Orders 5.</Comments> 
  <JournalMemo>Goods Receipt POs - V10000</JournalMemo> 
  <PaymentGroupCode>2</PaymentGroupCode> 
  <DocTime>1606</DocTime> 
  <SalesPersonCode>2</SalesPersonCode> 
  <TransportationCode>1</TransportationCode> 
  <Confirmed>tYES</Confirmed> 
  <ImportFileNum>0</ImportFileNum> 
  <SummeryType>dNoSummary</SummeryType> 
  <ContactPersonCode>8</ContactPersonCode> 
  <ShowSCN>tNO</ShowSCN> 
  <Series>13</Series> 
  <TaxDate>20061113</TaxDate> 
  <PartialSupply>tYES</PartialSupply> 
  <DocObjectCode>20</DocObjectCode> 
  <DiscountPercent>0.000000</DiscountPercent> 
  <RevisionPo>tNO</RevisionPo> 
  <BlockDunning>tNO</BlockDunning> 
  <Pick>tNO</Pick> 
  <PaymentMethod /> 
  <PaymentBlock>tNO</PaymentBlock> 
  <MaximumCashDiscount>tNO</MaximumCashDiscount> 
  <WareHouseUpdateType>dwh_Stock</WareHouseUpdateType> 
  <Rounding>tNO</Rounding> 
  <DeferredTax>tNO</DeferredTax> 
  <NumberOfInstallments>1</NumberOfInstallments> 
  <ApplyTaxOnFirstInstallment>tNO</ApplyTaxOnFirstInstallment> 
  <DocumentsOwner>3</DocumentsOwner> 
  <DocumentSubType>bod_None</DocumentSubType> 
  <Address2>1901 Maynesboro Drive Suite 200 Camden PA 19065 USA</Address2> 
  <PayToCode>Bill To</PayToCode> 
  <UseShpdGoodsAct>tNO</UseShpdGoodsAct> 
  <IsPayToBank>tNO</IsPayToBank> 
  <DownPayment>0.000000</DownPayment> 
  <LanguageCode>3</LanguageCode> 
  <PickRemark /> 
  <SequenceModel>0</SequenceModel> 
  <UseCorrectionVATGroup>tNO</UseCorrectionVATGroup> 
  <VatPercent>0.000000</VatPercent> 
  <U_STReqNum>11</U_STReqNum> 
  <U_DestWH>1</U_DestWH> 
  <U_SORef>1</U_SORef> 
  </row>
  </Documents>
- <Document_Lines>
- <row>
  <LineNum>0</LineNum> 
  <ItemCode>A00001</ItemCode> 
  <ItemDescription>IBM Inforprint 1312</ItemDescription> 
  <Quantity>10.000000</Quantity> 
  <ShipDate>20061113</ShipDate> 
  <Price>380.000000</Price> 
  <PriceAfterVAT>418.760000</PriceAfterVAT> 
  <Currency>USD</Currency> 
  <Rate>0.000000</Rate> 
  <DiscountPercent>5.000000</DiscountPercent> 
  <VendorNum /> 
  <WarehouseCode>01</WarehouseCode> 
  <SalesPersonCode>2</SalesPersonCode> 
  <CommisionPercent>10.000000</CommisionPercent> 
  <TreeType>iNotATree</TreeType> 
  <AccountCode>_SYS00000000019</AccountCode> 
  <UseBaseUnits>tNO</UseBaseUnits> 
  <SupplierCatNum /> 
  <CostingCode /> 
  <ProjectCode /> 
  <BarCode /> 
  <VatGroup /> 
  <Height1>0.000000</Height1> 
  <Height2>0.000000</Height2> 
  <Lengh1>0.000000</Lengh1> 
  <Lengh2>0.000000</Lengh2> 
  <Weight1>0.000000</Weight1> 
  <Weight2>0.000000</Weight2> 
  <Factor1>1.000000</Factor1> 
  <Factor2>1.000000</Factor2> 
  <Factor3>1.000000</Factor3> 
  <Factor4>1.000000</Factor4> 
  <BaseType>22</BaseType> 
  <BaseEntry>5</BaseEntry> 
  <BaseLine>0</BaseLine> 
  <Volume>0.000000</Volume> 
  <VolumeUnit>5</VolumeUnit> 
  <Width1>0.000000</Width1> 
  <Width2>0.000000</Width2> 
  <Address /> 
  <TaxCode>CA</TaxCode> 
  <TaxType>tt_Yes</TaxType> 
  <TaxLiable>tYES</TaxLiable> 
  <ShippingMethod>3</ShippingMethod> 
  <CorrectionInvoiceItem>ciis_ShouldBe</CorrectionInvoiceItem> 
  <CorrInvAmountToStock>0.000000</CorrInvAmountToStock> 
  <CorrInvAmountToDiffAcct>0.000000</CorrInvAmountToDiffAcct> 
  <WTLiable>tNO</WTLiable> 
  <DeferredTax>tNO</DeferredTax> 
  <LineTotal>3800.000000</LineTotal> 
  <TaxPercentagePerRow>10.200000</TaxPercentagePerRow> 
  <ConsumerSalesForecast>tNO</ConsumerSalesForecast> 
  <ExciseAmount>0.000000</ExciseAmount> 
  <SWW /> 
  <DistributeExpense>tYES</DistributeExpense> 
  <ShipToCode /> 
  <RowTotalFC>0.000000</RowTotalFC> 
  <TaxOnly>tNO</TaxOnly> 
  <UnitPrice>400.000000</UnitPrice> 
  <LineStatus>bost_Open</LineStatus> 
  </row>
  </Document_Lines>
  </BO>
  </BOM>
Next
Reply
Map
View

Click here to load this message in the networking platform