42 lines
1.0 KiB
Plaintext
42 lines
1.0 KiB
Plaintext
|
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
|