inherited dmInformeListadoPresupuestosCli: TdmInformeListadoPresupuestosCli
  OldCreateOrder = True
  Left = 206
  Top = 216
  inherited FReport: TfrReport
    Dataset = frdsTablaPresupuestos
    ReportForm = {19000000}
  end
  object TablaPresupuestos: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from PRESUPUESTOSCLIENTE '
      'where FECHAALTA between :FECHAINI and :FECHAFIN '
      'and CODIGOEMPRESA = :CODIGOEMPRESA '
      'order by FECHAALTA, CODIGO')
    Left = 184
    Top = 128
    ParamData = <
      item
        DataType = ftDate
        Name = 'FECHAINI'
        ParamType = ptInputOutput
      end
      item
        DataType = ftDate
        Name = 'FECHAFIN'
        ParamType = ptInputOutput
      end
      item
        DataType = ftSmallint
        Name = 'CODIGOEMPRESA'
        ParamType = ptInputOutput
        Value = 0
      end>
  end
  object frdsTablaPresupuestos: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaPresupuestos
    Left = 304
    Top = 128
  end
end
