Bloque de clasificaciones y unidad de medida en cotizaciones

Ventas/Ventas.aspx.vb

@@ -2590,6 +2590,14 @@ Partial Class Ventas
         CargaPorcentajeMarcas()
 
         BloqueaCondiconesPago()
+
+        BloqueaClasificaciones()
+    End Sub
+    Private Sub BloqueaClasificaciones()
+        If UsuarioActual.CveEmpresa = 141 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+            DdlClasificacion.Enabled = False
+            DdlUnidadMedida.Enabled = False
+        End If
     End Sub
 
     Private Sub BloqueaCondiconesPago()
@@ -5819,6 +5827,10 @@ Partial Class Ventas
         GvPS.DataSource = TmpDT
         DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
         GvPS.DataBind()
+        If UsuarioActual.CveEmpresa = 141 Then
+            GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlUnidadMedida").Enabled = False
+            GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlClasificacion").Enabled = False
+        End If
     End Sub
     Protected Sub GvPS_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvPS.RowCancelingEdit
         GvPS.EditIndex = -1
@@ -8791,7 +8803,7 @@ Partial Class Ventas
                                                         .Descripcion = tPS,
                                                         .ValorUnitario = drr("PU").ToString.ToDecimal,
                                                         .Importe = drr("TotalImporte").ToString.ToDecimal,
-                                                        .Descuento = drr("Descuento").ToString.ToDecimal,
+                                                        .Descuento = drr("Descuento").ToString.ToDecimal.RoundSQL(2),
                                                         .Unidad = drr("UM").ToString,
                                                         .ClaveUnidad = drr("SATClaveUM").ToString,
                                                         .ClaveProdServ = drr("SATClaveProdServ").ToString,