From ccebb361130607ec4d7395f68e904012b73d3228 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 7 Oct 2015 16:23:12 +0000 Subject: [PATCH] Tareas #1413: Repasar los sumatorios de bases imponibles de aplicacion en general ya que salen en el grid Tareas #1416: Exportar a fichero excel los presupuestos de cliente Tareas #1417: Cambiar el logo de todos los informes en keiblair git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@240 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- Source/GUIBase/uViewGrid.dfm | 7 +- .../1/InformeObjetivosAgentesAlbaranes.fr3 | 4 +- .../1/InformeObjetivosAgentesFacturas.fr3 | 4 +- .../2/InformeObjetivosAgentesAlbaranes.fr3 | 4 +- .../2/InformeObjetivosAgentesFacturas.fr3 | 4 +- .../5/InformeObjetivosAgentesAlbaranes.fr3 | 4 +- .../5/InformeObjetivosAgentesFacturas.fr3 | 4 +- Source/Informes/6/InfAlbaranCliente.fr3 | 4 +- Source/Informes/6/InfComisiones.fr3 | 6 +- Source/Informes/6/InfComisionesDesglosado.fr3 | 8 +- Source/Informes/6/InfFacturaCliente.fr3 | 4 +- Source/Informes/6/InfFacturaProforma.fr3 | 4 +- Source/Informes/6/InfPedidoCliente.fr3 | 4 +- Source/Informes/6/InfPresupuestoCliente.fr3 | 4 +- ...InformeListadoAlbaranesClienteGrafComp.fr3 | 155 ++-- .../InformeListadoFacturasClienteGrafComp.fr3 | 62 +- ...nformeListadoFacturasProveedorGrafComp.fr3 | 52 +- .../6/InformeObjetivosAgentesAlbaranes.fr3 | 57 +- .../6/InformeObjetivosAgentesFacturas.fr3 | 55 +- .../8/InformeObjetivosAgentesAlbaranes.fr3 | 4 +- .../8/InformeObjetivosAgentesFacturas.fr3 | 4 +- .../Reports/uRptAlbaranesCliente_Server.dfm | 165 +--- .../Reports/uRptAlbaranesCliente_Server.pas | 8 +- .../Views/uViewAlbaranesDevCliente.dfm | 11 + .../Reports/uRptFacturasCliente_Server.pas | 10 +- .../Views/uEditorFacturasProforma.dfm | 23 + .../Views/uViewFacturasProforma.dfm | 26 + ...IEditorInformeObjetivosAlbaranesReport.pas | 2 + ...uIEditorInformeObjetivosFacturasReport.pas | 2 + .../Controller/uGestorInformesController.pas | 17 +- .../Data/uDataModuleGestorInformes.pas | 12 +- .../Model/Data/uIDataModuleGestorInformes.pas | 4 +- .../Servidor/srvGestorInformes_Impl.pas | 12 +- ...uEditorInformeObjetivosAlbaranesReport.dfm | 24 +- ...uEditorInformeObjetivosAlbaranesReport.pas | 16 +- .../uEditorInformeObjetivosFacturasReport.dfm | 11 +- .../uEditorInformeObjetivosFacturasReport.pas | 16 +- .../Views/uViewFiltroAgentes.dfm | 10 + .../Views/uViewFiltroAgentes.pas | 1 + .../Model/schPedidosClienteClient_Intf.pas | 16 +- .../schPresupuestosClienteClient_Intf.pas | 8 +- .../Views/uEditorPresupuestosCliente.dfm | 7 +- .../Views/uViewPresupuestosCliente.dfm | 18 +- .../Controller/TiposDocumento_controller.dcu | Bin 16263 -> 16263 bytes Source/Servicios/FactuGES.RODL | 4 + Source/Servicios/FactuGES_Intf.pas | 14 +- Source/Servicios/FactuGES_Invk.pas | 12 +- Source/Servicios/RODLFile.res | Bin 56656 -> 56820 bytes Source/Servidor/FactuGES_Server.RES | Bin 23212 -> 23212 bytes Source/Servidor/FactuGES_Server.dproj | 843 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 51 files changed, 875 insertions(+), 873 deletions(-) diff --git a/Source/GUIBase/uViewGrid.dfm b/Source/GUIBase/uViewGrid.dfm index 73d6214..77dadf8 100644 --- a/Source/GUIBase/uViewGrid.dfm +++ b/Source/GUIBase/uViewGrid.dfm @@ -198,17 +198,18 @@ inherited frViewGrid: TfrViewGrid PrinterPage.ScaleMode = smFit PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 42066.687593773150000000 + ReportDocument.CreationDate = 42284.521152384260000000 StyleManager = dmBase.dxPrintStyleManager1 OptionsCards.Shadow.Depth = 0 - OptionsExpanding.ExpandGroupRows = True - OptionsExpanding.ExpandMasterRows = True OptionsFormatting.SuppressBackgroundBitmaps = True OptionsFormatting.UseNativeStyles = True OptionsFormatting.ConsumeSelectionStyle = True OptionsLevels.Unwrap = True + OptionsPagination.OneGroupPerPage = True + OptionsPagination.TopLevelGroup = True OptionsRefinements.TransparentGraphics = True OptionsSize.AutoWidth = True + OptionsView.Footers = False OptionsView.Caption = False OptionsView.ExpandButtons = False OptionsView.FilterBar = False diff --git a/Source/Informes/1/InformeObjetivosAgentesAlbaranes.fr3 b/Source/Informes/1/InformeObjetivosAgentesAlbaranes.fr3 index fc57adf..9712718 100644 --- a/Source/Informes/1/InformeObjetivosAgentesAlbaranes.fr3 +++ b/Source/Informes/1/InformeObjetivosAgentesAlbaranes.fr3 @@ -1,5 +1,5 @@ - + @@ -13,7 +13,7 @@ - + diff --git a/Source/Informes/1/InformeObjetivosAgentesFacturas.fr3 b/Source/Informes/1/InformeObjetivosAgentesFacturas.fr3 index 35ae318..dcdb5e3 100644 --- a/Source/Informes/1/InformeObjetivosAgentesFacturas.fr3 +++ b/Source/Informes/1/InformeObjetivosAgentesFacturas.fr3 @@ -1,5 +1,5 @@ - + @@ -13,7 +13,7 @@ - + diff --git a/Source/Informes/2/InformeObjetivosAgentesAlbaranes.fr3 b/Source/Informes/2/InformeObjetivosAgentesAlbaranes.fr3 index ffdb28f..3c34eb3 100644 --- a/Source/Informes/2/InformeObjetivosAgentesAlbaranes.fr3 +++ b/Source/Informes/2/InformeObjetivosAgentesAlbaranes.fr3 @@ -1,5 +1,5 @@ - + @@ -13,7 +13,7 @@ - + diff --git a/Source/Informes/2/InformeObjetivosAgentesFacturas.fr3 b/Source/Informes/2/InformeObjetivosAgentesFacturas.fr3 index 3d1abdc..ecaeb89 100644 --- a/Source/Informes/2/InformeObjetivosAgentesFacturas.fr3 +++ b/Source/Informes/2/InformeObjetivosAgentesFacturas.fr3 @@ -1,5 +1,5 @@ - + @@ -13,7 +13,7 @@ - + diff --git a/Source/Informes/5/InformeObjetivosAgentesAlbaranes.fr3 b/Source/Informes/5/InformeObjetivosAgentesAlbaranes.fr3 index e1485c4..b55c366 100644 --- a/Source/Informes/5/InformeObjetivosAgentesAlbaranes.fr3 +++ b/Source/Informes/5/InformeObjetivosAgentesAlbaranes.fr3 @@ -1,5 +1,5 @@ - + @@ -13,7 +13,7 @@ - + diff --git a/Source/Informes/5/InformeObjetivosAgentesFacturas.fr3 b/Source/Informes/5/InformeObjetivosAgentesFacturas.fr3 index b7148c8..59bb169 100644 --- a/Source/Informes/5/InformeObjetivosAgentesFacturas.fr3 +++ b/Source/Informes/5/InformeObjetivosAgentesFacturas.fr3 @@ -1,5 +1,5 @@ - + @@ -13,7 +13,7 @@ - + diff --git a/Source/Informes/6/InfAlbaranCliente.fr3 b/Source/Informes/6/InfAlbaranCliente.fr3 index a90897e..8252278 100644 --- a/Source/Informes/6/InfAlbaranCliente.fr3 +++ b/Source/Informes/6/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -56,7 +56,7 @@ - + diff --git a/Source/Informes/6/InfComisiones.fr3 b/Source/Informes/6/InfComisiones.fr3 index 0e334c7..1d89eae 100644 --- a/Source/Informes/6/InfComisiones.fr3 +++ b/Source/Informes/6/InfComisiones.fr3 @@ -1,14 +1,14 @@ - + - - + + diff --git a/Source/Informes/6/InfComisionesDesglosado.fr3 b/Source/Informes/6/InfComisionesDesglosado.fr3 index c84c68e..4ea2fe5 100644 --- a/Source/Informes/6/InfComisionesDesglosado.fr3 +++ b/Source/Informes/6/InfComisionesDesglosado.fr3 @@ -1,14 +1,14 @@ - + - - + + @@ -50,7 +50,7 @@ - + diff --git a/Source/Informes/6/InfFacturaCliente.fr3 b/Source/Informes/6/InfFacturaCliente.fr3 index e91d35a..cb47d05 100644 --- a/Source/Informes/6/InfFacturaCliente.fr3 +++ b/Source/Informes/6/InfFacturaCliente.fr3 @@ -1,11 +1,11 @@ - + - + diff --git a/Source/Informes/6/InfFacturaProforma.fr3 b/Source/Informes/6/InfFacturaProforma.fr3 index 103eb3b..6f68264 100644 --- a/Source/Informes/6/InfFacturaProforma.fr3 +++ b/Source/Informes/6/InfFacturaProforma.fr3 @@ -1,11 +1,11 @@ - + - + diff --git a/Source/Informes/6/InfPedidoCliente.fr3 b/Source/Informes/6/InfPedidoCliente.fr3 index 754627e..d43eb73 100644 --- a/Source/Informes/6/InfPedidoCliente.fr3 +++ b/Source/Informes/6/InfPedidoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -43,7 +43,7 @@ - + diff --git a/Source/Informes/6/InfPresupuestoCliente.fr3 b/Source/Informes/6/InfPresupuestoCliente.fr3 index 3592be6..6c80f30 100644 --- a/Source/Informes/6/InfPresupuestoCliente.fr3 +++ b/Source/Informes/6/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -56,7 +56,7 @@ - + diff --git a/Source/Informes/6/InformeListadoAlbaranesClienteGrafComp.fr3 b/Source/Informes/6/InformeListadoAlbaranesClienteGrafComp.fr3 index 4532a04..ece188c 100644 --- a/Source/Informes/6/InformeListadoAlbaranesClienteGrafComp.fr3 +++ b/Source/Informes/6/InformeListadoAlbaranesClienteGrafComp.fr3 @@ -1,8 +1,8 @@ - + - + @@ -23,61 +23,60 @@ - - + + - - + - - + + - - + + - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + - + @@ -90,60 +89,60 @@ - - - - - - - - - + + + + + + + + + - - - - - - - - + + + + + + + + - - + + - - + + - + - - + + - - + + - + - - + + - - + + - + diff --git a/Source/Informes/6/InformeListadoFacturasClienteGrafComp.fr3 b/Source/Informes/6/InformeListadoFacturasClienteGrafComp.fr3 index 58a619d..e669cc2 100644 --- a/Source/Informes/6/InformeListadoFacturasClienteGrafComp.fr3 +++ b/Source/Informes/6/InformeListadoFacturasClienteGrafComp.fr3 @@ -1,5 +1,5 @@ - + @@ -13,36 +13,36 @@ - + - - + + - - + + - + - - + + - - - - + + + + - + - + @@ -51,34 +51,34 @@ - - + + - - - + + + - - + + - - - - + + + + - + - + - - - + + + diff --git a/Source/Informes/6/InformeListadoFacturasProveedorGrafComp.fr3 b/Source/Informes/6/InformeListadoFacturasProveedorGrafComp.fr3 index 449ea66..4f810cd 100644 --- a/Source/Informes/6/InformeListadoFacturasProveedorGrafComp.fr3 +++ b/Source/Informes/6/InformeListadoFacturasProveedorGrafComp.fr3 @@ -1,5 +1,5 @@ - + @@ -13,36 +13,36 @@ - + - - + + - - + + - + - - + + - - - - + + + + - + - + @@ -51,21 +51,21 @@ - - + + - - - + + + - - + + - - - - + + + + diff --git a/Source/Informes/6/InformeObjetivosAgentesAlbaranes.fr3 b/Source/Informes/6/InformeObjetivosAgentesAlbaranes.fr3 index e1485c4..7d45d3b 100644 --- a/Source/Informes/6/InformeObjetivosAgentesAlbaranes.fr3 +++ b/Source/Informes/6/InformeObjetivosAgentesAlbaranes.fr3 @@ -1,31 +1,30 @@ - + - - - + - + + - - - - - - - - + + + + + + + + - - - - + + + + @@ -40,18 +39,18 @@ - - - - - - - - - - - - + + + + + + + + + + + + diff --git a/Source/Informes/6/InformeObjetivosAgentesFacturas.fr3 b/Source/Informes/6/InformeObjetivosAgentesFacturas.fr3 index b7148c8..1cc092d 100644 --- a/Source/Informes/6/InformeObjetivosAgentesFacturas.fr3 +++ b/Source/Informes/6/InformeObjetivosAgentesFacturas.fr3 @@ -1,31 +1,30 @@ - + - - - + - + + - - - - - - - - + + + + + + + + - - - - + + + + @@ -41,17 +40,17 @@ - - - - - - - - - - - + + + + + + + + + + + diff --git a/Source/Informes/8/InformeObjetivosAgentesAlbaranes.fr3 b/Source/Informes/8/InformeObjetivosAgentesAlbaranes.fr3 index c2e8f7a..14a858e 100644 --- a/Source/Informes/8/InformeObjetivosAgentesAlbaranes.fr3 +++ b/Source/Informes/8/InformeObjetivosAgentesAlbaranes.fr3 @@ -1,5 +1,5 @@ - + @@ -13,7 +13,7 @@ - + diff --git a/Source/Informes/8/InformeObjetivosAgentesFacturas.fr3 b/Source/Informes/8/InformeObjetivosAgentesFacturas.fr3 index 9ac6a2b..9ad0059 100644 --- a/Source/Informes/8/InformeObjetivosAgentesFacturas.fr3 +++ b/Source/Informes/8/InformeObjetivosAgentesFacturas.fr3 @@ -1,5 +1,5 @@ - + @@ -13,7 +13,7 @@ - + diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index 43e633a..1d29369 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -2659,162 +2659,23 @@ object RptAlbaranesCliente: TRptAlbaranesCliente PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 - ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 41807.752059861110000000 + ReportOptions.CreateDate = 37800.807714351900000000 + ReportOptions.LastChange = 42284.683293877320000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( - 'var' - ' Pagina: Variant;' - '' - '' - 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' ACadena : String;' + 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' 'begin' - ' ACadena := '#39#39';' - ' DireccionEnvio.Lines.Clear;' - '' - ' ACadena := '#39#39';' - '' - ' DireccionEnvio.Lines.Add();' - ' if ( <> '#39#39') then' - ' ACadena := + '#39' '#39';' - ' if ( <> '#39#39') then' - ' ACadena := ACadena + ;' - '' - ' if (ACadena <> '#39#39') then' - ' DireccionEnvio.Lines.Add(ACadena);' - '' - - ' ACadena := '#39#39'; ' + - ' ' - ' if ( <> '#39#39') then' - ' ACadena := ;' - '' - ' if ( <> '#39#39') then' - ' ACadena := ACadena + '#39' - '#39' + ;' - ' ' - ' DireccionEnvio.Lines.Add(ACadena); ' - 'end;' - '' - 'procedure Memo2OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' Memo2.Lines.Clear;' - ' if (StrToFloat() < 0) then' - ' Memo2.Lines.Add('#39'RETURN ORDER'#39')' - ' else' - ' Memo2.Lines.Add('#39'DELIVERY NOTE'#39')' - 'end;' - '' - 'procedure Memo5OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (StrToFloat() < 0) then' + ' if Engine.FinalPass then' ' begin' - ' Memo5.Lines.Clear;' - ' Memo5.Lines.Add('#39'Order number:'#39');' - ' end;' - 'end;' - '' - 'procedure Memo9OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (StrToFloat() < 0) then' - ' begin' - ' Memo9.Lines.Clear;' - ' Memo9.Lines.Add('#39'Date order:'#39');' - ' end;' - 'end;' - '' - 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if not Engine.FinalPass then' - ' Set('#39'TotalPaginas'#39', ( + 1));' - '' - ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1));' - 'end;' - '' - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' - 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0);' - 'end;' - '' - 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);' - 'begin' - - ' if and ( <> ' + - #39#39') then' - - ' Memo26.Visible := True ' + - ' ' - ' else' - ' Memo26.Visible := False ' - 'end;' - '' - 'procedure Memo27OnBeforePrint(Sender: TfrxComponent);' - 'begin' - - ' if and ( <> '#39#39') ' + - 'then' - - ' Memo27.Visible := True ' + - ' ' - ' else' - ' Memo27.Visible := False ' - 'end;' - '' - 'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if then' - ' begin ' - ' eImporteUnidad.Visible := True; ' - ' lImporteUnidad.Visible := True;' - ' eDescuento.Visible := True;' - - ' lDescuento.Visible := True; ' + - ' ' - ' eImporteTotal.Visible := True; ' - ' lImporteTotal.Visible := True; ' - ' ImporteUnidad.Visible := True;' - - ' Descuento.Visible := True; ' + - ' ' - ' ImporteTotal.Visible := True; ' - ' end' - ' else' - ' begin ' - ' eImporteUnidad.Visible := False; ' - ' lImporteUnidad.Visible := False; ' - ' eImporteTotal.Visible := False; ' - ' lImporteTotal.Visible := False;' - ' eDescuento.Visible := False;' - - ' lDescuento.Visible := False; ' + - ' ' - ' ImporteUnidad.Visible := False; ' - ' ImporteTotal.Visible := False;' - - ' Descuento.Visible := False; ' + - ' ' - - ' eConcepto.Width := eConcepto.Width + ImporteTotal.Width + e' + - 'Descuento.Width + ImporteUnidad.Width + 10;' - ' Concepto.Width := eConcepto.Width - 10; ' - ' end ' - 'end;' - '' - 'procedure Overlay1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if then' - ' begin' - - ' Overlay1.Visible := True; ' + - ' ' - ' end' - ' else' - ' begin ' - ' Overlay1.Visible := False; ' - ' end ' + ' if ( = ) then' + ' begin ' + ' mContinua.Visible := False;' + ' end ' + ' else' + ' begin ' + ' mContinua.Visible := True;' + ' end ' + ' end; ' 'end;' '' 'begin' diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index ece8968..507839b 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas @@ -102,6 +102,7 @@ type FListaIDAgentes: TIntegerArray; FListaNombresAgentes : TStringList; FTopN: Integer; + FUnAgentePorPagina: Integer; //Genera cada uno de los albaranes a imprimir procedure _GenerarAlbaran(const AID: Integer); @@ -121,7 +122,7 @@ type function GenerarInformeAlbaranesGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary; - function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; end; @@ -361,7 +362,7 @@ end; function TRptAlbaranesCliente.GenerarInformeObjetivosAgentesAlbaranes( const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; - const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; var AStream: TMemoryStream; AInforme: Variant; @@ -375,6 +376,7 @@ begin FIdEmpresa := IdEmpresa; FAno1 := Ano1; FIntervalo := Intervalo; + FUnAgentePorPagina := UnAgentePorPagina; if Assigned(FListaIDAgentes) then FListaIDClientes.Free; @@ -396,7 +398,7 @@ begin frxReport.LoadFromFile(AInforme, True); IniciarParametrosInforme; - + frxReport.Variables.Variables['UnAgentePorPagina'] := FUnAgentePorPagina; frxReport.PrepareReport(False); frxReport.PreviewPages.SaveToStream(Result); diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm index dc4e071..dd28bc1 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm @@ -8,6 +8,12 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente Kind = skSum Position = spFooter Column = cxGridViewPERSONA_CONTACTO + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = cxGridViewIMPORTE_TOTAL end> DataController.Summary.FooterSummaryItems = < item @@ -23,6 +29,11 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente Format = ',0.00 '#8364';-,0.00 '#8364 Kind = skSum Column = cxGridViewPERSONA_CONTACTO + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE_TOTAL end> inherited cxGridViewNUM_COPIAS: TcxGridDBColumn IsCaptionAssigned = True diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index 95d3b3e..d505d16 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -133,7 +133,8 @@ type FImporteMinimo: Currency; FDesglosado : Boolean; FShowLogotipo: Boolean; - FTopN: Integer; + FTopN: Integer; + FUnAgentePorPagina: Integer; //Genera cada una de las facturas a imprimir procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True; const VerCopia: Boolean = True); @@ -155,7 +156,7 @@ type function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; - function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; end; implementation @@ -539,7 +540,7 @@ end; function TRptFacturasCliente.GenerarInformeObjetivosAgentesFacturas( const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; - const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; var AStream: TMemoryStream; AInforme: Variant; @@ -556,6 +557,7 @@ begin FAgentesActivos := AgentesActivos; FFechaVenInicio := Null; FFechaVenFin := Null; + FUnAgentePorPagina := UnAgentePorPagina; if Assigned(FListaIDAgentes) then FListaIDClientes.Free; @@ -577,7 +579,7 @@ begin frxReport.LoadFromFile(AInforme, True); IniciarParametrosInforme; - + frxReport.Variables.Variables['UnAgentePorPagina'] := FUnAgentePorPagina; frxReport.PrepareReport(False); frxReport.PreviewPages.SaveToStream(Result); diff --git a/Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.dfm b/Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.dfm index 5d5d014..2dae5af 100644 --- a/Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.dfm +++ b/Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.dfm @@ -107,11 +107,34 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma ExplicitWidth = 842 ExplicitHeight = 417 inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewFacturasProforma1.cxGridViewBASE_IMPONIBLE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewFacturasProforma1.cxGridViewIMPORTE_TOTAL + end> DataController.Summary.FooterSummaryItems = < item Format = '0 facturas' Kind = skCount Column = frViewFacturasProforma1.cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewFacturasProforma1.cxGridViewBASE_IMPONIBLE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewFacturasProforma1.cxGridViewIMPORTE_TOTAL end> inherited cxGridViewNUM_COPIAS: TcxGridDBColumn IsCaptionAssigned = True diff --git a/Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.dfm b/Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.dfm index de59a50..e0ebd9c 100644 --- a/Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.dfm +++ b/Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.dfm @@ -13,11 +13,34 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma inherited cxGridView: TcxGridDBTableView DataController.KeyFieldNames = 'ID' DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = cxGridViewBASE_IMPONIBLE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = cxGridViewIMPORTE_TOTAL + end> DataController.Summary.FooterSummaryItems = < item Format = '0 facturas' Kind = skCount Column = cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewBASE_IMPONIBLE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE_TOTAL end> DataController.OnCompare = cxGridViewDataControllerCompare OptionsCustomize.ColumnHidingOnGrouping = False @@ -115,8 +138,10 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma Caption = 'Base Imponible' DataBinding.FieldName = 'BASE_IMPONIBLE' PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify Visible = False FooterAlignmentHorz = taRightJustify + GroupSummaryAlignment = taRightJustify HeaderAlignmentHorz = taRightJustify end object cxGridViewDESCUENTO: TcxGridDBColumn @@ -163,6 +188,7 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify FooterAlignmentHorz = taRightJustify + GroupSummaryAlignment = taRightJustify HeaderAlignmentHorz = taRightJustify Width = 128 end diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosAlbaranesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosAlbaranesReport.pas index 463fc72..aa6828f 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosAlbaranesReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosAlbaranesReport.pas @@ -13,6 +13,7 @@ type function GetAno1: Variant; function GetAno2: Variant; function GetNTop: Variant; + function GetUnAgentePorPagina: Boolean; function GetListaIDAgentes: TIntegerArray; @@ -20,6 +21,7 @@ type property Ano1: Variant read GetAno1; property Ano2: Variant read GetAno2; property NTop: Variant read GetNTop; + property UnAgentePorPagina: Boolean read GetUnAgentePorPagina; property ListaIDAgentes: TIntegerArray read GetListaIDAgentes; end; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas index 1b58b4e..d580399 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas @@ -13,6 +13,7 @@ type function GetAno1: Variant; function GetAno2: Variant; function GetNTop: Variant; + function GetUnAgentePorPagina: Boolean; function GetAgentesActivos: Boolean; function GetListaIDAgentes: TIntegerArray; @@ -21,6 +22,7 @@ type property Ano1: Variant read GetAno1; property Ano2: Variant read GetAno2; property NTop: Variant read GetNTop; + property UnAgentePorPagina: Boolean read GetUnAgentePorPagina; property AgentesActivos: Boolean read GetAgentesActivos; property ListaIDAgentes: TIntegerArray read GetListaIDAgentes; diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas index f9a5ac7..a0c3634 100644 --- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas +++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas @@ -713,6 +713,7 @@ procedure TGestorInformesController.VerInformeObjetivosAlbaranes; var AStream: Binary; AEditor : IEditorInformeObjetivosAlbaranesReport; + AUnAgentePorPagina: Integer; begin AEditor := NIL; ShowHourglassCursor; @@ -722,8 +723,13 @@ begin AEditor.Controller := Self; AEditor.Title := 'Informe comparativo de objetivos de agentes de albaranes'; + if (AEditor.UnAgentePorPagina) then + AUnAgentePorPagina:= 1 + else + AUnAgentePorPagina:= 0; + AStream := FDataModule.GenerarInformeObjetivosAgentesAlbaranes(AppFactuGES.EmpresaActiva.ID, - AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDAgentes, AEditor.NTop); + AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDAgentes, AEditor.NTop, AUnAgentePorPagina); AEditor.LoadFromStream(AStream); AEditor.Preview; @@ -739,6 +745,8 @@ procedure TGestorInformesController.VerInformeObjetivosFacturas; var AStream: Binary; AEditor : IEditorInformeObjetivosFacturasReport; + AUnAgentePorPagina: Integer; + begin AEditor := NIL; ShowHourglassCursor; @@ -748,8 +756,13 @@ begin AEditor.Controller := Self; AEditor.Title := 'Informe comparativo de objetivos de agentes de facturas'; + if (AEditor.UnAgentePorPagina) then + AUnAgentePorPagina:= 1 + else + AUnAgentePorPagina:= 0; + AStream := FDataModule.GenerarInformeObjetivosAgentesFacturas(AppFactuGES.EmpresaActiva.ID, - AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.AgentesActivos, AEditor.ListaIDAgentes, AEditor.NTop); + AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.AgentesActivos, AEditor.ListaIDAgentes, AEditor.NTop, AUnAgentePorPagina); AEditor.LoadFromStream(AStream); AEditor.Preview; diff --git a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas index 463aaa0..f7267a1 100644 --- a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas @@ -29,7 +29,7 @@ type //MODULO ALBARANES DE CLIENTE function DarListaAnosAlbaranesCli: TStringList; function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant; const Serie: Variant): Binary; - function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary; + function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant; const UnAgentePorPagina: Integer): Binary; //MODULO FACTURAS DE CLIENTE function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; @@ -38,7 +38,7 @@ type function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary; function DarListaAnosFacturasCli: TStringList; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; - function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary; + function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant; const UnAgentePorPagina: Integer): Binary; //MODULO RECIBOS DE CLIENTE function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; @@ -319,16 +319,16 @@ begin end; function TDataModuleGestorInformes.GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; - const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary; + const ListaIDAgentes: TIntegerArray; const NTop: Variant; const UnAgentePorPagina: Integer): Binary; begin - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop, UnAgentePorPagina); end; function TDataModuleGestorInformes.GenerarInformeObjetivosAgentesFacturas( const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; - const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary; + const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const NTop: Variant; const UnAgentePorPagina: Integer): Binary; begin - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIdAgentes, NTop); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIdAgentes, NTop, UnAgentePorPagina); end; procedure TDataModuleGestorInformes.getInforme; diff --git a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas index c03fe87..69fc556 100644 --- a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas @@ -18,7 +18,7 @@ type //MODULO ALBARANES DE CLIENTE function DarListaAnosAlbaranesCli: TStringList; function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant; const Serie: Variant): Binary; - function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary; + function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant; const UnAgentePorPagina: Integer): Binary; //MODULO FACTURAS DE CLIENTE function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; @@ -27,7 +27,7 @@ type function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary; function DarListaAnosFacturasCli: TStringList; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; - function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary; + function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant; const UnAgentePorPagina: Integer): Binary; //MODULO RECIBOS DE CLIENTE function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; diff --git a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas index 0af48bc..1cd69cc 100644 --- a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas +++ b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas @@ -45,7 +45,7 @@ type function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary; function DarListaAnosAlbaranesCli: StringArray; function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; - const TopN: Integer): Binary; + const TopN: Integer; const UnAgentePorPagina: Integer): Binary; //MODULO FACTURAS CLIENTE function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; @@ -56,7 +56,7 @@ type function DarListaAnosFacturasCli: StringArray; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; - const TopN: Integer): Binary; + const TopN: Integer; const UnAgentePorPagina: Integer): Binary; //MODULO RECIBOS CLIENTE function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; @@ -378,13 +378,13 @@ end; function TsrvGestorInformes.GenerarInformeObjetivosAgentesAlbaranes( const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; - const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; var AReportGenerator : TRptAlbaranesCliente; begin AReportGenerator := TRptAlbaranesCliente.Create(nil); try - Result := AReportGenerator.GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN); + Result := AReportGenerator.GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN, UnAgentePorPagina); finally FreeAndNIL(AReportGenerator); end; @@ -392,13 +392,13 @@ end; function TsrvGestorInformes.GenerarInformeObjetivosAgentesFacturas( const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; - const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; var AReportGenerator : TRptFacturasCliente; begin AReportGenerator := TRptFacturasCliente.Create(nil); try - Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN); + Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN, UnAgentePorPagina); finally FreeAndNIL(AReportGenerator); end; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.dfm index 7b5d057..7f48580 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.dfm @@ -1,24 +1,24 @@ inherited fEditorInformeObjetivosAlbaranesReport: TfEditorInformeObjetivosAlbaranesReport Caption = 'fEditorInformeObjetivosAlbaranesReport' ClientHeight = 655 - ClientWidth = 895 - ExplicitWidth = 903 + ClientWidth = 975 + ExplicitWidth = 983 ExplicitHeight = 689 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 895 - ExplicitWidth = 895 + Width = 975 + ExplicitWidth = 975 inherited Image1: TImage - Left = 868 + Left = 948 ExplicitLeft = 868 end end inherited TBXDock: TTBXDock - Width = 895 - ExplicitWidth = 895 + Width = 975 + ExplicitWidth = 975 inherited tbxMenu: TTBXToolbar - ExplicitWidth = 895 + ExplicitWidth = 975 end inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 591 @@ -31,19 +31,19 @@ inherited fEditorInformeObjetivosAlbaranesReport: TfEditorInformeObjetivosAlbara end inherited StatusBar: TJvStatusBar Top = 636 - Width = 895 + Width = 975 ExplicitTop = 636 - ExplicitWidth = 895 + ExplicitWidth = 975 end inherited TBXMultiDockIzquierdo: TTBXMultiDock Height = 534 ExplicitHeight = 534 end inherited TBXMultiDockDerecho: TTBXMultiDock - Left = 703 + Left = 783 Width = 192 Height = 534 - ExplicitLeft = 703 + ExplicitLeft = 783 ExplicitWidth = 192 ExplicitHeight = 534 inherited pnlParametros: TTBXDockablePanel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.pas index 6b79deb..a584879 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.pas @@ -33,6 +33,7 @@ type function GetSerie: variant; function GetListaIDAgentes: TIntegerArray; function GetNTop: Variant; + function GetUnAgentePorPagina: Boolean; procedure RefrescarInforme; @@ -46,6 +47,7 @@ type property ListaIDAgentes: TIntegerArray read GetListaIDAgentes; property NTop: Variant read GetNTop; property Serie: Variant read GetSerie; + property UnAgentePorPagina: Boolean read GetUnAgentePorPagina; constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -118,20 +120,32 @@ begin Result := frViewIntervaloComparativo1.Serie; end; +function TfEditorInformeObjetivosAlbaranesReport.GetUnAgentePorPagina: Boolean; +begin + Result := frViewFiltroAgentes1.cbxPaginado.Checked; +end; + procedure TfEditorInformeObjetivosAlbaranesReport.RefrescarInforme; var AStream: Binary; + AUnAgentePorPagina: Integer; begin ShowHourglassCursor; try + if UnAgentePorPagina then + AUnAgentePorPagina:= 1 + else + AUnAgentePorPagina:= 0; + AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeObjetivosAgentesAlbaranes( AppFactuGES.EmpresaActiva.ID, Intervalo, Ano1, Ano2, ListaIDAgentes, - NTop); + NTop, + AUnAgentePorPagina); LoadFromStream(AStream); Report.ShowPreparedReport; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.dfm index c80619e..972401b 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.dfm @@ -91,7 +91,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura Width = 182 ExplicitWidth = 182 inherited Label3: TLabel - Width = 172 + Width = 106 end inherited cbIntervalo: TcxComboBox Style.LookAndFeel.SkinName = '' @@ -110,7 +110,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura Width = 182 ExplicitWidth = 182 inherited lis: TLabel - Width = 172 + Width = 19 end inherited cbAno1: TcxComboBox Style.LookAndFeel.SkinName = '' @@ -126,7 +126,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura Visible = False ExplicitWidth = 182 inherited Label1: TLabel - Width = 172 + Width = 88 end inherited cbAno2: TcxComboBox Style.LookAndFeel.SkinName = '' @@ -143,9 +143,6 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura Visible = False ExplicitTop = 224 ExplicitWidth = 182 - inherited Label2: TLabel - Width = 172 - end end inherited TBXAlignmentPanel5: TTBXAlignmentPanel Top = 176 @@ -154,7 +151,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura ExplicitTop = 176 ExplicitWidth = 182 inherited Label4: TLabel - Width = 172 + Width = 92 end inherited cbSerie: TcxComboBox Properties.Items.Strings = ( diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas index 86ff6bc..96aee31 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas @@ -34,6 +34,7 @@ type function GetListaIDAgentes: TIntegerArray; function GetAgentesActivos: Boolean; function GetNTop: Variant; + function GetUnAgentePorPagina: Boolean; procedure RefrescarInforme; @@ -48,6 +49,7 @@ type property AgentesActivos: Boolean read GetAgentesActivos; property NTop: Variant read GetNTop; property Serie: Variant read GetSerie; + property UnAgentePorPagina: Boolean read GetUnAgentePorPagina; constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -125,13 +127,24 @@ begin Result := frViewIntervaloComparativo1.Serie; end; +function TfEditorInformeObjetivosFacturasReport.GetUnAgentePorPagina: Boolean; +begin + Result := frViewFiltroAgentes1.cbxPaginado.Checked; +end; + procedure TfEditorInformeObjetivosFacturasReport.RefrescarInforme; var AStream: Binary; + AUnAgentePorPagina: Integer; begin ShowHourglassCursor; try + if UnAgentePorPagina then + AUnAgentePorPagina:= 1 + else + AUnAgentePorPagina:= 0; + AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeObjetivosAgentesFacturas( AppFactuGES.EmpresaActiva.ID, Intervalo, @@ -139,7 +152,8 @@ begin Ano2, AgentesActivos, ListaIDAgentes, - NTop); + NTop, + AUnAgentePorPagina); LoadFromStream(AStream); Report.ShowPreparedReport; diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm b/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm index c35f098..ca57ffc 100644 --- a/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm +++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm @@ -138,4 +138,14 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes TabStop = True OnClick = rbTodosAgentesClick end + object cbxPaginado: TCheckBox + Left = 28 + Top = 50 + Width = 146 + Height = 17 + Caption = 'Un agente por hoja' + Checked = True + State = cbChecked + TabOrder = 7 + end end diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas b/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas index 4e8efa0..4080309 100644 --- a/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas +++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas @@ -21,6 +21,7 @@ type bElegirAgente: TBitBtn; edtAgente: TcxTextEdit; rbAgentesActivos: TRadioButton; + cbxPaginado: TCheckBox; procedure rbTodosAgentesClick(Sender: TObject); procedure rbUnAgenteClick(Sender: TObject); procedure CustomViewCreate(Sender: TObject); diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas index e93f2b2..9ea8b52 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas @@ -3,7 +3,7 @@ unit schPedidosClienteClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -239,7 +239,7 @@ type end; { TListaAnosPedidosDataTableRules } - TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos) + TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos) private protected { Property getters and setters } @@ -292,7 +292,7 @@ type end; { TPedidosProveedorDataTableRules } - TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor) + TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) private protected { Property getters and setters } @@ -571,7 +571,7 @@ type end; { TPedidosClienteDataTableRules } - TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente) + TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente) private f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; @@ -914,7 +914,7 @@ type end; { TPedidosCliente_DetallesDataTableRules } - TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles) + TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles) private protected { Property getters and setters } @@ -1045,7 +1045,7 @@ type end; { TPedidosCliente_Articulos_PendientesDataTableRules } - TPedidosCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosCliente_Articulos_Pendientes) + TPedidosCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Articulos_Pendientes) private protected { Property getters and setters } @@ -1158,7 +1158,7 @@ type end; { TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules } - TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv) + TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv) private protected { Property getters and setters } @@ -1313,7 +1313,7 @@ type end; { TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules } - TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) + TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) private protected { Property getters and setters } diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index addfcdf..b720516 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -3,7 +3,7 @@ unit schPresupuestosClienteClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -163,7 +163,7 @@ type end; { TListaAnosPresupuestosDataTableRules } - TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos) + TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos) private protected { Property getters and setters } @@ -440,7 +440,7 @@ type end; { TPresupuestosClienteDataTableRules } - TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente) + TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente) private f_PORTADA: IROStrings; f_MEMORIA: IROStrings; @@ -809,7 +809,7 @@ type end; { TPresupuestosCliente_DetallesDataTableRules } - TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles) + TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm index f9c19c5..dd97145 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm @@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente Caption = 'Lista de presupuestos de cliente' ClientWidth = 805 ExplicitWidth = 813 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -125,7 +124,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente Width = 805 ExplicitWidth = 805 inherited tbxMain: TTBXToolbar - ExplicitWidth = 740 + ExplicitWidth = 805 object TBXItem47: TTBXItem [13] Action = actEnviarEMail DisplayMode = nbdmImageAndText @@ -210,6 +209,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente inherited actImprimir: TAction Visible = True end + inherited actExportarExcel: TAction + Enabled = True + Visible = True + end object actGenerarAlbaranCli: TAction Category = 'Acciones' Caption = 'Generar albar'#225'n de cliente' diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm index f0bfcfc..6fdc0f7 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm @@ -21,6 +21,12 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente Kind = skSum Position = spFooter Column = cxGridViewIMPORTE_TOTAL + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = cxGridViewBASE_IMPONIBLE end> DataController.Summary.FooterSummaryItems = < item @@ -32,6 +38,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente Format = ',0.00 '#8364';-,0.00 '#8364 Kind = skSum Column = cxGridViewIMPORTE_TOTAL + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewBASE_IMPONIBLE end> DataController.OnCompare = cxGridViewDataControllerCompare OptionsCustomize.ColumnHidingOnGrouping = False @@ -133,6 +144,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn Caption = 'Base Imponible' DataBinding.FieldName = 'BASE_IMPONIBLE' + PropertiesClassName = 'TcxCurrencyEditProperties' + FooterAlignmentHorz = taRightJustify + GroupSummaryAlignment = taRightJustify + HeaderAlignmentHorz = taRightJustify end object cxGridViewIVA: TcxGridDBColumn DataBinding.FieldName = 'IVA' @@ -146,8 +161,9 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente DataBinding.FieldName = 'IMPORTE_TOTAL' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify - BestFitMaxWidth = 60 + BestFitMaxWidth = 90 FooterAlignmentHorz = taRightJustify + GroupSummaryAlignment = taRightJustify HeaderAlignmentHorz = taRightJustify Width = 63 end diff --git a/Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dcu b/Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dcu index fff64c939866db2290abe32d14d99548eee8f096..2982e0e816ce7ff09dd0081c280962b226e10ad8 100644 GIT binary patch delta 35 pcmZp#Z?ET3W?&F%w`XAZn(XdAk;jYL^^k;j + + @@ -1042,6 +1044,8 @@ + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index 2f7dd71..3826f54 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -835,9 +835,9 @@ type const TopN: Integer; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; - const TopN: Integer): Binary; + const TopN: Integer; const UnAgentePorPagina: Integer): Binary; function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; - const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; end; { CosrvGestorInformes } @@ -886,9 +886,9 @@ type const TopN: Integer; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; - const TopN: Integer): Binary; + const TopN: Integer; const UnAgentePorPagina: Integer): Binary; function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; - const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; end; { IsrvComisiones } @@ -3112,7 +3112,7 @@ begin end; function TsrvGestorInformes_Proxy.GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; - const TopN: Integer): Binary; + const TopN: Integer; const UnAgentePorPagina: Integer): Binary; begin try result := nil; @@ -3123,6 +3123,7 @@ begin __Message.Write('Ano2', TypeInfo(Variant), Ano2, []); __Message.Write('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []); __Message.Write('TopN', TypeInfo(Integer), TopN, []); + __Message.Write('UnAgentePorPagina', TypeInfo(Integer), UnAgentePorPagina, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); @@ -3135,7 +3136,7 @@ begin end; function TsrvGestorInformes_Proxy.GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; - const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; + const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; begin try result := nil; @@ -3147,6 +3148,7 @@ begin __Message.Write('AgentesActivos', TypeInfo(Boolean), AgentesActivos, []); __Message.Write('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []); __Message.Write('TopN', TypeInfo(Integer), TopN, []); + __Message.Write('UnAgentePorPagina', TypeInfo(Integer), UnAgentePorPagina, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 3879c24..7edc992 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -2708,7 +2708,7 @@ end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeObjetivosAgentesAlbaranes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); { function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; - const TopN: Integer): Binary; } + const TopN: Integer; const UnAgentePorPagina: Integer): Binary; } var IdEmpresa: Integer; Intervalo: Variant; @@ -2716,6 +2716,7 @@ var Ano2: Variant; ListaIDAgentes: FactuGES_Intf.TIntegerArray; TopN: Integer; + UnAgentePorPagina: Integer; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -2728,8 +2729,9 @@ begin __Message.Read('Ano2', TypeInfo(Variant), Ano2, []); __Message.Read('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []); __Message.Read('TopN', TypeInfo(Integer), TopN, []); + __Message.Read('UnAgentePorPagina', TypeInfo(Integer), UnAgentePorPagina, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN, UnAgentePorPagina); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeObjetivosAgentesAlbaranesResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -2749,7 +2751,7 @@ end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeObjetivosAgentesFacturas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); { function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; - const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; } + const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; } var IdEmpresa: Integer; Intervalo: Variant; @@ -2758,6 +2760,7 @@ var AgentesActivos: Boolean; ListaIDAgentes: FactuGES_Intf.TIntegerArray; TopN: Integer; + UnAgentePorPagina: Integer; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -2771,8 +2774,9 @@ begin __Message.Read('AgentesActivos', TypeInfo(Boolean), AgentesActivos, []); __Message.Read('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []); __Message.Read('TopN', TypeInfo(Integer), TopN, []); + __Message.Read('UnAgentePorPagina', TypeInfo(Integer), UnAgentePorPagina, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN, UnAgentePorPagina); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeObjetivosAgentesFacturasResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); diff --git a/Source/Servicios/RODLFile.res b/Source/Servicios/RODLFile.res index ba0a6187fe750c9cdbc759591859674f5883afec..0e101e3e0c09581bee7587c264c14df13fe3ea61 100644 GIT binary patch delta 84 zcmcbxi}}lL<_QXnOExOLUOQPpTtF~1&oMnUuOu}fzbGIvJu@$Ha$uR^h!9Q(t=*HjL0FCb<&;S4c delta 32 qcmV+*0N?-gy93a=1CSsA0I?zKt&?z0JF}Utr~;GFPiC|EvHL6gyAUP- diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index c425030769c2f6eaafa14fa03fb451c4f641f7f4..c2913de175d5d9f8d6d0f05370462e2c2e61b32e 100644 GIT binary patch delta 111 zcmZ3pm2u5h#tjjXjC_+LBb6CnO|FfsX3k?!pZq&g);E_Sli?*p5koRVK0^*eDnl`Y z4ub-N0fRY^Oaby0fa1vvB@CquNkCN~K19?AsK$`N6v#JZFk-M`Fb47&CZ|TZ0|26% B7}fv) delta 89 zcmZ3pm2u5h#tjjXi~^G*Bb6E7OsfT lp#nn+kgos~No6QtC;_X + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - True - True - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - -FalseTrueFalse/standaloneTrueFalse4440FalseFalseFalseFalseFalse308212524.4.4.04.4.4.0miércoles, 22 de abril de 2015 17:48 - - - - ExpressPrinting System by Developer Express Inc. - FactuGES_Server.dprFalse - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - - TDataModule -
RptWordAlbaranCliente
- - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
RptAlbaranesProveedor
- TDataModule - - - TDataModule -
RptWordAlbaranProveedor
- - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - - TDataModule -
RptWordFacturaCliente
- - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - -
RptFacturasProforma
- TDataModule - - -
srvFacturasProforma
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvImpresiones
- TDARemoteService - - -
srvInfMargenArticulo
- TDARemoteService - - - - -
srvInfVentasArticulo
- TDataAbstractService - - - - -
srvInformes
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - - TDataModule -
RptWordPedidoProveedor
- - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPedidosCliente
- TDataModule - - -
srvPedidosCliente
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - - TDataModule -
RptWordCertificadoTrabajo
- - - TDataModule -
RptWordPresupuestoCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - -
srvRegistroCorreos
- TDataAbstractService - - - - - -
RptRemesasCliente
- TDataModule - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
RptRemesasProveedor
- TDataModule - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - - - - -
srvTiendaWeb
- TDataAbstractService - - - - -
srvTiposIVA
- TDataAbstractService - - - - -
srvTiposDocumento
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConexionOSC
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + + FalseTrueFalse/standaloneTrueFalse4440FalseFalseFalseFalseFalse308212524.4.4.04.4.4.0miércoles, 22 de abril de 2015 17:48 + ExpressPrinting System by Developer Express Inc. + FactuGES_Server.dprFalse + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + + TDataModule +
RptWordAlbaranCliente
+ + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
RptAlbaranesProveedor
+ TDataModule + + + TDataModule +
RptWordAlbaranProveedor
+ + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + + TDataModule +
RptWordFacturaCliente
+ + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + +
RptFacturasProforma
+ TDataModule + + +
srvFacturasProforma
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvImpresiones
+ TDARemoteService + + +
srvInfMargenArticulo
+ TDARemoteService + + + + +
srvInfVentasArticulo
+ TDataAbstractService + + + + +
srvInformes
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + + TDataModule +
RptWordPedidoProveedor
+ + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPedidosCliente
+ TDataModule + + +
srvPedidosCliente
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + + TDataModule +
RptWordCertificadoTrabajo
+ + + TDataModule +
RptWordPresupuestoCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + +
srvRegistroCorreos
+ TDataAbstractService + + + + + +
RptRemesasCliente
+ TDataModule + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
RptRemesasProveedor
+ TDataModule + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + + + + +
srvTiendaWeb
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvTiposDocumento
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConexionOSC
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + + +