From 78809418d5bea804e45c30aa2ca55e9d0b9c74f5 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 15 Jan 2010 18:07:30 +0000 Subject: [PATCH] Repaso de informes git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@21 f33bb606-9f5c-448d-9c99-757f00063c96 --- .../Controller/uClientesController.pas | 2 +- .../Reports/uRptRecibosCliente_Server.dfm | 189 ++++++++++-------- .../Views/uEditorRecibosCliente.dfm | 34 +++- 3 files changed, 142 insertions(+), 83 deletions(-) diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index a46d9a3..4c37d5c 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -118,7 +118,7 @@ begin ACliente.DatosBancarios.DataTable.First; while not ACliente.DatosBancarios.DataTable.EOF do begin - Aux := Format('Nš de cuenta: %s %s %s %s - Titular: %s ', [ACliente.DatosBancarios.ENTIDAD, + Aux := Format('%s %s %s %s - Titular: %s ', [ACliente.DatosBancarios.ENTIDAD, ACliente.DatosBancarios.SUCURSAL, ACliente.DatosBancarios.DC, ACliente.DatosBancarios.CUENTA, ACliente.DatosBancarios.TITULAR]); Add(Format('%s=%d', [Aux, ACliente.DatosBancarios.ID])); ACliente.DatosBancarios.DataTable.Next; diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm index d014425..0246e62 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm @@ -48,6 +48,26 @@ object RptRecibosCliente: TRptRecibosCliente DataType = datString Size = 255 end + item + Name = 'ENTIDAD' + DataType = datString + Size = 254 + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 254 + end + item + Name = 'DC' + DataType = datString + Size = 254 + end + item + Name = 'CUENTA' + DataType = datString + Size = 254 + end item Name = 'ID_REMESA' DataType = datInteger @@ -198,7 +218,7 @@ object RptRecibosCliente: TRptRecibosCliente item Name = 'ID' DataType = datInteger - Value = '' + Value = '8' ParamType = daptInput end> MasterMappingMode = mmDataRequest @@ -207,8 +227,6 @@ object RptRecibosCliente: TRptRecibosCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 264 @@ -451,38 +469,42 @@ object RptRecibosCliente: TRptRecibosCliente item Name = 'ID' DataType = datInteger - Value = '' + Value = '8' ParamType = daptInput end> Statements = < item Connection = 'IBX' - TargetTable = 'REMESAS_CLIENTE' + TargetTable = 'V_RECIBOS_CLIENTE' SQL = - 'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10' V_RECIBOS_CLIENTE.ID_RECIBO' + - '_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' + - ' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA' + - ','#10' V_RECIBOS_CLIENTE.SITUACION,'#10' V_RECIBOS_CLIENTE.ID_FACT' + - 'URA,'#10' V_RECIBOS_CLIENTE.DATOS_BANCARIOS,'#10' V_RECIBOS_CLIENT' + - 'E.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REMESA,'#10' V_RECI' + - 'BOS_CLIENTE.FECHA_EMISION,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIEN' + - 'TO,'#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBS' + - 'ERVACIONES,'#10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE' + - '.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBO' + - 'S_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTUR' + - 'A,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.' + - 'NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_REC' + - 'IBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_' + - 'CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_' + - 'CLIENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPR' + - 'ESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA,' + - ' EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA' + - ' as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_E' + - 'MPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1,' + - ' EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_ME' + - 'RCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTE' + - 'R JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10 + - 'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10 + 'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10#10' V_RECIBOS_CLIENTE.ID_RECIB' + + 'O_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' + + ' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RECIBOS_CLIENTE.REFERENCI' + + 'A,'#10' V_RECIBOS_CLIENTE.SITUACION,'#10' V_RECIBOS_CLIENTE.ID_FAC' + + 'TURA,'#10#10' V_RECIBOS_CLIENTE.DATOS_BANCARIOS,'#10' substr(V_RECIB' + + 'OS_CLIENTE.DATOS_BANCARIOS, 1,4) as ENTIDAD,'#10' substr(V_RECIBO' + + 'S_CLIENTE.DATOS_BANCARIOS, 6,9) as SUCURSAL,'#10' substr(V_RECIBO' + + 'S_CLIENTE.DATOS_BANCARIOS, 11,13) as DC,'#10' substr(V_RECIBOS_CL' + + 'IENTE.DATOS_BANCARIOS, 14,23) as CUENTA,'#10#10' V_RECIBOS_CLIENTE.' + + 'ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REMESA,'#10' V_RECIBO' + + 'S_CLIENTE.FECHA_EMISION,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO' + + ','#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBSER' + + 'VACIONES,'#10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE.O' + + 'TROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBOS_' + + 'CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTURA,' + + #10' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.NO' + + 'MBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_RECIB' + + 'OS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_CL' + + 'IENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CL' + + 'IENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRES' + + 'A, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, E' + + 'MPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA a' + + 's PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMP' + + 'RESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, E' + + 'MPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERC' + + 'ANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER ' + + 'JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WH' + + 'ERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -674,6 +696,26 @@ object RptRecibosCliente: TRptRecibosCliente DatasetField = 'LOGOTIPO' TableField = '' SQLOrigin = 'LOGOTIPO' + end + item + DatasetField = 'ENTIDAD' + TableField = '' + SQLOrigin = 'ENTIDAD' + end + item + DatasetField = 'SUCURSAL' + TableField = '' + SQLOrigin = 'SUCURSAL' + end + item + DatasetField = 'DC' + TableField = '' + SQLOrigin = 'DC' + end + item + DatasetField = 'CUENTA' + TableField = '' + SQLOrigin = 'CUENTA' end> end> Name = 'Informe_Cabecera' @@ -714,6 +756,26 @@ object RptRecibosCliente: TRptRecibosCliente DataType = datString Size = 255 end + item + Name = 'ENTIDAD' + DataType = datString + Size = 254 + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 254 + end + item + Name = 'DC' + DataType = datString + Size = 254 + end + item + Name = 'CUENTA' + DataType = datString + Size = 254 + end item Name = 'ID_REMESA' DataType = datInteger @@ -1179,61 +1241,30 @@ object RptRecibosCliente: TRptRecibosCliente Top = 158 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.7.71' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] + PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Por defecto' + PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 - ReportOptions.CreateDate = 37800.807714351900000000 - ReportOptions.LastChange = 39840.717636527780000000 + ReportOptions.CreateDate = 37871.995398692100000000 + ReportOptions.Description.Strings = ( + 'Demonstrates how to create simple list report.') + ReportOptions.LastChange = 40193.741058298610000000 + ReportOptions.VersionBuild = '1' + ReportOptions.VersionMajor = '12' + ReportOptions.VersionMinor = '13' + ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' - 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0); ' - 'end;' - '' - 'procedure Band1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if not Engine.FinalPass then' - ' Set('#39'TotalPaginas'#39', ( + 1));' - '' - ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1)); ' - 'end;' - '' - 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if Engine.FinalPass then' - ' begin' - - ' //A la vez que salta este salta la asignacion de pagina por ' + - 'lo que no coincide nunca si no suponemos +1 ' + - ' ' + - ' ' + - ' ' + - ' ' - ' if (( + 1) = ) then' - ' begin ' - ' mContinua.Visible := True;' - ' end ' - ' else' - ' begin ' - ' mContinua.Visible := False;' - ' end ' - ' end; ' - 'end;' - '' 'begin' '' 'end.') ShowProgress = False StoreInDFM = False - OnStartReport = 'frxReportOnStartReport' Left = 169 Top = 16 end @@ -1241,6 +1272,7 @@ object RptRecibosCliente: TRptRecibosCliente UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera + BCDToCurrency = False Left = 264 Top = 16 end @@ -1254,6 +1286,7 @@ object RptRecibosCliente: TRptRecibosCliente UserName = 'frxDBCompensados' CloseDataSource = False DataSource = DADataCompensados + BCDToCurrency = False Left = 360 Top = 16 end @@ -1286,8 +1319,6 @@ object RptRecibosCliente: TRptRecibosCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Compensados' IndexDefs = <> Left = 360 @@ -1351,8 +1382,6 @@ object RptRecibosCliente: TRptRecibosCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'InformeListadoRecibos' IndexDefs = <> Left = 496 @@ -1368,6 +1397,7 @@ object RptRecibosCliente: TRptRecibosCliente UserName = 'frxDBInformeListadoRecibos' CloseDataSource = False DataSource = DADSInformeListadoRecibos + BCDToCurrency = False Left = 496 Top = 16 end @@ -1379,6 +1409,7 @@ object RptRecibosCliente: TRptRecibosCliente UserName = 'frxDBInformeListadoRecibosResumen' CloseDataSource = False DataSource = DADSInformeListadoRecibosResumen + BCDToCurrency = False Left = 504 Top = 192 end @@ -1396,8 +1427,6 @@ object RptRecibosCliente: TRptRecibosCliente LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 504 Top = 304 @@ -1406,6 +1435,7 @@ object RptRecibosCliente: TRptRecibosCliente UserName = 'frxDBInformeListadoRecibosPendientes' CloseDataSource = False DataSource = DADSInformeListadoRecibosPendientes + BCDToCurrency = False Left = 704 Top = 16 end @@ -1482,8 +1512,6 @@ object RptRecibosCliente: TRptRecibosCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'InformeListadoRecibosPendientes' IndexDefs = <> Left = 704 @@ -1493,6 +1521,7 @@ object RptRecibosCliente: TRptRecibosCliente UserName = 'frxDBInformeListadoRecibosPendResumen' CloseDataSource = False DataSource = DADSInformeListadoRecibosPendResumen + BCDToCurrency = False Left = 704 Top = 192 end @@ -1510,8 +1539,6 @@ object RptRecibosCliente: TRptRecibosCliente LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 704 Top = 304 diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index 8e111ad..fffd1a5 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -41,7 +41,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente Width = 645 ExplicitWidth = 645 inherited tbxMain: TTBXToolbar - ExplicitWidth = 577 + ExplicitWidth = 434 end inherited tbxFiltro: TTBXToolbar ExplicitWidth = 427 @@ -97,6 +97,34 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente ExplicitWidth = 645 ExplicitHeight = 312 inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL + end + item + Format = '0 recibos' + Kind = skCount + Column = frViewRecibosCliente1.cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewRecibosCliente1.cxGridViewIMPORTE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewRecibosCliente1.cxGridViewOTROS_GASTOS + end> end end inherited frViewFiltroBase1: TfrViewFiltroBase @@ -204,6 +232,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente Enabled = False Visible = False end + inherited actExportarExcel: TAction + Enabled = False + Visible = False + end object actInformes: TAction Category = 'Acciones' Caption = 'Informes'