diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 72d0f3f77..8a1b3c747 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -35912,7 +35912,7 @@ Partial Class Ventas
 #Region "  CREAR APARTIR DE  "
     Protected Sub BtnCrearApartirDe_Click(sender As Object, e As System.EventArgs) Handles BtnCrearApartirDe.Click
         If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-            Alert("Se va crear una nueva cotización. ¿Requiere que se actualicen a los precios actuales?", TipoMensaje.MsgDosBotones, "BtnCreaApartirDePrecioNuevo()", TextoConfirmacion:="Si", TextoSegundoBoton:="No", JSBtn2:="BtnCreaApartirDePrecioOriginal()", ShowCloseButton:=False)
+            Alert("Se va crear una nueva cotización. ¿Requiere que se actualicen a los precios actuales?", TipoMensaje.MsgDosBotones, "BtnCreaApartirDePrecioOriginal()", TextoConfirmacion:="No", TextoSegundoBoton:="Si", JSBtn2:="BtnCreaApartirDePrecioNuevo()", ShowCloseButton:=False)
         Else
             CreaAPartirDe(False)
         End If
@@ -36113,7 +36113,7 @@ Partial Class Ventas
 
         If RecargaPrecios Then
             Dim CvePrecioListaSugerido As Integer = Me.CvePrecioListaCliente
-            If CvePrecioListaCliente <= 0 Then
+            If CvePrecioListaSugerido <= 0 Then
                 CvePrecioListaSugerido = GlobalDTPrecioListas(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "Predeterminada = 'True'").ToEntero()
             End If
             RecalculaPrecios(False, AplicarPromociones:=False, AplicarDescuentoGlobal:=False, CvePrecioListaSugerido:=CvePrecioListaSugerido)