BillsEditor/Reports/Model/ScProjGLJGatherDM.dfm

object ScProjGLJGather: TScProjGLJGather
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 532
  Top = 338
  Height = 358
  Width = 415
  object cdsGLJGather: TClientDataSet
    Active = True
    Aggregates = <
      item
        Active = True
        GroupingLevel = 1
        IndexName = 'cdsGLJGatherIdxSort'
        Visible = False
      end
      item
        Active = True
        GroupingLevel = 2
        IndexName = 'cdsGLJGatherIdxSort'
        Visible = False
      end
      item
        Active = True
        GroupingLevel = 3
        IndexName = 'cdsGLJGatherIdxSort'
        Visible = False
      end>
    AggregatesActive = True
    FieldDefs = <
      item
        Name = 'Code'
        DataType = ftInteger
      end
      item
        Name = 'Name'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Unit'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'ProjectName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Price'
        DataType = ftCurrency
      end
      item
        Name = 'Amount'
        DataType = ftFloat
      end
      item
        Name = 'SumAmount'
        DataType = ftFloat
      end
      item
        Name = 'ProjectID'
        DataType = ftInteger
      end
      item
        Name = 'LibID'
        DataType = ftInteger
      end
      item
        Name = 'Type'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'cdsGLJGatherIdxSort'
        Fields = 'Type;ProjectID;Code'
      end
      item
        Name = 'cdsGLJGatherIdxCalc'
        Fields = 'Code'
      end
      item
        Name = 'cdsGLJGatherBasePrice'
      end>
    IndexName = 'cdsGLJGatherIdxSort'
    Params = <>
    StoreDefs = True
    Left = 40
    Top = 40
    Data = {
      E90000009619E0BD01000000180000000A000000000003000000E90004436F64
      650400010000000000044E616D65010049000000010005574944544802000200
      320004556E69740100490000000100055749445448020002000C000B50726F6A
      6563744E616D6501004900000001000557494454480200020032000550726963
      65080004000000010007535542545950450200490006004D6F6E65790006416D
      6F756E7408000400000000000953756D416D6F756E7408000400000000000950
      726F6A65637449440400010000000000054C6962494404000100000000000454
      79706504000100000000000000}
    object cdsGLJGatherCode: TIntegerField
      DisplayWidth = 10
      FieldName = 'Code'
    end
    object cdsGLJGatherName: TStringField
      DisplayWidth = 15
      FieldName = 'Name'
      Size = 50
    end
    object cdsGLJGatherUnit: TStringField
      DisplayWidth = 12
      FieldName = 'Unit'
      Size = 12
    end
    object cdsGLJGatherProjectName: TStringField
      DisplayWidth = 22
      FieldName = 'ProjectName'
      Size = 50
    end
    object cdsGLJGatherPrice: TCurrencyField
      FieldName = 'Price'
    end
    object cdsGLJGatherAmount: TFloatField
      DisplayWidth = 10
      FieldName = 'Amount'
      DisplayFormat = '0.000'
    end
    object cdsGLJGatherSumAmount: TFloatField
      FieldName = 'SumAmount'
    end
    object cdsGLJGatherProjectID: TIntegerField
      DisplayWidth = 10
      FieldName = 'ProjectID'
    end
    object cdsGLJGatherLibID: TIntegerField
      DisplayWidth = 10
      FieldName = 'LibID'
    end
    object cdsGLJGatherType: TIntegerField
      DisplayWidth = 10
      FieldName = 'Type'
    end
  end
  object aqProjGLJ: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'SELECT Code As ACode, Name As AName, Unit As AUnit,'
      '       Amount AS UAmount, Type As AType, BudgetPrice As Price,'
      
        '       TenderAmount AS UTenderAmount, TenderPrice As TenderPrice' +
        '  '
      'FROM ProjectGLJ')
    Left = 128
    Top = 40
    object aqProjGLJACode: TIntegerField
      FieldName = 'ACode'
    end
    object aqProjGLJAName: TWideStringField
      FieldName = 'AName'
      Size = 100
    end
    object aqProjGLJAUnit: TWideStringField
      FieldName = 'AUnit'
      Size = 16
    end
    object aqProjGLJPrice: TCurrencyField
      FieldName = 'Price'
    end
    object aqProjGLJUAmount: TFloatField
      FieldName = 'UAmount'
      DisplayFormat = '0.000'
    end
    object aqProjGLJAType: TIntegerField
      FieldName = 'AType'
    end
    object aqProjGLJUTenderAmount: TFloatField
      FieldName = 'UTenderAmount'
    end
    object aqProjGLJTenderPrice: TCurrencyField
      FieldName = 'TenderPrice'
    end
  end
  object cdsProjData: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'BuildProjName'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Author'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Auditor'
        DataType = ftWideString
        Size = 50
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 40
    Top = 128
    Data = {
      730000009619E0BD01000000180000000300000000000300000073000D427569
      6C6450726F6A4E616D6501004A00000001000557494454480200020064000641
      7574686F7201004A00000001000557494454480200020064000741756469746F
      7201004A00000001000557494454480200020064000000}
    object cdsProjDataBuildProjName: TWideStringField
      FieldName = 'BuildProjName'
      Size = 50
    end
    object cdsProjDataAuthor: TWideStringField
      FieldName = 'Author'
      Size = 50
    end
    object cdsProjDataAuditor: TWideStringField
      FieldName = 'Auditor'
      Size = 50
    end
  end
  object cdsGLJGatherD: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 40
    Top = 200
  end
  object aqMateBuildFee: TADOQuery
    Parameters = <>
    SQL.Strings = (
      
        'SELECT SUM(R.MaterialFee) AS MateFee, B.TotalPrice AS BuildFee, ' +
        'P.BudgetProjectName AS FileName,'
      
        '       SUM(R.TenderMaterialFee) AS TenderMateFee, B.TenderTotalP' +
        'rice AS TenderBuildFee '
      'FROM Bills AS B, RationCalcList AS R, ProjData AS P'
      'WHERE B.ID = 1'
      'GROUP BY B.TotalPrice, P.BudgetProjectName,B.TenderTotalPrice')
    Left = 136
    Top = 200
    object aqMateBuildFeeMateFee: TBCDField
      FieldName = 'MateFee'
    end
    object aqMateBuildFeeBuildFee: TFloatField
      FieldName = 'BuildFee'
    end
    object aqMateBuildFeeFileName: TStringField
      FieldName = 'FileName'
    end
    object aqMateBuildFeeTenderMateFee: TBCDField
      FieldName = 'TenderMateFee'
    end
    object aqMateBuildFeeTenderBuildFee: TFloatField
      FieldName = 'TenderBuildFee'
    end
  end
  object cdsGLJForReport: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 232
    Top = 200
  end
end