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