From 4ff512d2eba6d5535b48d179385b6c1361d74849 Mon Sep 17 00:00:00 2001 From: david Date: Sun, 18 Nov 2007 15:11:33 +0000 Subject: [PATCH] Rellenar los campos ID_EMPRESA y USUARIO con sus valores. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@137 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uComisionesController.pas | 2 +- .../Comisiones/Model/uBizComisiones.pas | 4 ++-- .../Comisiones/Views/uEditorComision.pas | 3 ++- .../Comisiones/Views/uEditorComisiones.pas | Bin 5128 -> 5131 bytes .../Views/uEditorRemesasCliente.pas | Bin 5910 -> 5913 bytes 5 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Source/Modulos/Comisiones/Controller/uComisionesController.pas b/Source/Modulos/Comisiones/Controller/uComisionesController.pas index bb2855af..783385b2 100644 --- a/Source/Modulos/Comisiones/Controller/uComisionesController.pas +++ b/Source/Modulos/Comisiones/Controller/uComisionesController.pas @@ -279,7 +279,7 @@ begin // Asegurarse de valores en campos "automáticos" AComision.Edit; try - AComision.USUARIO := dmUsuarios.LoginInfo.Usuario; + AComision.USUARIO := AppFactuGES.UsuarioActivo.UserName; Result := True; finally AComision.Post; diff --git a/Source/Modulos/Comisiones/Model/uBizComisiones.pas b/Source/Modulos/Comisiones/Model/uBizComisiones.pas index dd481e01..fb493ef7 100644 --- a/Source/Modulos/Comisiones/Model/uBizComisiones.pas +++ b/Source/Modulos/Comisiones/Model/uBizComisiones.pas @@ -81,9 +81,9 @@ end; procedure TBizComisiones.IniciarValoresComisionLiquidacionNuevo; begin - ID_EMPRESA := dmUsuarios.IDEmpresaActual; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; FECHA := Date; - USUARIO := dmUsuarios.LoginInfo.Usuario; + USUARIO := AppFactuGES.UsuarioActivo.UserName; DESCRIPCION := 'Liquidación de comisiones del mes de ' + UpperCase(FormatDateTime('mmmm', date)); end; diff --git a/Source/Modulos/Comisiones/Views/uEditorComision.pas b/Source/Modulos/Comisiones/Views/uEditorComision.pas index c8309dc4..7187a985 100644 --- a/Source/Modulos/Comisiones/Views/uEditorComision.pas +++ b/Source/Modulos/Comisiones/Views/uEditorComision.pas @@ -167,7 +167,7 @@ begin inherited PonerTitulos(FTitulo); - Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')'; + Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')'; end; procedure TfEditorComision.PrevisualizarInterno; @@ -305,3 +305,4 @@ end; end. + \ No newline at end of file diff --git a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas index 210059ae7d8e2f9558ef33bd8c83b49460947c6d..709ca69623971844f71723c862ea4913d304e68d 100644 GIT binary patch delta 40 vcmeCs=+;=kC+S#F;Fg$NQtIv+tmm3rP?TDn=$KrRS(dn2g6{(>69WSP9GMM4 delta 36 rcmeCy=+IceCy|mHT3nh~l$l?w=bBqklv