Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Modulo nuevo para los informes estadisticos e informes que ya tenian anteriormente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@681 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-10-15 18:44:22 +00:00
parent 632f707873
commit 752998ca90
4 changed files with 138 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Source/Servicios/FactuGES.RODL
View File

@ -537,6 +537,32 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvGestorInformes" UID="{8E3F6F37-4535-442B-BA30-8A811C80D3C6}" Ancestor="DataAbstractService">
<Interfaces>
<Interface Name="Default" UID="{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}">
<Operations>
<Operation Name="GetInformeIVAClientes" UID="{C0FE751C-5EA0-4C2A-96B8-1EF9F71DF61C}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
</Parameter>
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
</Parameter>
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter>
<Parameter Name="Desglosado" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="ImporteMinimo" DataType="Currency" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>
</Service>
</Services>
<EventSinks>
</EventSinks>

62
Source/Servicios/FactuGES_Intf.pas
View File

@ -51,6 +51,7 @@ const
IsrvObras_IID : TGUID = '{39277224-A0BD-4249-9ACA-39D238798B25}';
IsrvProvinciasPoblaciones_IID : TGUID = '{551D8756-51AE-4929-B235-107CD7B05C38}';
IsrvGestorDocumentos_IID : TGUID = '{2FFB4EEA-F314-442C-920A-E1D37F378929}';
IsrvGestorInformes_IID : TGUID = '{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}';
{ Event ID's }
@ -84,6 +85,7 @@ type
IsrvObras = interface;
IsrvProvinciasPoblaciones = interface;
IsrvGestorDocumentos = interface;
IsrvGestorInformes = interface;
TRdxEmpresasArray = class;
TIntegerArray = class;
@ -742,6 +744,27 @@ type
function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
end;
{ IsrvGestorInformes }
IsrvGestorInformes = interface(IDataAbstractService)
['{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;
end;
{ CosrvGestorInformes }
CosrvGestorInformes = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvGestorInformes;
end;
{ TsrvGestorInformes_Proxy }
TsrvGestorInformes_Proxy = class(TDataAbstractService_Proxy, IsrvGestorInformes)
protected
function __GetInterfaceName:string; override;
function GetInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end;
implementation
uses
@ -2075,6 +2098,43 @@ begin
end
end;
{ CosrvGestorInformes }
class function CosrvGestorInformes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvGestorInformes;
begin
result := TsrvGestorInformes_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvGestorInformes_Proxy }
function TsrvGestorInformes_Proxy.__GetInterfaceName:string;
begin
result := 'srvGestorInformes';
end;
function TsrvGestorInformes_Proxy.GetInformeIVAClientes(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, 'GetInformeIVAClientes');
__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);
@ -2107,6 +2167,7 @@ initialization
RegisterProxyClass(IsrvObras_IID, TsrvObras_Proxy);
RegisterProxyClass(IsrvProvinciasPoblaciones_IID, TsrvProvinciasPoblaciones_Proxy);
RegisterProxyClass(IsrvGestorDocumentos_IID, TsrvGestorDocumentos_Proxy);
RegisterProxyClass(IsrvGestorInformes_IID, TsrvGestorInformes_Proxy);
finalization
@ -2141,5 +2202,6 @@ finalization
UnregisterProxyClass(IsrvObras_IID);
UnregisterProxyClass(IsrvProvinciasPoblaciones_IID);
UnregisterProxyClass(IsrvGestorDocumentos_IID);
UnregisterProxyClass(IsrvGestorInformes_IID);
end.

50
Source/Servicios/FactuGES_Invk.pas
View File

@ -221,6 +221,13 @@ type
procedure Invoke_EliminarID(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvGestorInformes_Invoker = class(TDataAbstractService_Invoker)
private
protected
published
procedure Invoke_GetInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation
uses
@ -1151,5 +1158,48 @@ begin
end;
end;
{ TsrvGestorInformes_Invoker }
procedure TsrvGestorInformes_Invoker.Invoke_GetInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetInformeIVAClientes(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).GetInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GetInformeIVAClientesResponse');
__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.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.