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 9c10084f..47f76920 100644
Binary files a/Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas and b/Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas differ