From 18cac885e2718b169578944f9a14463f2de028dd Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 15 Sep 2010 16:38:42 +0000
Subject: [PATCH] Repaso de releaciones entre modulos

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@55 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 .../Empresas/Model/uBizEmpresasServer.pas     | 19 +++++++++++++++++--
 .../Empresas/Servidor/srvEmpresas_Impl.dfm    | 17 +++++++++++++++++
 2 files changed, 34 insertions(+), 2 deletions(-)

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