-

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