inherited dmInformePresupuestoCliente: TdmInformePresupuestoCliente
OldCreateOrder = True
Left = 522
Top = 292
Height = 416
Width = 548
inherited FReport: TfrReport
Dataset = TablaCab
ReportForm = {19000000}
end
object TablaCab: TfrDBDataSet
CloseDataSource = True
DataSet = TablaPresupuesto
Left = 152
Top = 32
object TablaDet: TfrDBDataSet
DataSet = TablaDetallesPresupuesto
Left = 216
object TablaPresupuesto: TIBQuery
BufferChunks = 1000
CachedUpdates = False
Top = 88
object TablaDetallesPresupuesto: TIBQuery
DataSource = dsPresupuesto
Left = 256
object TablaPropiedadesPresupuesto: TIBQuery
DataSource = dsDetallesPresupuesto
Left = 392
object TablaProp: TfrDBDataSet
DataSet = TablaPropiedadesPresupuesto
Left = 280
object dsDetallesPresupuesto: TDataSource
Left = 264
Top = 144
object dsPropiedadesPresupuesto: TDataSource
object dsPresupuesto: TDataSource
object TablaPrecios1: TIBQuery
SQL.Strings = (
'select * from DETALLESPRESUPUESTOSARTICULOS'
'where codigopresupuesto = :codigo and '
'NUMCONCEPTO > 1 AND NUMCONCEPTO < 4 AND '
'TIPOCONCEPTO = '#39'PRECIO'#39
'order by numconcepto')
Top = 200
ParamData = <
item
DataType = ftString
Name = 'CODIGO'
ParamType = ptUnknown
Size = 13
end>
object TablaPrec1: TfrDBDataSet
DataSource = dsPrecios1
Top = 304
object dsPrecios1: TDataSource
DataSet = TablaPrecios1
Top = 256