--merge ClsPaginas

Ventas/Ventas.aspx.vb

@@ -36425,12 +36425,13 @@ Partial Class Ventas
             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
             Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
 
+            Dim PU As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal
+
             If Cantidad > 0 Then
                 If Not ValidaAgregarPS(CvePS, CveUnidadMedida, PU, 2, Cantidad, CodigoPS) Then
                     Alert("No hay existencia.", TipoMensaje.MsgAdvertencia)
@@ -36509,7 +36510,7 @@ Partial Class Ventas
             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 PU As Decimal = GvRow.FCTextBox("TxtPrecio").Text.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
@@ -36573,6 +36574,37 @@ Partial Class Ventas
         GvProductosProcedimiento.DataBind()
         DVGvProductosProcedimiento.Visible = True
 
+        For Each GvRow As GridViewRow In GvProductosProcedimiento.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("#,###.####")
+
+            End If
+        Next
+
         UpDvModalTipoVenta.Update()
     End Sub