david
ab4c274533
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES/trunk@4 3f40d355-893c-4141-8e64-b1d9be72e7e7
37 lines
946 B
Plaintext
37 lines
946 B
Plaintext
inherited dmInformeBeneficiosAnualesContratos: TdmInformeBeneficiosAnualesContratos
|
|
OldCreateOrder = True
|
|
Left = 430
|
|
Top = 320
|
|
Height = 440
|
|
Width = 535
|
|
inherited FReport: TfrReport
|
|
Dataset = TablaCon
|
|
OnBeforePrint = FReportBeforePrint
|
|
ReportForm = {19000000}
|
|
end
|
|
object TablaCon: TfrDBDataSet
|
|
CloseDataSource = True
|
|
DataSet = TablaContratos
|
|
Left = 152
|
|
Top = 32
|
|
end
|
|
object TablaContratos: TIBQuery
|
|
BufferChunks = 1000
|
|
CachedUpdates = False
|
|
SQL.Strings = (
|
|
|
|
'select extract(month from c.FECHACONTRATO), d.descripcion, c.IMP' +
|
|
'ORTETOTAL'
|
|
'from CONTRATOSCLIENTE c, DOCUMENTOS d'
|
|
'where c.CODIGODOCUMENTO = d.CODIGO'
|
|
'and c.FECHACONTRATO between '#39'01.01.2004'#39' and '#39'31.12.2004'#39
|
|
'')
|
|
Left = 152
|
|
Top = 80
|
|
end
|
|
object frCrossObject1: TfrCrossObject
|
|
Left = 32
|
|
Top = 224
|
|
end
|
|
end
|