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 210059ae..709ca696 100644 Binary files a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas and b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas differ diff --git a/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.pas b/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.pas index 99692a2c..ef8c6669 100644 Binary files a/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.pas and b/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.pas differ