Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso de releaciones entre modulos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@55 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-09-15 16:38:42 +00:00
parent e718b17ad3
commit 18cac885e2
2 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Source/ApplicationBase/Empresas/Model/uBizEmpresasServer.pas
View File

@ -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;

17
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -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