david
ab4c274533
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES/trunk@4 3f40d355-893c-4141-8e64-b1d9be72e7e7
60 lines
1.5 KiB
Plaintext
60 lines
1.5 KiB
Plaintext
inherited dmInformeBeneficiosAnuales: TdmInformeBeneficiosAnuales
|
|
OldCreateOrder = True
|
|
Left = 425
|
|
Top = 338
|
|
Height = 440
|
|
Width = 535
|
|
inherited FReport: TfrReport
|
|
Dataset = TablaFac
|
|
OnBeforePrint = FReportBeforePrint
|
|
ReportForm = {19000000}
|
|
end
|
|
object TablaFac: TfrDBDataSet
|
|
CloseDataSource = True
|
|
DataSet = TablaFacturas
|
|
Left = 152
|
|
Top = 32
|
|
end
|
|
object TablaFacturas: TIBQuery
|
|
BufferChunks = 1000
|
|
CachedUpdates = False
|
|
SQL.Strings = (
|
|
|
|
'select extract(month from f.FECHAFACTURA) AS F_1, d.descripcion,' +
|
|
' '#39' '#39' as SERIE, f.IMPORTETOTAL'
|
|
'from FACTURASCLIENTE f, DOCUMENTOS d'
|
|
'where f.codigodocumento = d.codigo'
|
|
'and CODIGOEMPRESA = 0'
|
|
'and f.FECHAFACTURA between '#39'01.01.2004'#39' and '#39'31.12.2004'#39)
|
|
Left = 152
|
|
Top = 80
|
|
end
|
|
object frCrossObject1: TfrCrossObject
|
|
Left = 32
|
|
Top = 232
|
|
end
|
|
object IBDatabase1: TIBDatabase
|
|
Connected = True
|
|
DatabaseName =
|
|
'roberto:d:\proyectos\factuges 2000 v2 (acana)\codigo\bd\acana.gd' +
|
|
'b'
|
|
Params.Strings = (
|
|
'user_name=sysdba'
|
|
'password=masterkey'
|
|
'lc_ctype=iSO8859_1')
|
|
LoginPrompt = False
|
|
DefaultTransaction = IBTransaction1
|
|
IdleTimer = 0
|
|
SQLDialect = 3
|
|
TraceFlags = []
|
|
Left = 256
|
|
Top = 32
|
|
end
|
|
object IBTransaction1: TIBTransaction
|
|
Active = True
|
|
AutoStopAction = saNone
|
|
Left = 272
|
|
Top = 128
|
|
end
|
|
end
|