Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se añade el módulo de comisiones

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@225 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-05-23 14:47:10 +00:00
parent 8e7f7b5760
commit 2c0e915fea
4 changed files with 167 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Source/Servicios/FactuGES.RODL
View File

@ -9,14 +9,6 @@
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{28CCDC07-A3A4-4917-89B4-64423DC70C9D}"> <Interface Name="Default" UID="{28CCDC07-A3A4-4917-89B4-64423DC70C9D}">
<Operations> <Operations>
<Operation Name="GenerateFichaEmpleadoReport" UID="{CCD0007A-F1FF-46C2-8BB8-09981EAE4FB7}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="EmpleadoID" DataType="String" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerateEtiquetasReport" UID="{910E5F58-7F8E-4D4C-A6A8-2FAD54689219}"> <Operation Name="GenerateEtiquetasReport" UID="{910E5F58-7F8E-4D4C-A6A8-2FAD54689219}">
<Parameters> <Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result"> <Parameter Name="Result" DataType="Binary" Flag="Result">
@ -134,6 +126,16 @@
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{29388459-1A0B-46BE-AF9E-66A9E7AABB0B}"> <Interface Name="Default" UID="{29388459-1A0B-46BE-AF9E-66A9E7AABB0B}">
<Operations> <Operations>
<Operation Name="darIDTiendaVendedorUsuario" UID="{7B485EF3-28A4-46EB-8BA5-CCA2C5F33CAF}">
<Parameters>
<Parameter Name="ID_USUARIO" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="AIdTienda" DataType="Integer" Flag="InOut" >
</Parameter>
<Parameter Name="ATienda" DataType="String" Flag="InOut" >
</Parameter>
</Parameters>
</Operation>
</Operations> </Operations>
</Interface> </Interface>
</Interfaces> </Interfaces>
@ -440,6 +442,22 @@
</Interface> </Interface>
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvComisiones" UID="{F84C84A1-B7C6-4690-BEA0-B5C4B744A064}" Ancestor="DataAbstractService">
<Interfaces>
<Interface Name="Default" UID="{B600E9A1-28EC-484E-A74D-B5BB96FDF20A}">
<Operations>
<Operation Name="GenerateReport" UID="{A8F1DE0E-6FC5-4D62-B6D7-E6A6B9968C8C}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="ComisionID" DataType="String" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>
</Service>
</Services> </Services>
<EventSinks> <EventSinks>
</EventSinks> </EventSinks>

96
Source/Servicios/FactuGES_Intf.pas
View File

@ -49,6 +49,7 @@ const
IsrvReferencias_IID : TGUID = '{B957528D-3BE1-412D-A35E-801C97CCD252}'; IsrvReferencias_IID : TGUID = '{B957528D-3BE1-412D-A35E-801C97CCD252}';
IsrvContabilidad_IID : TGUID = '{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}'; IsrvContabilidad_IID : TGUID = '{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}';
IsrvUnidadesMedida_IID : TGUID = '{C1B36FAB-7514-40D2-A20C-04A86C9E71AB}'; IsrvUnidadesMedida_IID : TGUID = '{C1B36FAB-7514-40D2-A20C-04A86C9E71AB}';
IsrvComisiones_IID : TGUID = '{B600E9A1-28EC-484E-A74D-B5BB96FDF20A}';
{ Event ID's } { Event ID's }
@ -80,6 +81,7 @@ type
IsrvReferencias = interface; IsrvReferencias = interface;
IsrvContabilidad = interface; IsrvContabilidad = interface;
IsrvUnidadesMedida = interface; IsrvUnidadesMedida = interface;
IsrvComisiones = interface;
TRdxEmpresasArray = class; TRdxEmpresasArray = class;
@ -160,7 +162,6 @@ type
{ IsrvContactos } { IsrvContactos }
IsrvContactos = interface(IDataAbstractService) IsrvContactos = interface(IDataAbstractService)
['{28CCDC07-A3A4-4917-89B4-64423DC70C9D}'] ['{28CCDC07-A3A4-4917-89B4-64423DC70C9D}']
function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
function GenerateEtiquetasReport(const ContactosID: String): Binary; function GenerateEtiquetasReport(const ContactosID: String): Binary;
end; end;
@ -174,7 +175,6 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
function GenerateEtiquetasReport(const ContactosID: String): Binary; function GenerateEtiquetasReport(const ContactosID: String): Binary;
end; end;
@ -325,6 +325,7 @@ type
{ IsrvUsuarios } { IsrvUsuarios }
IsrvUsuarios = interface(IDataAbstractService) IsrvUsuarios = interface(IDataAbstractService)
['{29388459-1A0B-46BE-AF9E-66A9E7AABB0B}'] ['{29388459-1A0B-46BE-AF9E-66A9E7AABB0B}']
procedure darIDTiendaVendedorUsuario(const ID_USUARIO: Integer; var AIdTienda: Integer; var ATienda: String);
end; end;
{ CosrvUsuarios } { CosrvUsuarios }
@ -337,6 +338,7 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
procedure darIDTiendaVendedorUsuario(const ID_USUARIO: Integer; var AIdTienda: Integer; var ATienda: String);
end; end;
{ IsrvAlmacenes } { IsrvAlmacenes }
@ -650,6 +652,25 @@ type
end; end;
{ IsrvComisiones }
IsrvComisiones = interface(IDataAbstractService)
['{B600E9A1-28EC-484E-A74D-B5BB96FDF20A}']
function GenerateReport(const ComisionID: String): Binary;
end;
{ CosrvComisiones }
CosrvComisiones = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones;
end;
{ TsrvComisiones_Proxy }
TsrvComisiones_Proxy = class(TDataAbstractService_Proxy, IsrvComisiones)
protected
function __GetInterfaceName:string; override;
function GenerateReport(const ComisionID: String): Binary;
end;
implementation implementation
uses uses
@ -939,23 +960,6 @@ begin
result := 'srvContactos'; result := 'srvContactos';
end; end;
function TsrvContactos_Proxy.GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateFichaEmpleadoReport');
__Message.Write('EmpleadoID', TypeInfo(String), EmpleadoID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvContactos_Proxy.GenerateEtiquetasReport(const ContactosID: String): Binary; function TsrvContactos_Proxy.GenerateEtiquetasReport(const ContactosID: String): Binary;
begin begin
try try
@ -1143,11 +1147,32 @@ begin
result := TsrvUsuarios_Proxy.Create(aMessage, aTransportChannel); result := TsrvUsuarios_Proxy.Create(aMessage, aTransportChannel);
end; end;
{ TsrvUsuarios_Proxy }
function TsrvUsuarios_Proxy.__GetInterfaceName:string; function TsrvUsuarios_Proxy.__GetInterfaceName:string;
begin begin
result := 'srvUsuarios'; result := 'srvUsuarios';
end; end;
procedure TsrvUsuarios_Proxy.darIDTiendaVendedorUsuario(const ID_USUARIO: Integer; var AIdTienda: Integer; var ATienda: String);
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'darIDTiendaVendedorUsuario');
__Message.Write('ID_USUARIO', TypeInfo(Integer), ID_USUARIO, []);
__Message.Write('AIdTienda', TypeInfo(Integer), AIdTienda, []);
__Message.Write('ATienda', TypeInfo(String), ATienda, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('AIdTienda', TypeInfo(Integer), AIdTienda, []);
__Message.Read('ATienda', TypeInfo(String), ATienda, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvAlmacenes } { CosrvAlmacenes }
class function CosrvAlmacenes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlmacenes; class function CosrvAlmacenes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlmacenes;
@ -1679,6 +1704,37 @@ begin
result := 'srvUnidadesMedida'; result := 'srvUnidadesMedida';
end; end;
{ CosrvComisiones }
class function CosrvComisiones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones;
begin
result := TsrvComisiones_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvComisiones_Proxy }
function TsrvComisiones_Proxy.__GetInterfaceName:string;
begin
result := 'srvComisiones';
end;
function TsrvComisiones_Proxy.GenerateReport(const ComisionID: String): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('ComisionID', TypeInfo(String), ComisionID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
initialization initialization
RegisterROClass(TRdxLoginInfo); RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray); RegisterROClass(TRdxEmpresasArray);
@ -1708,6 +1764,7 @@ initialization
RegisterProxyClass(IsrvReferencias_IID, TsrvReferencias_Proxy); RegisterProxyClass(IsrvReferencias_IID, TsrvReferencias_Proxy);
RegisterProxyClass(IsrvContabilidad_IID, TsrvContabilidad_Proxy); RegisterProxyClass(IsrvContabilidad_IID, TsrvContabilidad_Proxy);
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy); RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy);
finalization finalization
@ -1739,5 +1796,6 @@ finalization
UnregisterProxyClass(IsrvReferencias_IID); UnregisterProxyClass(IsrvReferencias_IID);
UnregisterProxyClass(IsrvContabilidad_IID); UnregisterProxyClass(IsrvContabilidad_IID);
UnregisterProxyClass(IsrvUnidadesMedida_IID); UnregisterProxyClass(IsrvUnidadesMedida_IID);
UnregisterProxyClass(IsrvComisiones_IID);
end. end.

93
Source/Servicios/FactuGES_Invk.pas
View File

@ -24,7 +24,6 @@ type
private private
protected protected
published published
procedure Invoke_GenerateFichaEmpleadoReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerateEtiquetasReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerateEtiquetasReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
@ -84,6 +83,7 @@ type
private private
protected protected
published published
procedure Invoke_darIDTiendaVendedorUsuario(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvAlmacenes_Invoker = class(TDataAbstractService_Invoker) TsrvAlmacenes_Invoker = class(TDataAbstractService_Invoker)
@ -200,6 +200,13 @@ type
published published
end; end;
TsrvComisiones_Invoker = class(TDataAbstractService_Invoker)
private
protected
published
procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation implementation
uses uses
@ -207,34 +214,6 @@ uses
{ TsrvContactos_Invoker } { TsrvContactos_Invoker }
procedure TsrvContactos_Invoker.Invoke_GenerateFichaEmpleadoReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary; }
var
EmpleadoID: String;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('EmpleadoID', TypeInfo(String), EmpleadoID, []);
lResult := (__Instance as IsrvContactos).GenerateFichaEmpleadoReport(EmpleadoID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'GenerateFichaEmpleadoReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvContactos_Invoker.Invoke_GenerateEtiquetasReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvContactos_Invoker.Invoke_GenerateEtiquetasReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateEtiquetasReport(const ContactosID: String): Binary; } { function GenerateEtiquetasReport(const ContactosID: String): Binary; }
var var
@ -351,6 +330,32 @@ begin
end; end;
end; end;
{ TsrvUsuarios_Invoker }
procedure TsrvUsuarios_Invoker.Invoke_darIDTiendaVendedorUsuario(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure darIDTiendaVendedorUsuario(const ID_USUARIO: Integer; var AIdTienda: Integer; var ATienda: String); }
var
ID_USUARIO: Integer;
AIdTienda: Integer;
ATienda: String;
begin
try
__Message.Read('ID_USUARIO', TypeInfo(Integer), ID_USUARIO, []);
__Message.Read('AIdTienda', TypeInfo(Integer), AIdTienda, []);
__Message.Read('ATienda', TypeInfo(String), ATienda, []);
(__Instance as IsrvUsuarios).darIDTiendaVendedorUsuario(ID_USUARIO, AIdTienda, ATienda);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvUsuarios', 'darIDTiendaVendedorUsuarioResponse');
__Message.Write('AIdTienda', TypeInfo(Integer), AIdTienda, []);
__Message.Write('ATienda', TypeInfo(String), ATienda, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
end;
end;
{ TsrvRecibosCliente_Invoker } { TsrvRecibosCliente_Invoker }
procedure TsrvRecibosCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvRecibosCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -853,5 +858,35 @@ begin
end; end;
end; end;
{ TsrvComisiones_Invoker }
procedure TsrvComisiones_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const ComisionID: String): Binary; }
var
ComisionID: String;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('ComisionID', TypeInfo(String), ComisionID, []);
lResult := (__Instance as IsrvComisiones).GenerateReport(ComisionID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvComisiones', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
initialization initialization
end. end.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.