diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9fe195a53..4dfcdcd4f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -10619,7 +10619,7 @@ Partial Class Clientes
         End If
 
         Dim ObjVentas As New ClsVentas(transaccionSQL)
-        Dim CvePrecioListaNuevo As Integer = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, False, 0, CvePrecioListaClonar:=CvePrecioListaClonar)
+        Dim CvePrecioListaNuevo As Integer = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, False, False, 0, CvePrecioListaClonar:=CvePrecioListaClonar)
 
         If Not CvePrecioListaNuevo > 0 Then
             respuesta = False
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e571f3701..5d94a92a9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3731,6 +3731,20 @@ Partial Class Ventas
 
         UpPS.Update()
     End Sub
+
+    Private Sub CargaListasPreciosSubProyectos()
+        'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(360) = "1" Then
+        '    DivPrecioLista.Visible = True
+        '    Using ObjVta As New ClsVentas
+        '        If ObjVta.GetPreciosListaSPPermitidos(DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+        '            Dim Dt = ObjVta.DtResultados.Copy()
+        '            DdlPrecioLista.DataSource = Dt
+        '            DdlPrecioLista.SelectedValue = Dt.FiltroPrimeroValor("CvePrecioLista", "Predeterminada = 'True'")
+        '        End If
+        '    End Using
+        '    UpPS.Update()
+        'End If
+    End Sub
     Private Sub BloqueaClasificaciones()
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
             DdlClasificacion.Enabled = False
@@ -18550,6 +18564,8 @@ Partial Class Ventas
             DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
         End If
 
+        CargaListasPreciosSubProyectos()
+
         UpDetalle.Update()
         UpEmitirTransitorio.Update()
     End Sub