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

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;