From 289be52a46c2cf2b6d3026c293bd9e66ded715db Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 30 Nov 2007 18:47:46 +0000
Subject: [PATCH] git-svn-id:
 https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@14
 f4e31baf-9722-1c47-927c-6f952f962d4b

---
 Source/Servicios/FactuGES.RODL     |  10 ++++++++++
 Source/Servicios/FactuGES_Intf.pas |  21 +++++++++++++++++++++
 Source/Servicios/FactuGES_Invk.pas |  25 +++++++++++++++++++++++++
 Source/Servicios/RODLFILE.res      | Bin 22172 -> 22525 bytes
 4 files changed, 56 insertions(+)

diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index 5d189caf..be3dc306 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -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>
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 069385c5..68eee011 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -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;
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index 5e66c561..b8548ed9 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -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.
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 1090f18dfa9cfa3635eee79e80881946291f4d36..3d74a9baf02988c31652af5c7551733af55fa601 100644
GIT binary patch
delta 126
zcmbQUmhta;#t8~cYr{7xWxGtSHxe@_3UGH;QV8{Qu~n*eadI<oGIBQ7wJ@|a(KRu(
zbkVhRwJ_FoGjw$_H8eK2a5lG?>?mVCxsHc#@=pV8fp}Lh*C1z4XHWllXa4|C$H^BQ
W9C<ul5W+wK!%1>!o3FVX69fQgXD0Fh

delta 24
gcmeyno^j4v#t8~cK4BY`vRx+sb@$wC?siNN0D$BP^#A|>