From 2d6a376c4f65868fe92e6671f631f8ceb0332ee3 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 24 Nov 2009 17:42:50 +0000 Subject: [PATCH] =?UTF-8?q?Se=20arregla=20la=20localizaci=C3=B3n=20del=20u?= =?UTF-8?q?suario=20con=20el=20que=20se=20ha=20logeado=20para=20poder=20as?= =?UTF-8?q?ignarlo=20en=20los=20docmentos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@474 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/ApplicationBase/uFactuGES_App.pas | 1 + .../Controller/Contactos_controller.dproj | 32 +++++++++++------- .../Controller/uVendedoresController.pas | 12 +++---- .../Model/uBizContratosCliente.pas | 2 +- .../Model/uBizPresupuestosCliente.pas | 2 +- Source/Servidor/FactuGES_Server.RES | Bin 23352 -> 23352 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 7 files changed, 29 insertions(+), 22 deletions(-) diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index c1f55349..34ab67ba 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -262,6 +262,7 @@ end; procedure TAppFactuGES.BuscarTiendaPorDefecto; begin + //OJO -> MIRAR SIEMPRE QUE EL VENDEDOR TENGA ASOCIADA UNA TIENDA Y UN USUARIO EXISTENTE //Nos devuelve el id de la tienda a la que pertenece el vendedor que tiene asignado //el usuario con el que ha accedido a la aplicación. //Esto funciona mientras la relación sea 1 a 1, cuando sea 1 a n (un usuario pertenece a varios vendedores deja de funcionar) diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index 7414a4be..d7cbd888 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -46,6 +46,12 @@ + + + + + + JCL Debug IDE extension JCL Project Analyzer JCL Open and Save IDE dialogs with favorite folders @@ -56,6 +62,19 @@ MainSource + + + + + + + + + + + + + @@ -66,15 +85,6 @@ - - - - - - - - - @@ -95,10 +105,6 @@ - - - - diff --git a/Source/Modulos/Contactos/Controller/uVendedoresController.pas b/Source/Modulos/Contactos/Controller/uVendedoresController.pas index c4b386c5..afead3e4 100644 --- a/Source/Modulos/Contactos/Controller/uVendedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uVendedoresController.pas @@ -18,7 +18,7 @@ type function DarListaVendedores : TStringList; function BuscarTodos: IBizContacto; overload; function BuscarTodos(const CadenaIDs: String): IBizContacto; overload; - function DarIDVendedorDeUsuario(const AUsuario: String): Integer; + function DarIDVendedorDeUsuario(const AUsuario: Integer): Integer; end; TVendedoresController = class(TContactosController, IVendedoresController) @@ -38,7 +38,7 @@ type function Eliminar(AVendedor: IBizContacto; AllItems: Boolean = false): Boolean; overload; function EsEliminable(AVendedor: IBizContacto): Boolean; - function DarIDVendedorDeUsuario(const AUsuario: String): Integer; + function DarIDVendedorDeUsuario(const AUsuario: Integer): Integer; end; implementation @@ -106,11 +106,11 @@ begin end; function TVendedoresController.DarIDVendedorDeUsuario( - const AUsuario: String): Integer; + const AUsuario: Integer): Integer; var - AVendedores: IBizContacto; + AVendedores: IBizVendedor; begin - AVendedores := BuscarTodos; + AVendedores := (BuscarTodos as IBizVendedor); AVendedores.DataTable.Active := True; with AVendedores.DataTable do @@ -118,7 +118,7 @@ begin First; while not EOF do begin - if (not AVendedores.USUARIOIsNull) and (AVendedores.USUARIO = AUsuario) then + if (AVendedores.ID_USUARIO = AUsuario) then begin Result := AVendedores.ID; Break; diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas index 2a27b8aa..73e0e9db 100644 --- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas @@ -271,7 +271,7 @@ var begin AVendedoresController := TVendedoresController.Create; try - ID_VENDEDOR := AVendedoresController.DarIDVendedorDeUsuario(AppFactuGES.UsuarioActivo.UserName); + ID_VENDEDOR := AVendedoresController.DarIDVendedorDeUsuario(AppFactuGES.UsuarioActivo.ID); finally AVendedoresController := nil; end; diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas index 88e2a4c2..e0559125 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas @@ -225,7 +225,7 @@ var begin AVendedoresController := TVendedoresController.Create; try - ID_VENDEDOR := AVendedoresController.DarIDVendedorDeUsuario(AppFactuGES.UsuarioActivo.UserName); + ID_VENDEDOR := AVendedoresController.DarIDVendedorDeUsuario(AppFactuGES.UsuarioActivo.ID); finally AVendedoresController := nil; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 7df0c75fbce091c101cb31b4942f6534fcdd8482..5c553de08abc02485cc47d5ed02cc39bb36c7f84 100644 GIT binary patch delta 19 bcmdn7jd8~|#tpBcSS=W=7>p;skMaZnQ)>sJ delta 19 bcmdn7jd8~|#tpBcSj`!%7z`%AkMaZnQ&R_? diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 52a751e6..8589043b 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.3.9.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductVersion", "2.3.9.0\0" - VALUE "CompileDate", "martes, 24 de noviembre de 2009 17:00\0" + VALUE "CompileDate", "martes, 24 de noviembre de 2009 18:30\0" END END BLOCK "VarFileInfo"