From 0af56d99f1eaecb58af65cece53129c9d64ac81f Mon Sep 17 00:00:00 2001 From: david Date: Sun, 18 Nov 2007 15:06:31 +0000 Subject: [PATCH] Rellenar los campos ID_EMPRESA y USUARIO con sus valores. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@133 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uEmpresasController.pas | 8 ++++---- .../Empresas/Model/uBizEmpresas.pas | Bin 2364 -> 2387 bytes 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas index f38cb497..d5879df9 100644 --- a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas @@ -50,7 +50,7 @@ type implementation uses - uEditorRegistryUtils, cxControls, DB, + uEditorRegistryUtils, cxControls, DB, uFactuGES_App, uDataModuleEmpresas, uIEditorEmpresa; { TEmpresasController } @@ -193,9 +193,9 @@ begin raise Exception.Create('Debe indicar al menos el nombre de la empresa.'); // Asegurarse de valores en campos "automáticos" -{ AEmpresa.Edit; - AEmpresa.USUARIO := dmUsuarios.LoginInfo.Usuario; - AEmpresa.Post;} + AEmpresa.Edit; + AEmpresa.USUARIO := AppFactuGES.UsuarioActivo.UserName; + AEmpresa.Post; Result := True; end; diff --git a/Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas b/Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas index 9c10084fcae335c9875be7440ef8e21a23de5454..47f76920a57c4949cfaed588236d0208d34ade5f 100644 GIT binary patch delta 90 zcmdlZbXjPF2CI+`FPDNssas-lNvXSQaJ*wd!DbCscP4!Wh0x$o#~@FC1uI(xpeRg* lUTAS?Vo_$kV{%DmSw4`LTI83Qn>ty5LvizN_C`iV1_0HW8|451 delta 61 zcmcaCv`1)z2J2=kR(B?CeSHOm(BM$VAWwe+|c6E#G=gnVm+Vy^vpcZytI5h LsL