From 18d8988644d3cf3c1f2f97bfdbdb687233a2337b Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 28 Sep 2023 13:54:25 +0000
Subject: [PATCH] .

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@34 40301925-124e-1c4e-b97d-170ad7a8785b
---
 .../Data/uDataModuleFacturasCliente.pas              | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
index d4b5510..becfebb 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas	
@@ -33,8 +33,8 @@ type
     function NewItem : IBizFacturaCliente;
 
     // Report
-    function GetReport(const AListaID: TIntegerList; AVerDatosCliente: Boolean = true): Binary;
-    function GetRptPDFFactura(const AID: Integer; AVerDatosCliente: Boolean = true): Binary;
+    function GetReport(const AListaID: TIntegerList; AVerDatosCliente: Boolean = true; AEmpresaAcota: Boolean = true): Binary;
+    function GetRptPDFFactura(const AID: Integer; AVerDatosCliente: Boolean = true; AEmpresaAcota: Boolean = true): Binary;
   end;
 
 implementation
@@ -53,26 +53,26 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleFacturasCliente.GetReport(const AListaID: TIntegerList; AVerDatosCliente: Boolean = true): Binary;
+function TDataModuleFacturasCliente.GetReport(const AListaID: TIntegerList; AVerDatosCliente: Boolean = true; AEmpresaAcota: Boolean = true): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := AListaID.ToIntegerArray;
   try
-    Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AParam, AVerDAtosCliente);
+    Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AParam, AVerDAtosCliente, AEmpresaAcota);
   finally
     FreeANDNIL(AParam);
   end;
 end;
 
-function TDataModuleFacturasCliente.GetRptPDFFactura(const AID: Integer; AVerDatosCliente: Boolean = true): Binary;
+function TDataModuleFacturasCliente.GetRptPDFFactura(const AID: Integer; AVerDatosCliente: Boolean = true; AEmpresaAcota: Boolean = true): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := TIntegerArray.Create;
   try
     AParam.Add(AID);
-    Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, AVerDatosCliente)
+    Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, AVerDatosCliente, AEmpresaAcota)
   finally
     FreeANDNIL(AParam)
   end;