diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 4880672b7..d4b0fd8d3 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -8471,13 +8471,9 @@
Productos utilizados en el procedimiento
-
+
-
-
-
-
@@ -8486,22 +8482,24 @@
+
+
+
+
+
+
+
- <%--
-
- --%>
-
-
-
-
-
-
+
+
+
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e1eff45d0..c28b8c96d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -36101,7 +36101,7 @@ Partial Class Ventas
Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString
- Dim PU As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal
+ Dim PU As Decimal = GvRow.DataKey("Precio").ToDecimal
Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString
Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
@@ -36128,6 +36128,14 @@ Partial Class Ventas
End Sub
+ Protected Sub GvProductosProcedimiento_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DataKey("Precio").ToDecimal = 0 Then
+ e.Row.FCTextBox("TxtCantidad").Enabled = False
+ End If
+ End If
+ End Sub
+
Protected Sub ChkRequiereTecnicoModal_CheckedChanged(sender As Object, e As EventArgs)
DvModalRequiereOSFecha.Visible = ChkRequiereTecnicoModal.Checked
@@ -36259,5 +36267,7 @@ Partial Class Ventas
CargarSaldoAuxiliar(CveCliente)
End Sub
+
+
End Class