diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 23e5c4df8..a95238a33 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13777,7 +13777,7 @@ Partial Class Ventas
                     If TipoPrecioLista = 10 Then
 
                         CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
-                        If CvePrecioListaPS = 0 Then
+                        If CvePrecioListaPS <= 0 Then
 
                             CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
 
@@ -13786,7 +13786,7 @@ Partial Class Ventas
                     Else
 
                         CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
-                        If CvePrecioListaPS = 0 Then
+                        If CvePrecioListaPS <= 0 Then
 
                             CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()