From 450b9efc4497c112314742854e6a8475e73381e2 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 21 Dec 2023 19:49:26 -0700 Subject: [PATCH] Ventras cambios Sms en modal --- Ventas/Ventas.aspx | 28 +++++++++++++--------------- Ventas/Ventas.aspx.vb | 12 +++++++++++- 2 files changed, 24 insertions(+), 16 deletions(-) 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