inherited dmInformeBeneficiosAnuales: TdmInformeBeneficiosAnuales
  OldCreateOrder = True
  Left = 425
  Top = 338
  Height = 440
  Width = 535
  inherited FReport: TfrReport
    Dataset = TablaFac
    OnBeforePrint = FReportBeforePrint
    ReportForm = {19000000}
  end
  object TablaFac: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaFacturas
    Left = 152
    Top = 32
  end
  object TablaFacturas: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select extract(month from f.FECHAFACTURA) AS F_1, d.descripcion,' +
        ' '#39' '#39' as SERIE, f.IMPORTETOTAL'
      'from FACTURASCLIENTE f, DOCUMENTOS d'
      'where f.codigodocumento = d.codigo'
      'and CODIGOEMPRESA = 0'
      'and f.FECHAFACTURA between '#39'01.01.2004'#39' and '#39'31.12.2004'#39)
    Left = 152
    Top = 80
  end
  object frCrossObject1: TfrCrossObject
    Left = 32
    Top = 232
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 
      'roberto:d:\proyectos\factuges 2000 v2 (acana)\codigo\bd\acana.gd' +
      'b'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=iSO8859_1')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 256
    Top = 32
  end
  object IBTransaction1: TIBTransaction
    Active = True
    AutoStopAction = saNone
    Left = 272
    Top = 128
  end
end
