From 03f5420c693c288e8bdccb1d4bf9afd8db9b4c40 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 19 Nov 2024 15:48:34 -0700 Subject: [PATCH] =?UTF-8?q?-=20activar=20c=C3=B3digo=20alterno=20citrus?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ProductosServicios.aspx.vb | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 12f5a4bf4..7c1a31aea 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -479,10 +479,8 @@ Partial Class ProductosyServicios DdlEcommerceClasificacion.DataBind() End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then - + If UsuarioActual.Empresa.Funcionalidad(578) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(267) = "1" Then DVCodigoPSAlterno.Visible = True - End If End Sub @@ -1159,12 +1157,9 @@ Partial Class ProductosyServicios ChkFechaIndeterminadaRSCO.Checked = False End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then - TxtCodigoAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("CodigoAlterno").ToString - TxtPSAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("PSAlterno").ToString - DVCodigoPSAlterno.Visible = True - - End If + TxtCodigoAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("CodigoAlterno").ToString + TxtPSAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("PSAlterno").ToString + DVCodigoPSAlterno.Visible = True If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then DivPSExhibicion.Visible = True