inherited dmInformeListadoFacturasProvPendientes: TdmInformeListadoFacturasProvPendientes
  OldCreateOrder = True
  Left = 253
  Top = 214
  inherited FReport: TfrReport
    Dataset = frdsTablaFacturas
    Top = 32
    ReportForm = {19000000}
  end
  object TablaFacturas: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select BANCO, NOMBRE, IMPORTETOTAL, FORMAPAGO, FECHAVENCIMIENTO,' +
        ' SITUACION,'
      
        'EXTRACT (MONTH FROM FECHAVENCIMIENTO)||'#39'/'#39'||EXTRACT (YEAR FROM F' +
        'ECHAVENCIMIENTO) as MES  '
      'from FACTURASPROVEEDOR'
      'where FECHAVENCIMIENTO between :FECHAINI and :FECHAFIN '
      'and upper(SITUACION) <> '#39'PAGADA'#39
      'and CODIGOEMPRESA = :CODIGOEMPRESA'
      'order by FECHAVENCIMIENTO, BANCO, NOMBRE')
    Left = 184
    Top = 128
  end
  object frdsTablaFacturas: TfrDBDataSet
    DataSet = TablaFacturas
    Left = 320
    Top = 128
  end
  object TablaFacturasBanco: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select BANCO, NOMBRE, IMPORTETOTAL, FORMAPAGO, FECHAVENCIMIENTO,' +
        ' SITUACION,'
      
        'EXTRACT (MONTH FROM FECHAVENCIMIENTO)||'#39'/'#39'||EXTRACT (YEAR FROM F' +
        'ECHAVENCIMIENTO) as MES  '
      'from FACTURASPROVEEDOR'
      'where FECHAVENCIMIENTO between :FECHAINI and :FECHAFIN '
      'and upper(SITUACION) <> '#39'PAGADA'#39
      'and CODIGOEMPRESA = :CODIGOEMPRESA'
      'order by FECHAVENCIMIENTO, BANCO, NOMBRE')
    Left = 184
    Top = 192
  end
  object frdsTablaFacturasBanco: TfrDBDataSet
    DataSet = TablaFacturasBanco
    Left = 320
    Top = 184
  end
end
