From fde328f775d8e77d1cd6fcf46b978feb2d3e7455 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 22 Mar 2010 12:14:47 +0000 Subject: [PATCH] Se adapta para que se puedan imprimir facturas con formato bcoaching git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@327 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- Source/Base/GUIBase/uViewGrid.dfm | 10 +- Source/Base/GUIBase/uViewGrid.pas | 2 +- ...Cliente.fr3 => InfFacturaClienteTipo1.fr3} | 0 Source/Informes/InfFacturaClienteTipo2.fr3 | 71 ++++++ .../Controller/uFacturasClienteController.pas | 3 +- .../uFacturasClienteReportController.pas | 1 + .../Data/uDataModuleFacturasCliente.pas | 20 +- .../Reports/uRptFacturasCliente_Server.dfm | 24 ++- .../Reports/uRptFacturasCliente_Server.pas | 30 +-- .../Servidor/srvFacturasCliente_Impl.pas | 14 +- .../Views/uEditorFacturasCliente.pas | 5 +- .../Views/uViewFacturasCliente.pas | 2 +- Source/Servicios/FactuGES.RODL | 4 + Source/Servicios/FactuGES_Intf.pas | 14 +- Source/Servicios/FactuGES_Invk.pas | 12 +- Source/Servicios/RODLFILE.res | Bin 32031 -> 32169 bytes Source/Servidor/FactuGES_Server.drc | 202 +++++++++--------- 17 files changed, 260 insertions(+), 154 deletions(-) rename Source/Informes/{InfFacturaCliente.fr3 => InfFacturaClienteTipo1.fr3} (100%) create mode 100644 Source/Informes/InfFacturaClienteTipo2.fr3 diff --git a/Source/Base/GUIBase/uViewGrid.dfm b/Source/Base/GUIBase/uViewGrid.dfm index 3ef2bb22..e28d8a87 100644 --- a/Source/Base/GUIBase/uViewGrid.dfm +++ b/Source/Base/GUIBase/uViewGrid.dfm @@ -61,8 +61,15 @@ inherited frViewGrid: TfrViewGrid Width = 554 Height = 102 Align = alTop + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False TabOrder = 1 Visible = False + ReadOnly = False ExplicitWidth = 554 inherited TBXDockablePanel1: TTBXDockablePanel ExplicitWidth = 554 @@ -107,6 +114,7 @@ inherited frViewGrid: TfrViewGrid SupportedDocks = [dkStandardDock, dkMultiDock] TabOrder = 2 Visible = False + ExplicitWidth = 128 object TBXAlignmentPanel1: TTBXAlignmentPanel Left = 0 Top = 0 @@ -154,7 +162,7 @@ inherited frViewGrid: TfrViewGrid PrinterPage.ScaleMode = smFit PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 39738.576001226850000000 + ReportDocument.CreationDate = 40259.515870208340000000 StyleManager = dxPrintStyleManager1 OptionsCards.Shadow.Depth = 0 OptionsExpanding.ExpandGroupRows = True diff --git a/Source/Base/GUIBase/uViewGrid.pas b/Source/Base/GUIBase/uViewGrid.pas index 5cb7460b..29295a84 100644 --- a/Source/Base/GUIBase/uViewGrid.pas +++ b/Source/Base/GUIBase/uViewGrid.pas @@ -21,7 +21,7 @@ uses dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPrnDlg, cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList, - TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg; + TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uCustomView; type IViewGrid = interface(IViewGridBase) diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaClienteTipo1.fr3 similarity index 100% rename from Source/Informes/InfFacturaCliente.fr3 rename to Source/Informes/InfFacturaClienteTipo1.fr3 diff --git a/Source/Informes/InfFacturaClienteTipo2.fr3 b/Source/Informes/InfFacturaClienteTipo2.fr3 new file mode 100644 index 00000000..b39bb7e5 --- /dev/null +++ b/Source/Informes/InfFacturaClienteTipo2.fr3 @@ -0,0 +1,71 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 99f5fa49..bb01e8c6 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1141,7 +1141,6 @@ procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllIt var AReportController : IFacturasClienteReportController; ID_Facturas: TIntegerList; - begin AReportController := TFacturasClienteReportController.Create; try @@ -1164,7 +1163,7 @@ begin else ID_Facturas.Add(AFactura.ID); - AReportController.Preview(ID_Facturas); + AReportController.Preview(ID_Facturas); finally AReportController := NIL; FreeANDNIL(ID_Facturas) diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas index 5ac23fd7..8af7b7e3 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas @@ -88,6 +88,7 @@ procedure TFacturasClienteReportController.Preview( var AStream: Binary; AEditor : IEditorFacturasClientePreview; + begin AEditor := NIL; ShowHourglassCursor; diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas index f51d625c..f8316553 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas @@ -47,8 +47,8 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, - schFacturasClienteClient_Intf, uBizContactos; + Forms, Windows, FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, + uDAInterfaces, schFacturasClienteClient_Intf, uBizContactos; { TdmPresupuestos } @@ -75,11 +75,17 @@ function TDataModuleFacturasCliente.GetRptPDFFacturas( const AID: Integer; const ShowLogotipo: Boolean = False): Binary; var AParam : TIntegerArray; + Tipo: Integer; begin + //Si dice que no se imprimirá la factura como becoaching + Tipo := 1; + if (Application.MessageBox('¿Desea imprimir las facturas/abonos de cliente seleccionados, con el modelo por defecto?', 'Atención', MB_YESNO) = IDNO) then + Tipo := 2; + AParam := TIntegerArray.Create; try AParam.Add(AID); - Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, ShowLogotipo) + Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, ShowLogotipo, Tipo) finally FreeANDNIL(AParam) end; @@ -89,10 +95,16 @@ function TDataModuleFacturasCliente.GetRptFacturas( const AListaID: TIntegerList; const ShowLogotipo: Boolean = False): Binary; var AParam : TIntegerArray; + Tipo: Integer; begin + //Si dice que no se imprimirá la factura como becoaching + Tipo := 1; + if (Application.MessageBox('¿Desea imprimir las facturas/abonos de cliente seleccionados, con el modelo por defecto?', 'Atención', MB_YESNO) = IDNO) then + Tipo := 2; + AParam := AListaID.ToIntegerArray; try - Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, ShowLogotipo) + Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, ShowLogotipo, Tipo) finally FreeANDNIL(AParam) end; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 60ccea9e..5ab9d63a 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -1270,7 +1270,7 @@ object RptFacturasCliente: TRptFacturasCliente PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 40092.714477893520000000 + ReportOptions.LastChange = 40259.487696377310000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' @@ -1378,6 +1378,16 @@ object RptFacturasCliente: TRptFacturasCliente ' Memo15.Lines.Add('#39'FACTURA'#39')' 'end;' '' + 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if (StrToFloat() = 0) then' + ' begin' + ' Memo21.Lines.Clear;' + ' Memo29.Lines.Clear;' + ' end;' + '' + 'end;' + '' 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena : String;' @@ -1408,7 +1418,7 @@ object RptFacturasCliente: TRptFacturasCliente '' 'procedure Picture1OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' if then' + '{ if then' ' begin ' ' Picture1.Visible := True; ' ' Picture2.Visible := True; ' @@ -1434,15 +1444,7 @@ object RptFacturasCliente: TRptFacturasCliente ' Memo14.Visible := False; ' + ' ' ' end' - 'end;' - '' - 'procedure Memo21OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (StrToFloat() = 0) then' - ' begin' - ' Memo21.Lines.Clear;' - ' Memo29.Lines.Clear;' - ' end;' + '} ' 'end;' '' 'begin' diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index 30963eda..54c0d011 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -38,12 +38,12 @@ type FConnection: IDAConnection; FShowLogotipo: Boolean; //Genera cada uno de los albaranes a imprimir - procedure _GenerarFactura(const ID: Integer); + procedure _GenerarFactura(const ID: Integer; const Tipo: Integer); public function GenerarFactura(const ListaID : TIntegerArray; - const AConLogotipo: Boolean = False): Binary; + const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary; function GenerarFacturaEnPDF(const ListaID : TIntegerArray; - const AConLogotipo: Boolean = False): Binary; + const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary; end; implementation @@ -54,7 +54,8 @@ uses uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl; const - rptFacturaCliente = 'InfFacturaCliente.fr3'; + rptFacturaClienteTipo1 = 'InfFacturaClienteTipo1.fr3'; + rptFacturaClienteTipo2 = 'InfFacturaClienteTipo2.fr3'; { Dataset names for schReport } ds_InformeFacturasCliente = 'InformeFacturasCliente'; @@ -70,7 +71,7 @@ begin schReport.ConnectionManager := dmServer.ConnectionManager; FConnection := dmServer.DarNuevaConexion; FShowLogotipo := False; - frxReport.EngineOptions.NewSilentMode := simReThrow; + frxReport.EngineOptions.NewSilentMode := simReThrow; end; {function TRptFacturasCliente.GenerarFactura(const AFacturaID: String): Binary; @@ -97,7 +98,7 @@ begin end; end;} -procedure TRptFacturasCliente._GenerarFactura(const ID: Integer); +procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const Tipo: Integer); var AStream: TMemoryStream; dsMaster: IDADataset; @@ -124,8 +125,11 @@ begin DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1); DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE); + if (Tipo = 1) then + frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteTipo1, True) + else + frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteTipo2, True); - frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); frxReport.PrepareReport(False); finally @@ -143,8 +147,8 @@ begin Value := FShowLogotipo; end; -function TRptFacturasCliente.GenerarFactura( - const ListaID: TIntegerArray; const AConLogotipo: Boolean = False): Binary; +function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray; +const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary; var i: Integer; begin @@ -153,15 +157,15 @@ begin try //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do - _GenerarFactura(ListaID.Items[i]); + _GenerarFactura(ListaID.Items[i], Tipo); frxReport.PreviewPages.SaveToStream(Result); finally end; end; -function TRptFacturasCliente.GenerarFacturaEnPDF( - const ListaID: TIntegerArray; const AConLogotipo: Boolean = False): Binary; +function TRptFacturasCliente.GenerarFacturaEnPDF(const ListaID: TIntegerArray; +const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary; var i: Integer; begin @@ -170,7 +174,7 @@ begin try //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do - _GenerarFactura(ListaID.Items[i]); + _GenerarFactura(ListaID.Items[i], Tipo); frxPDFExport1.Stream := Result; frxReport.Export(frxPDFExport1) diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas index ff3e571d..78d87795 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas @@ -36,8 +36,8 @@ type protected { IsrvFacturasCliente methods } function GetNextAutoInc(const GeneratorName: String): Integer; - function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; end; implementation @@ -79,27 +79,25 @@ begin bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE; end; -function TsrvFacturasCliente.GenerarInforme( - const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; +function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; var AReportGenerator : TRptFacturasCliente; begin AReportGenerator := TRptFacturasCliente.Create(nil); try - Result := AReportGenerator.GenerarFactura(ListaID, ShowLogotipo); + Result := AReportGenerator.GenerarFactura(ListaID, ShowLogotipo, Tipo); finally FreeAndNIL(AReportGenerator); end; end; -function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; - const ShowLogotipo: Boolean): Binary; +function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; var AReportGenerator : TRptFacturasCliente; begin AReportGenerator := TRptFacturasCliente.Create(nil); try - Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, ShowLogotipo); + Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, ShowLogotipo, Tipo); finally FreeAndNIL(AReportGenerator); end; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas index 7ed9dbe6..8fe5e69f 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas @@ -276,6 +276,7 @@ var Respuesta : Integer; AFacturas: IBizFacturaCliente; AllItems: Boolean; + begin AFacturas := Nil; AllItems := False; @@ -293,7 +294,7 @@ begin begin case JsImprimirDialog.CustomButtonResult of 200 : begin // Lista de elementos visibles - inherited; + inherited end; 100 : begin // Elemento Seleccionado if AllItems then @@ -394,7 +395,7 @@ begin begin case JsPrevisualizarDialog.CustomButtonResult of 200 : begin // Lista de elementos visibles - inherited; + inherited end; 100 : begin // Elemento Seleccionado if AllItems then diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas index d930ac34..b2ab74c1 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas @@ -13,7 +13,7 @@ uses cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, cxImage, Grids, DBGrids, uBizFacturasCliente, cxGridCustomPopupMenu, cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX, - TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg; + TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uCustomView, uViewBase; type IViewFacturasCliente = interface(IViewGrid) diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index d4fc075f..42a23ef0 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -134,6 +134,8 @@ + + @@ -144,6 +146,8 @@ + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index dbcf3ccc..84539294 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -264,8 +264,8 @@ type IsrvFacturasCliente = interface(IDARemoteService) ['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}'] function GetNextAutoInc(const GeneratorName: String): Integer; - function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; end; { CosrvFacturasCliente } @@ -279,8 +279,8 @@ type function __GetInterfaceName:string; override; function GetNextAutoInc(const GeneratorName: String): Integer; - function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; end; { IsrvPedidosProveedor } @@ -1350,7 +1350,7 @@ begin end end; -function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; +function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; var __request, __response : TMemoryStream; begin @@ -1362,6 +1362,7 @@ begin __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []); + __Message.Write('Tipo', TypeInfo(Integer), Tipo, []); __Message.Finalize; __Message.WriteToStream(__request); @@ -1375,7 +1376,7 @@ begin end end; -function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; +function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; var __request, __response : TMemoryStream; begin @@ -1387,6 +1388,7 @@ begin __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF'); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []); + __Message.Write('Tipo', TypeInfo(Integer), Tipo, []); __Message.Finalize; __Message.WriteToStream(__request); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 538b5bef..50ac962a 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -485,10 +485,11 @@ begin end; procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; } +{ function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; } var ListaID: FactuGES_Intf.TIntegerArray; ShowLogotipo: Boolean; + Tipo: Integer; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -497,8 +498,9 @@ begin try __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []); + __Message.Read('Tipo', TypeInfo(Integer), Tipo, []); - lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, ShowLogotipo); + lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, ShowLogotipo, Tipo); __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -516,10 +518,11 @@ begin end; procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; } +{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; } var ListaID: FactuGES_Intf.TIntegerArray; ShowLogotipo: Boolean; + Tipo: Integer; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -528,8 +531,9 @@ begin try __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []); + __Message.Read('Tipo', TypeInfo(Integer), Tipo, []); - lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, ShowLogotipo); + lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, ShowLogotipo, Tipo); __Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 717c4394af45e7ed96c9093fcc572f78f2eb9fe3..2d66cdf5c7d21494696008a7bc148f690d0cab9d 100644 GIT binary patch delta 69 zcmbRLi*e;|#t8~ck+mC@5|kzv2nn!+WESL4E)