object ProjectGLData: TProjectGLData
  OldCreateOrder = False
  Left = 562
  Top = 408
  Height = 252
  Width = 271
  object sdpProjectGL: TsdADOProvider
    TableName = 'ProjectGL'
    Left = 56
    Top = 24
  end
  object sddProjectGL: TsdDataSet
    Active = False
    Filtered = False
    Provider = sdpProjectGL
    AfterAddRecord = sddProjectGLAfterAddRecord
    BeforeDeleteRecord = sddProjectGLBeforeDeleteRecord
    AfterValueChanged = sddProjectGLAfterValueChanged
    OnGetRecordClass = sddProjectGLGetRecordClass
    Left = 57
    Top = 80
    FieldListData = {
[encoded data, 7029 characters]
      65636973696F6E02000453697A6502000000}
  end
  object sdvProjectGL: TsdDataView
    Active = False
    DataSet = sddProjectGL
    Filtered = False
    Columns = <
      item
        FieldName = 'Code'
      end
      item
        FieldName = 'Name'
      end
      item
        FieldName = 'Units'
      end
      item
        FieldName = 'Specs'
      end
      item
        FieldName = 'BasePrice'
        DisplayFormat = '0.##'
      end
      item
        FieldName = 'RiskRange'
        DisplayFormat = '0.##'
      end
      item
        FieldName = 'InfoPrice'
        DisplayFormat = '0.##'
      end
      item
        FieldName = 'InfoDate'
      end
      item
        FieldName = 'DeltaPrice'
        DisplayFormat = '0.##'
      end
      item
        FieldName = 'ValidDeltaPrice'
        DisplayFormat = '0.##'
      end
      item
        FieldName = 'PM_Quantity'
        DisplayFormat = '0.##'
      end
      item
        FieldName = 'PM_TotalPrice'
        DisplayFormat = '0.##'
      end
      item
        FieldName = 'UsedQuantity'
      end
      item
        FieldName = 'UsedTotalPrice'
      end
      item
        FieldName = 'PAL_UsedQuantity'
      end
      item
        FieldName = 'PAL_UsedTotalPrice'
      end
      item
        FieldName = 'PAL_DeltaPrice'
      end
      item
        FieldName = 'PAL_Total'
      end>
    OnGetText = sdvProjectGLGetText
    OnSetText = sdvProjectGLSetText
    Left = 56
    Top = 144
  end
  object smpGather: TsdMemoryProvider
    Left = 152
    Top = 24
  end
  object sddGather: TsdDataSet
    Active = True
    Filtered = False
    Provider = smpGather
    Left = 152
    Top = 80
    FieldListData = {
      0101044E616D6506024944094669656C644E616D650602494408446174615479
      70650203084461746153697A6502040549734B6579080F4E65656450726F6365
      73734E616D650809507265636973696F6E02000453697A6502000001044E616D
      6506044E616D65094669656C644E616D6506044E616D65084461746154797065
      0218084461746153697A6502320549734B6579080F4E65656450726F63657373
      4E616D650809507265636973696F6E02000453697A6502000001044E616D6506
      0D437572546F74616C5072696365094669656C644E616D65060D437572546F74
      616C50726963650844617461547970650206084461746153697A650208054973
      4B6579080F4E65656450726F636573734E616D650809507265636973696F6E02
      000453697A6502000001044E616D65060D507265546F74616C50726963650946
      69656C644E616D65060D507265546F74616C5072696365084461746154797065
      0206084461746153697A6502080549734B6579080F4E65656450726F63657373
      4E616D650809507265636973696F6E02000453697A6502000001044E616D6506
      0D456E64546F74616C5072696365094669656C644E616D65060D456E64546F74
      616C50726963650844617461547970650206084461746153697A650208054973
      4B6579080F4E65656450726F636573734E616D650809507265636973696F6E02
      000453697A6502000001044E616D65060D416464546F74616C50726963650946
      69656C644E616D65060D416464546F74616C5072696365084461746154797065
      0206084461746153697A6502080549734B6579080F4E65656450726F63657373
      4E616D650809507265636973696F6E02000453697A6502000000}
  end
  object sdvGather: TsdDataView
    Active = True
    DataSet = sddGather
    Filtered = False
    Columns = <
      item
        FieldName = 'ID'
      end
      item
        FieldName = 'Name'
      end
      item
        FieldName = 'CurTotalPrice'
      end
      item
        FieldName = 'PreTotalPrice'
      end
      item
        FieldName = 'EndTotalPrice'
      end
      item
        FieldName = 'AddTotalPrice'
      end>
    OnGetText = sdvGatherGetText
    Left = 152
    Top = 144
  end
end
