103 lines
2.3 KiB
Plaintext
103 lines
2.3 KiB
Plaintext
|
inherited dmInformeContratoCliente: TdmInformeContratoCliente
|
||
|
|
OldCreateOrder = True
|
||
|
|
Left = 464
|
||
|
|
Top = 265
|
||
|
|
Height = 416
|
||
|
|
Width = 548
|
||
|
|
inherited FReport: TfrReport
|
||
|
|
Dataset = TablaCab
|
||
|
|
ReportForm = {19000000}
|
||
|
|
end
|
||
|
|
inherited frIBXComponents1: TfrIBXComponents
|
||
|
|
Left = 40
|
||
|
|
Top = 136
|
||
|
|
end
|
||
|
|
object TablaCab: TfrDBDataSet
|
||
|
|
CloseDataSource = True
|
||
|
|
DataSet = TablaContrato
|
||
|
|
Left = 152
|
||
|
|
Top = 32
|
||
|
|
end
|
||
|
|
object TablaDet: TfrDBDataSet
|
||
|
|
CloseDataSource = True
|
||
|
|
DataSet = TablaDetallesContrato
|
||
|
|
Left = 248
|
||
|
|
Top = 32
|
||
|
|
end
|
||
|
|
object TablaContrato: TIBQuery
|
||
|
|
BufferChunks = 1000
|
||
|
|
CachedUpdates = False
|
||
|
|
Left = 152
|
||
|
|
Top = 88
|
||
|
|
end
|
||
|
|
object TablaDetallesContrato: TIBQuery
|
||
|
|
BufferChunks = 1000
|
||
|
|
CachedUpdates = False
|
||
|
|
DataSource = dsContrato
|
||
|
|
Left = 256
|
||
|
|
Top = 88
|
||
|
|
end
|
||
|
|
object TablaPropiedadesContrato: TIBQuery
|
||
|
|
BufferChunks = 1000
|
||
|
|
CachedUpdates = False
|
||
|
|
DataSource = dsDetallesContrato
|
||
|
|
Left = 392
|
||
|
|
Top = 88
|
||
|
|
end
|
||
|
|
object TablaProp: TfrDBDataSet
|
||
|
|
CloseDataSource = True
|
||
|
|
DataSet = TablaPropiedadesContrato
|
||
|
|
Left = 384
|
||
|
|
Top = 32
|
||
|
|
end
|
||
|
|
object dsDetallesContrato: TDataSource
|
||
|
|
DataSet = TablaDetallesContrato
|
||
|
|
Left = 264
|
||
|
|
Top = 144
|
||
|
|
end
|
||
|
|
object dsPropiedadesContrato: TDataSource
|
||
|
|
DataSet = TablaPropiedadesContrato
|
||
|
|
Left = 392
|
||
|
|
Top = 144
|
||
|
|
end
|
||
|
|
object dsContrato: TDataSource
|
||
|
|
DataSet = TablaContrato
|
||
|
|
Left = 152
|
||
|
|
Top = 144
|
||
|
|
end
|
||
|
|
object TablaPrecios1: TIBQuery
|
||
|
|
BufferChunks = 1000
|
||
|
|
CachedUpdates = False
|
||
|
|
DataSource = dsContrato
|
||
|
|
SQL.Strings = (
|
||
|
|
'select * from DETALLESPRESUPUESTOSARTICULOS'
|
||
|
|
'where codigopresupuesto = :codigo and '
|
||
|
|
'NUMCONCEPTO > 1 AND NUMCONCEPTO < 4 AND '
|
||
|
|
'TIPOCONCEPTO = '#39'PRECIO'#39
|
||
|
|
'order by numconcepto')
|
||
|
|
Left = 152
|
||
|
|
Top = 200
|
||
|
|
ParamData = <
|
||
|
|
item
|
||
|
|
DataType = ftString
|
||
|
|
Name = 'CODIGO'
|
||
|
|
ParamType = ptUnknown
|
||
|
|
Size = 13
|
||
|
|
end>
|
||
|
|
end
|
||
|
|
object TablaPrec1: TfrDBDataSet
|
||
|
|
DataSource = dsPrecios1
|
||
|
|
Left = 152
|
||
|
|
Top = 320
|
||
|
|
end
|
||
|
|
object dsPrecios1: TDataSource
|
||
|
|
DataSet = TablaPrecios1
|
||
|
|
Left = 152
|
||
|
|
Top = 256
|
||
|
|
end
|
||
|
|
object frRichObject1: TfrRichObject
|
||
|
|
Left = 40
|
||
|
|
Top = 192
|
||
|
|
end
|
||
|
|
end
|