- permiso proceso 68, bloqueo de txtprecio

Ventas/Ventas.aspx.vb

@@ -5728,6 +5728,8 @@ Partial Class Ventas
 
                 End If
 
+                If UsuarioActual.TienePermisoProceso(68) Then e.Row.FCTextBox("TxtPrecio").Enabled = False
+
                 'Si es una devolucion
                 If NuevaFactura = 0 Then
                     e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
@@ -13727,6 +13729,8 @@ Partial Class Ventas
                     TxtPrecio.Enabled = True
                 End If
 
+                If UsuarioActual.TienePermisoProceso(68) Then TxtPrecio.Enabled = False
+
                 If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count = 0 Then
                     DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString())
                     CambiaMoneda()