From 671d27d7017094c62062a79483ba48922d718122 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Mar 2025 05:55:51 -0700 Subject: [PATCH] =?UTF-8?q?--=20limpieza=20de=20c=C3=B3digo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 28 ---------------------------- 1 file changed, 28 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 49fa5e90a..91c505a4e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -40398,34 +40398,6 @@ Partial Class Ventas DVGvPSProced.Visible = True GvPSProced.Columns(4).Visible = RBLTipoVenta.SelectedValue = "2" ' comisión Ed. Médica, solo cuando es pago directo - For Each GvRow As GridViewRow In GvPSProced.Rows - If RBLTipoVenta.SelectedValue = "2" Then - - Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal - Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero - Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString - 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 - - 'SUGIERE PRECIO - Dim PrecioSugerido As Decimal = 0 - Dim tPrecioSugerido As Decimal = 0 - tPrecioSugerido = PU - Dim ObjPrecioSugerido As Modelos.MPrecioSugerido = CalculaPrecioSugerido(CvePS, CveClasificacion) - - PrecioSugerido = ObjPrecioSugerido.PrecioSugerido - If ObjPrecioSugerido.CvePrecioLista > 0 AndAlso DivPrecioLista.Visible Then - DdlPrecioLista.SelectedValueExist(ObjPrecioSugerido.CvePrecioLista) - End If - - If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido - GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,##0.####") - - End If - Next - UpDvModalTipoVenta.Update() End Sub