inherited dmInformeEstadoObraHistorica: TdmInformeEstadoObraHistorica
  OldCreateOrder = True
  Left = 259
  Top = 241
  inherited FReport: TfrReport
    Dataset = frdsTablaEstado
    ReportForm = {19000000}
  end
  object TablaEstado: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select CODIGOARTICULO, FAMILIA, DESCRIPCION,'
      'UNIDADESMEDIDA, EXISTENCIAS'
      'from ESTADOOBRASHISTORICAS'
      'where CODIGOEMPRESA = :CODIGOEMPRESA and'
      'CODIGOOBRA = :CODIGOOBRA'
      'order by CODIGOARTICULO')
    Left = 168
    Top = 168
    ParamData = <
      item
        DataType = ftSmallint
        Name = 'CODIGOEMPRESA'
        ParamType = ptInputOutput
        Value = 0
      end
      item
        DataType = ftSmallint
        Name = 'CODIGOOBRA'
        ParamType = ptInputOutput
        Value = 1
      end>
  end
  object frdsTablaEstado: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaEstado
    Left = 248
    Top = 168
  end
end
