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 @@
                                         <div class="row">
                                             <div class="col-md-12">
                                                 <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:TextBox ID="TxtPS" TextMode="MultiLine" Rows="2" CssClass="form-control Mayuscula" runat="server" MaxLength="846"></asp:TextBox>
+                                                    <asp:TextBox ID="TxtPS" TextMode="MultiLine" Rows="2" CssClass="form-control" runat="server" MaxLength="846"></asp:TextBox>
                                                     <label class="truncate" for="<%= TxtPS.ClientID.ToString()%>">Descripción del Producto / Servicio:</label>
                                                     <asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="TxtPS" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto Servicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCEPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVPS" Width="300px"></ajax:ValidatorCalloutExtender>
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