This repository has been archived on 2024-12-02. You can view files and clone it, but cannot push or open issues or pull requests.
FactuGES/Informes/InformeContratoCliente.dfm
2007-06-26 08:08:27 +00:00

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