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

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@14 f4e31baf-9722-1c47-927c-6f952f962d4b

Browse Source
This commit is contained in:
roberto 2007-11-30 18:47:46 +00:00
parent 3f2edfcd29
commit 289be52a46
4 changed files with 56 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Servicios/FactuGES.RODL
View File

@ -317,6 +317,16 @@
<Interfaces>
<Interface Name="Default" UID="{E99052D5-4ED9-480C-B4D4-384E8C6E4B08}">
<Operations>
<Operation Name="GenerarPGC" UID="{DBF0B2C3-8194-459D-9E83-F1EB51378C78}">
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="ID_EJERCICIO_COPIA" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="ID_EJERCICIO" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>

21
Source/Servicios/FactuGES_Intf.pas
View File

@ -568,6 +568,7 @@ type
{ IsrvEjercicios }
IsrvEjercicios = interface(IDataAbstractService)
['{E99052D5-4ED9-480C-B4D4-384E8C6E4B08}']
function GenerarPGC(const ID_EJERCICIO_COPIA: Integer; const ID_EJERCICIO: Integer): Boolean;
end;
{ CosrvEjercicios }
@ -580,6 +581,7 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarPGC(const ID_EJERCICIO_COPIA: Integer; const ID_EJERCICIO: Integer): Boolean;
end;
{ IsrvBalances }
@ -1490,11 +1492,30 @@ begin
result := TsrvEjercicios_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvEjercicios_Proxy }
function TsrvEjercicios_Proxy.__GetInterfaceName:string;
begin
result := 'srvEjercicios';
end;
function TsrvEjercicios_Proxy.GenerarPGC(const ID_EJERCICIO_COPIA: Integer; const ID_EJERCICIO: Integer): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarPGC');
__Message.Write('ID_EJERCICIO_COPIA', TypeInfo(Integer), ID_EJERCICIO_COPIA, []);
__Message.Write('ID_EJERCICIO', TypeInfo(Integer), ID_EJERCICIO, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Boolean), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvBalances }
class function CosrvBalances.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvBalances;

25
Source/Servicios/FactuGES_Invk.pas
View File

@ -173,6 +173,7 @@ type
private
protected
published
procedure Invoke_GenerarPGC(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvBalances_Invoker = class(TDataAbstractService_Invoker)
@ -674,5 +675,29 @@ begin
end;
end;
{ TsrvEjercicios_Invoker }
procedure TsrvEjercicios_Invoker.Invoke_GenerarPGC(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarPGC(const ID_EJERCICIO_COPIA: Integer; const ID_EJERCICIO: Integer): Boolean; }
var
ID_EJERCICIO_COPIA: Integer;
ID_EJERCICIO: Integer;
lResult: Boolean;
begin
try
__Message.Read('ID_EJERCICIO_COPIA', TypeInfo(Integer), ID_EJERCICIO_COPIA, []);
__Message.Read('ID_EJERCICIO', TypeInfo(Integer), ID_EJERCICIO, []);
lResult := (__Instance as IsrvEjercicios).GenerarPGC(ID_EJERCICIO_COPIA, ID_EJERCICIO);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvEjercicios', 'GenerarPGCResponse');
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
end;
end;
initialization
end.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.