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:
parent
01a6886a44
commit
ae5d9dcfff
@ -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);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user