append.xml

Delphi 中处理XML的类库

<Bag>
  <PFHeader>
    <OriginStore>2023</OriginStore>
    <BagNumber>20577601</BagNumber>
    <PickupStore>2023</PickupStore>
    <DestLabCode>LCL</DestLabCode>
    <CustomerNum>20230167050310031432</CustomerNum>
    <StatusCode>5</StatusCode>
    <FileLetter></FileLetter>
    <Phone></Phone>
    <PromisedDateTime>12/30/99 00:00</PromisedDateTime>
    <CreateDateTime>12/30/99 00:00</CreateDateTime>
    <LastPriceDateTime>12/30/99 00:00</LastPriceDateTime>
    <SaleDateTime>12/30/99 00:00</SaleDateTime>
    <BagPrice>2.79</BagPrice>
    <BagSource>CO</BagSource>
  </PFHeader>
  <PFJobHdr>
    <OriginStore>2023</OriginStore>
    <BagNumber>20577601</BagNumber>
    <JobNumber>1</JobNumber>
    <JobOrder>-32000</JobOrder>
    <Quantity>1</Quantity>
    <UnitPrice>2.79</UnitPrice>
    <FlatPrice>0</FlatPrice>
    <JobPrice>2.79</JobPrice>
    <JobCost>0</JobCost>
    <Remarks></Remarks>
  </PFJobHdr>
  <PFJob>
    <OriginStore>2023</OriginStore>
    <BagNumber>20577601</BagNumber>
    <JobNumber>1</JobNumber>
    <Parent>0</Parent>
    <Child>29</Child>
  </PFJob>
  <PFEvent>
    <OriginStore>2023</OriginStore>
    <BagNumber>20577601</BagNumber>
    <JobNumber>1</JobNumber>
    <EventDateTime>08/31/03 17:56</EventDateTime>
    <EventCode>150</EventCode>
    <EmpNum>3472</EmpNum>
    <CausingStore>2023</CausingStore>
    <ReceivingStore>2023</ReceivingStore>
  </PFEvent>
</Bag>