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
      73734E616D65080001044E616D650604436F6465094669656C644E616D650604
      436F64650844617461547970650201084461746153697A6502320549734B6579
      080F4E65656450726F636573734E616D65080001044E616D6506044E616D6509
      4669656C644E616D6506044E616D650844617461547970650218084461746153
      697A6503C8000549734B6579080F4E65656450726F636573734E616D65080001
      044E616D650605556E697473094669656C644E616D650605556E697473084461
      7461547970650218084461746153697A6502140549734B6579080F4E65656450
      726F636573734E616D65080001044E616D65060A546F74616C50726963650946
      69656C644E616D65060A546F74616C5072696365084461746154797065020608
      4461746153697A6502080549734B6579080F4E65656450726F636573734E616D
      65080001044E616D650608426567696E506567094669656C644E616D65060842
      6567696E5065670844617461547970650201084461746153697A650232054973
      4B6579080F4E65656450726F636573734E616D65080001044E616D65060B4265
      67696E5065674E756D094669656C644E616D65060B426567696E5065674E756D
      0844617461547970650206084461746153697A6502080549734B6579080F4E65
      656450726F636573734E616D65080001044E616D650606456E64506567094669
      656C644E616D650606456E645065670844617461547970650201084461746153
      697A6502320549734B6579080F4E65656450726F636573734E616D6508000104
      4E616D650609456E645065674E756D094669656C644E616D650609456E645065
      674E756D0844617461547970650206084461746153697A6502080549734B6579
      080F4E65656450726F636573734E616D65080000}
  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>
    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
      73734E616D65080001044E616D6506055065674944094669656C644E616D6506
      0550656749440844617461547970650203084461746153697A6502040549734B
      6579080F4E65656450726F636573734E616D65080001044E616D650606425F43
      6F6465094669656C644E616D650606425F436F64650844617461547970650201
      084461746153697A6502320549734B6579080F4E65656450726F636573734E61
      6D65080001044E616D6506044E616D65094669656C644E616D6506044E616D65
      0844617461547970650218084461746153697A6503C8000549734B6579080F4E
      65656450726F636573734E616D65080001044E616D650605556E697473094669
      656C644E616D650605556E697473084461746154797065020108446174615369
      7A6502140549734B6579080F4E65656450726F636573734E616D65080001044E
      616D6506055072696365094669656C644E616D65060550726963650844617461
      547970650206084461746153697A6502080549734B6579080F4E65656450726F
      636573734E616D65080001044E616D6506085175616E74697479094669656C64
      4E616D6506085175616E74697479084461746154797065020608446174615369
      7A6502080549734B6579080F4E65656450726F636573734E616D65080001044E
      616D65060A546F74616C5072696365094669656C644E616D65060A546F74616C
      50726963650844617461547970650206084461746153697A6502080549734B65
      79080F4E65656450726F636573734E616D65080000}
  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