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
      73734E616D650809507265636973696F6E02000453697A6502000001044E616D
      650609496E646578436F6465094669656C644E616D650609496E646578436F64
      650844617461547970650218084461746153697A6502320549734B6579080F4E
      65656450726F636573734E616D650809507265636973696F6E02000453697A65
      02000001044E616D650606425F436F6465094669656C644E616D650606425F43
      6F64650844617461547970650201084461746153697A6502320549734B657908
      0F4E65656450726F636573734E616D650809507265636973696F6E0200045369
      7A6502000001044E616D6506044E616D65094669656C644E616D6506044E616D
      650844617461547970650218084461746153697A6503C8000549734B6579080F
      4E65656450726F636573734E616D650809507265636973696F6E02000453697A
      6502000001044E616D650605556E697473094669656C644E616D650605556E69
      74730844617461547970650218084461746153697A6502140549734B6579080F
      4E65656450726F636573734E616D650809507265636973696F6E02000453697A
      6502000001044E616D6506055072696365094669656C644E616D650605507269
      63650844617461547970650206084461746153697A6502080549734B6579080F
      4E65656450726F636573734E616D650809507265636973696F6E02000453697A
      6502000001044E616D6506085175616E74697479094669656C644E616D650608
      5175616E746974790844617461547970650206084461746153697A6502080549
      734B6579080F4E65656450726F636573734E616D650809507265636973696F6E
      02000453697A6502000001044E616D65060A546F74616C507269636509466965
      6C644E616D65060A546F74616C50726963650844617461547970650206084461
      746153697A6502080549734B6579080F4E65656450726F636573734E616D6508
      09507265636973696F6E02000453697A6502000000}
  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
      040549734B6579080F4E65656450726F636573734E616D650809507265636973
      696F6E02000453697A6502000001044E616D65060547636C4944094669656C64
      4E616D65060547636C49440844617461547970650203084461746153697A6502
      040549734B6579080F4E65656450726F636573734E616D650809507265636973
      696F6E02000453697A6502000001044E616D650608506567586D6A4944094669
      656C644E616D650608506567586D6A4944084461746154797065020308446174
      6153697A6502040549734B6579080F4E65656450726F636573734E616D650809
      507265636973696F6E02000453697A6502000001044E616D65060A506567586D
      6A436F6465094669656C644E616D65060A506567586D6A436F64650844617461
      547970650201084461746153697A6502320549734B6579080F4E65656450726F
      636573734E616D650809507265636973696F6E02000453697A6502000001044E
      616D65060A506567586D6A4E616D65094669656C644E616D65060A506567586D
      6A4E616D650844617461547970650218084461746153697A6503C8000549734B
      6579080F4E65656450726F636573734E616D650809507265636973696F6E0200
      0453697A6502000001044E616D65060B506567586D6A556E697473094669656C
      644E616D65060B506567586D6A556E6974730844617461547970650218084461
      746153697A6502140549734B6579080F4E65656450726F636573734E616D6508
      09507265636973696F6E02000453697A6502000001044E616D6506085175616E
      74697479094669656C644E616D6506085175616E746974790844617461547970
      650206084461746153697A6502080549734B6579080F4E65656450726F636573
      734E616D650809507265636973696F6E02000453697A6502000001044E616D65
      060A546F74616C5072696365094669656C644E616D65060A546F74616C507269
      63650844617461547970650206084461746153697A6502080549734B6579080F
      4E65656450726F636573734E616D650809507265636973696F6E02000453697A
      6502000001044E616D6506044E616D65094669656C644E616D6506044E616D65
      0844617461547970650218084461746153697A6503FF000549734B6579080F4E
      65656450726F636573734E616D650809507265636973696F6E02000453697A65
      02000001044E616D65060B44726177696E67436F6465094669656C644E616D65
      060B44726177696E67436F64650844617461547970650218084461746153697A
      6503FF000549734B6579080F4E65656450726F636573734E616D650809507265
      636973696F6E02000453697A6502000000}
  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
      item
        FieldName = 'DrawingCode'
      end>
    OnFilterRecord = sdvGclRelaFilterRecord
    Left = 152
    Top = 152
  end
end