From ae5d9dcfff62f732f597dd53848679147ce401b2 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Sun, 18 Nov 2007 12:57:35 +0000
Subject: [PATCH] Repaso a contactos: * Rellenar los campos ID_EMPRESA y
 USUARIO con sus valores.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@131 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Modulos/Contactos/Model/uBizContactos.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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