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 1090f18d..3d74a9ba 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ