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