Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rellenar los campos ID_EMPRESA y USUARIO con sus valores.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@133 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-11-18 15:06:31 +00:00
parent 7abf1391c4
commit 0af56d99f1
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -50,7 +50,7 @@ type
implementation implementation
uses uses
uEditorRegistryUtils, cxControls, DB, uEditorRegistryUtils, cxControls, DB, uFactuGES_App,
uDataModuleEmpresas, uIEditorEmpresa; uDataModuleEmpresas, uIEditorEmpresa;
{ TEmpresasController } { TEmpresasController }
@ -193,9 +193,9 @@ begin
raise Exception.Create('Debe indicar al menos el nombre de la empresa.'); raise Exception.Create('Debe indicar al menos el nombre de la empresa.');
// Asegurarse de valores en campos "automáticos" // Asegurarse de valores en campos "automáticos"
{ AEmpresa.Edit; AEmpresa.Edit;
AEmpresa.USUARIO := dmUsuarios.LoginInfo.Usuario; AEmpresa.USUARIO := AppFactuGES.UsuarioActivo.UserName;
AEmpresa.Post;} AEmpresa.Post;
Result := True; Result := True;
end; end;

BIN
Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas
View File

Binary file not shown.