inherited dmInformeListadoContabilidad: TdmInformeListadoContabilidad
  OldCreateOrder = True
  Left = 193
  Top = 211
  Width = 717
  inherited FReport: TfrReport
    ReportForm = {19000000}
  end
  object TablaFacturasProv: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select CODIGOPROVEEDOR, NIFCIF, NOMBRE,'
      'BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL,'
      
        'cast('#39'01.'#39'||EXTRACT (MONTH FROM FECHAALTA)||'#39'.'#39'||EXTRACT (YEAR F' +
        'ROM FECHAALTA) as DATE) as MES'
      'from FACTURASPROVEEDOR'
      'where FECHAALTA between :FECHAINI and :FECHAFIN'
      'and CODIGOEMPRESA = :CODIGOEMPRESA'
      'order by 7, NOMBRE')
    Left = 152
    Top = 264
    ParamData = <
      item
        DataType = ftDate
        Name = 'FECHAINI'
        ParamType = ptInputOutput
        Value = 37722d
      end
      item
        DataType = ftDate
        Name = 'FECHAFIN'
        ParamType = ptInputOutput
        Value = '23/11/2003'
      end
      item
        DataType = ftSmallint
        Name = 'CODIGOEMPRESA'
        ParamType = ptInputOutput
        Value = 0
      end>
  end
  object frdsTablaFacturasProv: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaFacturasProv
    Left = 360
    Top = 266
  end
  object TablaFacturasCli: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select CODIGOCLIENTE, NIFCIF, NOMBRE,'
      'BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL,'
      
        'cast('#39'01.'#39'||EXTRACT (MONTH FROM FECHAALTA)||'#39'.'#39'||EXTRACT (YEAR F' +
        'ROM FECHAALTA) as DATE) as MES'
      'from FACTURASCLIENTE'
      'where FECHAALTA between :FECHAINI and :FECHAFIN'
      'and CODIGOEMPRESA = :CODIGOEMPRESA'
      'order by 7, nombre')
    Left = 149
    Top = 183
    ParamData = <
      item
        DataType = ftDate
        Name = 'FECHAINI'
        ParamType = ptInputOutput
        Value = 37722d
      end
      item
        DataType = ftDate
        Name = 'FECHAFIN'
        ParamType = ptInputOutput
        Value = '23/11/2003'
      end
      item
        DataType = ftSmallint
        Name = 'CODIGOEMPRESA'
        ParamType = ptInputOutput
        Value = 0
      end>
  end
  object frdsTablaFacturasCli: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaFacturasCli
    Left = 360
    Top = 190
  end
end
