diff --git a/Source/ApplicationBase/Empresas/Model/uBizEmpresasServer.pas b/Source/ApplicationBase/Empresas/Model/uBizEmpresasServer.pas
index cd6a2ea..e2d4e5d 100644
--- a/Source/ApplicationBase/Empresas/Model/uBizEmpresasServer.pas
+++ b/Source/ApplicationBase/Empresas/Model/uBizEmpresasServer.pas
@@ -40,7 +40,22 @@ begin
   CanRemoveFromDelta := False;
 
   case aChange.ChangeType of
-    ctInsert, ctUpdate: begin
+  ctInsert: begin
+
+    try
+      AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
+      AConn.BeginTransaction;
+      Sender.Schema.NewCommand(AConn, 'AnadirReferenciasEmpresa', ['ID_EMPRESA'], [Sender.CurrentChange.OldValueByName[fld_EmpresasID]]);
+          AConn.CommitTransaction;
+        except
+          AConn.RollbackTransaction;
+          RaiseError('AnadirReferenciasEmpresa');
+        end;
+
+        AConn:= Nil;
+     end;
+
+{    ctInsert, ctUpdate: begin
       ParamTiempo := Sender.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO];
       ParamMargen := Sender.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN];
       if ((Sender.CurrentChange.OldValueByName[fld_EmpresasPARAM_TIEMPO] <> ParamTiempo)
@@ -59,7 +74,7 @@ begin
 
         AConn:= Nil;
       end;
-    end;
+}
   end;
 end;
 
diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
index 1bbf696..1628f3b 100644
--- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
+++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
@@ -446,6 +446,23 @@ object srvEmpresas: TsrvEmpresas
             ColumnMappings = <>
           end>
         Name = 'RecalcularPVPArticulos'
+      end
+      item
+        Params = <
+          item
+            Name = 'id_empresa'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            SQL = 'execute procedure PRO_ANADIR_EMPRESA :id_empresa'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'AnadirReferenciasEmpresa'
       end>
     RelationShips = <
       item