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
This commit is contained in:
David Arranz 2007-11-18 12:57:35 +00:00
parent 01a6886a44
commit ae5d9dcfff

View File

@ -348,7 +348,7 @@ type
implementation implementation
uses uses
uDataTableUtils, Classes, DateUtils, SysUtils; uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App;
{ TBizContacto } { TBizContacto }
@ -402,8 +402,7 @@ end;
procedure TBizContacto.IniciarValoresContactoNuevo; procedure TBizContacto.IniciarValoresContactoNuevo;
begin begin
// USUARIO := AppFactuGES.UsuarioActivo.UserName;
//USUARIO := dmUsuarios.LoginInfo.Usuario;
end; end;
procedure TBizContacto.OnNewRecord(Sender: TDADataTable); procedure TBizContacto.OnNewRecord(Sender: TDADataTable);