inherited dmInformeBeneficiosAnualesContratos: TdmInformeBeneficiosAnualesContratos
  OldCreateOrder = True
  Left = 430
  Top = 320
  Height = 440
  Width = 535
  inherited FReport: TfrReport
    Dataset = TablaCon
    OnBeforePrint = FReportBeforePrint
    ReportForm = {19000000}
  end
  object TablaCon: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaContratos
    Left = 152
    Top = 32
  end
  object TablaContratos: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select extract(month from c.FECHACONTRATO), d.descripcion, c.IMP' +
        'ORTETOTAL'
      'from CONTRATOSCLIENTE c, DOCUMENTOS d'
      'where c.CODIGODOCUMENTO = d.CODIGO'
      'and c.FECHACONTRATO between '#39'01.01.2004'#39' and '#39'31.12.2004'#39
      '')
    Left = 152
    Top = 80
  end
  object frCrossObject1: TfrCrossObject
    Left = 32
    Top = 224
  end
end
