From 9bc17178ac8565ce0fd5c0d5220cf050b89097f1 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 31 Jul 2021 09:35:44 -0700 Subject: [PATCH] - --- Ventas/ProductosServicios.aspx | 2 +- Ventas/ProductosServicios.aspx.vb | 10 +++++++--- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index c9d4bb2ae..da6216dcc 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -133,7 +133,7 @@
- + diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index bc7e20c47..be2d00b05 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -251,6 +251,10 @@ Partial Class ProductosyServicios 'DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();") End If + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + TxtPS.CssClass = "form-control Mayuscula" + End If + If UsuarioActual.CveEmpresa.Contiene(72, 80) And CvePS = -1 Then 'DivDatos.Attributes("class") = "col-md-12" @@ -1327,9 +1331,9 @@ Partial Class ProductosyServicios End If Else - If CodigoBarrasCargado.Length > 0 And TxtCodigoBarras.Text.Length = 0 Then - TxtCodigoBarras.Text = CodigoBarrasCargado - End If + 'If CodigoBarrasCargado.Length > 0 And TxtCodigoBarras.Text.Length = 0 Then 'RMF.2021.07.30, se comentó, por no entender la validaci´n, y nodeja limpiar codigos + ' TxtCodigoBarras.Text = CodigoBarrasCargado + 'End If Dim PSS As String = TxtPS.Text.Trim.Replace("|", "") If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper