object tpPegGclGatherData: TtpPegGclGatherData
  OldCreateOrder = False
  Left = 712
  Top = 443
  Height = 268
  Width = 322
  object smpGclGather: TsdMemoryProvider
    Left = 48
    Top = 24
  end
  object sddGclGather: TsdDataSet
    Active = True
    Provider = smpGclGather
    Left = 48
    Top = 88
    FieldListData = {
      0101044E616D6506024944094669656C644E616D650602494408446174615479
      70650203084461746153697A6502040549734B6579080F4E65656450726F6365
      73734E616D65080001044E616D650609496E646578436F6465094669656C644E
      616D650609496E646578436F6465084461746154797065021808446174615369
      7A6502320549734B6579080F4E65656450726F636573734E616D65080001044E
      616D650606425F436F6465094669656C644E616D650606425F436F6465084461
      7461547970650201084461746153697A6502320549734B6579080F4E65656450
      726F636573734E616D65080001044E616D6506044E616D65094669656C644E61
      6D6506044E616D650844617461547970650218084461746153697A6503C80005
      49734B6579080F4E65656450726F636573734E616D65080001044E616D650605
      556E697473094669656C644E616D650605556E69747308446174615479706502
      18084461746153697A6502140549734B6579080F4E65656450726F636573734E
      616D65080001044E616D6506055072696365094669656C644E616D6506055072
      6963650844617461547970650206084461746153697A6502080549734B657908
      0F4E65656450726F636573734E616D65080001044E616D6506085175616E7469
      7479094669656C644E616D6506085175616E7469747908446174615479706502
      06084461746153697A6502080549734B6579080F4E65656450726F636573734E
      616D65080001044E616D65060A546F74616C5072696365094669656C644E616D
      65060A546F74616C50726963650844617461547970650206084461746153697A
      6502080549734B6579080F4E65656450726F636573734E616D65080000}
  end
  object sdvGclGather: TsdDataView
    Active = True
    DataSet = sddGclGather
    Filtered = False
    Columns = <
      item
        FieldName = 'ID'
      end
      item
        FieldName = 'B_Code'
      end
      item
        FieldName = 'Name'
      end
      item
        FieldName = 'Units'
      end
      item
        FieldName = 'Price'
      end
      item
        FieldName = 'Quantity'
      end
      item
        FieldName = 'TotalPrice'
      end>
    OnCurrentChanged = sdvGclGatherCurrentChanged
    Left = 48
    Top = 152
  end
  object smpGclRela: TsdMemoryProvider
    Left = 152
    Top = 24
  end
  object sddGclRela: TsdDataSet
    Active = True
    Provider = smpGclRela
    Left = 152
    Top = 88
    FieldListData = {
      0101044E616D65060B44657461696C47636C4944094669656C644E616D65060B
      44657461696C47636C49440844617461547970650203084461746153697A6502
      040549734B6579080F4E65656450726F636573734E616D65080001044E616D65
      060547636C4944094669656C644E616D65060547636C49440844617461547970
      650203084461746153697A6502040549734B6579080F4E65656450726F636573
      734E616D65080001044E616D650608506567586D6A4944094669656C644E616D
      650608506567586D6A49440844617461547970650203084461746153697A6502
      040549734B6579080F4E65656450726F636573734E616D65080001044E616D65
      060A506567586D6A436F6465094669656C644E616D65060A506567586D6A436F
      64650844617461547970650201084461746153697A6502320549734B6579080F
      4E65656450726F636573734E616D65080001044E616D65060A506567586D6A4E
      616D65094669656C644E616D65060A506567586D6A4E616D6508446174615479
      70650218084461746153697A6503C8000549734B6579080F4E65656450726F63
      6573734E616D65080001044E616D65060B506567586D6A556E69747309466965
      6C644E616D65060B506567586D6A556E69747308446174615479706502180844
      61746153697A6502140549734B6579080F4E65656450726F636573734E616D65
      080001044E616D6506085175616E74697479094669656C644E616D6506085175
      616E746974790844617461547970650206084461746153697A6502080549734B
      6579080F4E65656450726F636573734E616D65080001044E616D65060A546F74
      616C5072696365094669656C644E616D65060A546F74616C5072696365084461
      7461547970650206084461746153697A6502080549734B6579080F4E65656450
      726F636573734E616D65080000}
  end
  object sdvGclRela: TsdDataView
    Active = True
    DataSet = sddGclRela
    Filtered = False
    Columns = <
      item
        FieldName = 'ID'
      end
      item
        FieldName = 'GclBillsID'
      end
      item
        FieldName = 'PegXmjCode'
      end
      item
        FieldName = 'PegXmjName'
      end
      item
        FieldName = 'PegXmjUnits'
      end
      item
        FieldName = 'Quantity'
      end
      item
        FieldName = 'TotalPrice'
      end>
    OnFilterRecord = sdvGclRelaFilterRecord
    Left = 152
    Top = 152
  end
end