diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas
index 44815220..23ec0dc2 100644
--- a/Source/Modulos/Contactos/Model/uBizContactos.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactos.pas
@@ -348,7 +348,7 @@ type
 implementation
 
 uses
-  uDataTableUtils, Classes, DateUtils, SysUtils;
+  uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App;
 
 { TBizContacto }
 
@@ -402,8 +402,7 @@ end;
 
 procedure TBizContacto.IniciarValoresContactoNuevo;
 begin
-  //
-  //USUARIO := dmUsuarios.LoginInfo.Usuario;
+  USUARIO := AppFactuGES.UsuarioActivo.UserName;
 end;
 
 procedure TBizContacto.OnNewRecord(Sender: TDADataTable);