Sugiere precio en base al Costo de la clasificacion

Ventas/Ventas.aspx.vb

@@ -12923,6 +12923,16 @@ Partial Class Ventas
                 DdlUnidadMedida.DataBind()
                 DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString)
 
+                If drPS("CveTipoPS").ToString = "1" Then 'Si es servicio
+                    If UsuarioActual.Empresa.Funcionalidad(558).ToString = "1" Then 'Si es Empresa llantera
+                        TxtPrecio.Enabled = True
+                    Else
+                        TxtPrecio.Enabled = False
+                    End If
+                Else
+                    TxtPrecio.Enabled = True
+                End If
+
                 If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count = 0 Then
                     DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString)
                     CambiaMoneda()
@@ -12979,7 +12989,16 @@ Partial Class Ventas
 
                 End If
 
+                Dim PrecioBaseCosto As Decimal = 0
+                Dim ObjClasificaciones As New ClsClasificaciones
+                If ObjClasificaciones.GetClasificaciones() Then
+                    PrecioBaseCosto = ObjClasificaciones.DtResultados.FiltroPrimeroValor("PrecioBaseCosto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveClasificacion = {drPS("CveClasificacion")}").ToDecimal
+                End If
+
                 If PrecioSugerido > 0 Then
+                    If PrecioBaseCosto > 0 Then
+                        PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1)
+                    End If
                     TxtPrecio.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
                 End If