diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index 409a1036..e52e4902 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -559,6 +559,42 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 4e94163c..6cdb7753 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -749,6 +749,10 @@ type
['{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}']
function GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ function GetInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray;
+ const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ function GetInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
+ const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end;
{ CosrvGestorInformes }
@@ -763,6 +767,10 @@ type
function GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ function GetInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray;
+ const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+ function GetInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
+ const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end;
implementation
@@ -2135,6 +2143,52 @@ begin
end
end;
+function TsrvGestorInformes_Proxy.GetInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray;
+ const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+begin
+ try
+ result := nil;
+ __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetInformeListadoFacturas');
+ __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
+ __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
+ __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
+ __Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
+ __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
+ __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
+ __Message.Finalize;
+
+ __TransportChannel.Dispatch(__Message);
+
+ __Message.Read('Result', TypeInfo(Binary), result, []);
+ finally
+ __Message.UnsetAttributes(__TransportChannel);
+ __Message.FreeStream;
+ end
+end;
+
+function TsrvGestorInformes_Proxy.GetInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
+ const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+begin
+ try
+ result := nil;
+ __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetInformeListadoFacturasPendientes');
+ __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
+ __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
+ __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
+ __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
+ __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
+ __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
+ __Message.Finalize;
+
+ __TransportChannel.Dispatch(__Message);
+
+ __Message.Read('Result', TypeInfo(Binary), result, []);
+ finally
+ __Message.UnsetAttributes(__TransportChannel);
+ __Message.FreeStream;
+ end
+end;
+
initialization
RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray);
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index ae6760dc..05105728 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -226,6 +226,8 @@ type
protected
published
procedure Invoke_GetInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+ procedure Invoke_GetInformeListadoFacturas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+ procedure Invoke_GetInformeListadoFacturasPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation
@@ -1201,5 +1203,87 @@ begin
end;
end;
+procedure TsrvGestorInformes_Invoker.Invoke_GetInformeListadoFacturas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray;
+ const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
+var
+ IdEmpresa: Integer;
+ FechaInicio: DateTime;
+ FechaFin: DateTime;
+ ListadoIDClientes: FactuGES_Intf.TIntegerArray;
+ Desglosado: Boolean;
+ ImporteMinimo: Currency;
+ lResult: Binary;
+ __lObjectDisposer: TROObjectDisposer;
+begin
+ ListadoIDClientes := nil;
+ lResult := nil;
+ try
+ __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
+ __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
+ __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
+ __Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
+ __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
+ __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
+
+ lResult := (__Instance as IsrvGestorInformes).GetInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListadoIDClientes, Desglosado, ImporteMinimo);
+
+ __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GetInformeListadoFacturasResponse');
+ __Message.Write('Result', TypeInfo(Binary), lResult, []);
+ __Message.Finalize;
+ __Message.UnsetAttributes(__Transport);
+
+ finally
+ __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+ try
+ __lObjectDisposer.Add(ListadoIDClientes);
+ __lObjectDisposer.Add(lResult);
+ finally
+ __lObjectDisposer.Free();
+ end;
+ end;
+end;
+
+procedure TsrvGestorInformes_Invoker.Invoke_GetInformeListadoFacturasPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
+ const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
+var
+ IdEmpresa: Integer;
+ FechaInicio: DateTime;
+ FechaFin: DateTime;
+ ListaIDClientes: FactuGES_Intf.TIntegerArray;
+ Desglosado: Boolean;
+ ImporteMinimo: Currency;
+ lResult: Binary;
+ __lObjectDisposer: TROObjectDisposer;
+begin
+ ListaIDClientes := nil;
+ lResult := nil;
+ try
+ __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
+ __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
+ __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
+ __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
+ __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
+ __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
+
+ lResult := (__Instance as IsrvGestorInformes).GetInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
+
+ __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GetInformeListadoFacturasPendientesResponse');
+ __Message.Write('Result', TypeInfo(Binary), lResult, []);
+ __Message.Finalize;
+ __Message.UnsetAttributes(__Transport);
+
+ finally
+ __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+ try
+ __lObjectDisposer.Add(ListaIDClientes);
+ __lObjectDisposer.Add(lResult);
+ finally
+ __lObjectDisposer.Free();
+ end;
+ end;
+end;
+
initialization
end.
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 887aef76..9d68e96c 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ