From a77f16989224dfc0983327f2e7ea2e2544b4152f Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Mon, 17 Feb 2020 10:26:12 -0700 Subject: [PATCH] - varios de global - clientes abonar. funcionalidad --- Ventas/CatUnidadesMedida.aspx.vb | 6 +++--- Ventas/ClientesAbonar.aspx.vb | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Ventas/CatUnidadesMedida.aspx.vb b/Ventas/CatUnidadesMedida.aspx.vb index 6f6318edc..259a38460 100644 --- a/Ventas/CatUnidadesMedida.aspx.vb +++ b/Ventas/CatUnidadesMedida.aspx.vb @@ -51,7 +51,7 @@ Partial Class CatUnidadesMedida TxtAlias.Text = "" Alert("El nueva Alias Unidad de Medida se guardó correctamente.", TipoMensaje.MsgInformacion) UpDatosAlias.Update() - GlobalDTUnidadesMedidaAlias = ObjUnidadesMedida.DtResultados + GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa) = Nothing ViewState("DTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & cve) End If CargaGridAlias() @@ -281,7 +281,7 @@ Partial Class CatUnidadesMedida TxtAbreviatura.Text = "" Alert("La nueva Unidad de Medida se guardó correctamente.", TipoMensaje.MsgInformacion) UpAddUnidadMedida.Update() - GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados + GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) If ViewState("Orden").ToString() <> String.Empty Then CargaGrid() @@ -344,7 +344,7 @@ Partial Class CatUnidadesMedida UpDatos.Update() If ObjUnidadesMedida.RemoveUnidadMedida(HdnID.Value.ToEntero) Then GvDatos.EditIndex = -1 - GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados + GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 8f01ade50..e6545ee13 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -2492,7 +2492,7 @@ Partial Class Ventas_ClientesAbonar If CveConceptoDeduccion = 255 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(266).ToEntero If CveConceptoDeduccion = 211 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero If CveConceptoDeduccion = 263 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(537).ToEntero - If CveConceptoDeduccion = 252 Then IdCuentaContableNoDeducible = 0 + If CveConceptoDeduccion = 252 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(581).ToEntero If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then