object tpPeg_GclData: TtpPeg_GclData
  OldCreateOrder = False
  Left = 581
  Top = 368
  Height = 246
  Width = 244
  object smpPeg: TsdMemoryProvider
    Left = 56
    Top = 16
  end
  object sddPeg: TsdDataSet
    Active = True
    Provider = smpPeg
    Left = 56
    Top = 80
    FieldListData = {
      0101044E616D6506024944094669656C644E616D650602494408446174615479
      70650203084461746153697A6502040549734B6579080F4E65656450726F6365
      73734E616D650809507265636973696F6E02000453697A6502000001044E616D
      650604436F6465094669656C644E616D650604436F6465084461746154797065
      0201084461746153697A6502320549734B6579080F4E65656450726F63657373
      4E616D650809507265636973696F6E02000453697A6502000001044E616D6506
      044E616D65094669656C644E616D6506044E616D650844617461547970650218
      084461746153697A6503C8000549734B6579080F4E65656450726F636573734E
      616D650809507265636973696F6E02000453697A6502000001044E616D650605
      556E697473094669656C644E616D650605556E69747308446174615479706502
      18084461746153697A6502140549734B6579080F4E65656450726F636573734E
      616D650809507265636973696F6E02000453697A6502000001044E616D65060A
      546F74616C5072696365094669656C644E616D65060A546F74616C5072696365
      0844617461547970650206084461746153697A6502080549734B6579080F4E65
      656450726F636573734E616D650809507265636973696F6E02000453697A6502
      000001044E616D650608426567696E506567094669656C644E616D6506084265
      67696E5065670844617461547970650201084461746153697A6502320549734B
      6579080F4E65656450726F636573734E616D650809507265636973696F6E0200
      0453697A6502000001044E616D65060B426567696E5065674E756D094669656C
      644E616D65060B426567696E5065674E756D0844617461547970650206084461
      746153697A6502080549734B6579080F4E65656450726F636573734E616D6508
      09507265636973696F6E02000453697A6502000001044E616D650606456E6450
      6567094669656C644E616D650606456E64506567084461746154797065020108
      4461746153697A6502320549734B6579080F4E65656450726F636573734E616D
      650809507265636973696F6E02000453697A6502000001044E616D650609456E
      645065674E756D094669656C644E616D650609456E645065674E756D08446174
      61547970650206084461746153697A6502080549734B6579080F4E6565645072
      6F636573734E616D650809507265636973696F6E02000453697A650200000104
      4E616D65060B44726177696E67436F6465094669656C644E616D65060B447261
      77696E67436F64650844617461547970650218084461746153697A6503FF0005
      49734B6579080F4E65656450726F636573734E616D650809507265636973696F
      6E02000453697A6502000001044E616D650603506567094669656C644E616D65
      06035065670844617461547970650218084461746153697A6503FF000549734B
      6579080F4E65656450726F636573734E616D650809507265636973696F6E0200
      0453697A6502000000}
  end
  object sdvPeg: TsdDataView
    Active = True
    DataSet = sddPeg
    Filtered = False
    Columns = <
      item
        FieldName = 'Code'
      end
      item
        FieldName = 'Name'
      end
      item
        FieldName = 'Units'
      end
      item
        FieldName = 'TotalPrice'
      end
      item
        FieldName = 'BeginPeg'
      end
      item
        FieldName = 'BeginPegNum'
      end
      item
        FieldName = 'EndPeg'
      end
      item
        FieldName = 'EndPegNum'
      end
      item
        FieldName = 'DrawingCode'
      end>
    OnCurrentChanged = sdvPegCurrentChanged
    Left = 56
    Top = 144
  end
  object smpGclBills: TsdMemoryProvider
    Left = 144
    Top = 17
  end
  object sddGclBills: TsdDataSet
    Active = True
    Provider = smpGclBills
    Left = 144
    Top = 80
    FieldListData = {
      0101044E616D6506024944094669656C644E616D650602494408446174615479
      70650203084461746153697A6502040549734B6579080F4E65656450726F6365
      73734E616D650809507265636973696F6E02000453697A6502000001044E616D
      6506055065674944094669656C644E616D650605506567494408446174615479
      70650203084461746153697A6502040549734B6579080F4E65656450726F6365
      73734E616D650809507265636973696F6E02000453697A6502000001044E616D
      650606425F436F6465094669656C644E616D650606425F436F64650844617461
      547970650201084461746153697A6502320549734B6579080F4E65656450726F
      636573734E616D650809507265636973696F6E02000453697A6502000001044E
      616D6506044E616D65094669656C644E616D6506044E616D6508446174615479
      70650218084461746153697A6503C8000549734B6579080F4E65656450726F63
      6573734E616D650809507265636973696F6E02000453697A6502000001044E61
      6D650605556E697473094669656C644E616D650605556E697473084461746154
      7970650201084461746153697A6502140549734B6579080F4E65656450726F63
      6573734E616D650809507265636973696F6E02000453697A6502000001044E61
      6D6506055072696365094669656C644E616D6506055072696365084461746154
      7970650206084461746153697A6502080549734B6579080F4E65656450726F63
      6573734E616D650809507265636973696F6E02000453697A6502000001044E61
      6D6506085175616E74697479094669656C644E616D6506085175616E74697479
      0844617461547970650206084461746153697A6502080549734B6579080F4E65
      656450726F636573734E616D650809507265636973696F6E02000453697A6502
      000001044E616D65060A546F74616C5072696365094669656C644E616D65060A
      546F74616C50726963650844617461547970650206084461746153697A650208
      0549734B6579080F4E65656450726F636573734E616D65080950726563697369
      6F6E02000453697A6502000000}
  end
  object sdvGclBills: TsdDataView
    Active = True
    DataSet = sddGclBills
    Filtered = False
    Columns = <
      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>
    OnFilterRecord = sdvGclBillsFilterRecord
    Left = 144
    Top = 144
  end
end