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

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>

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;

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.