Repaso de releaciones entre modulos

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@55 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

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;
 

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