diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb
index b26f69ee9..ca172e5ec 100644
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -559,7 +559,7 @@ Partial Class Ventas_ActualizarPrecios
 
             For Each Franquicia In Franquicias
                 Dim CveFranquicia As Integer = Franquicia.ToEntero
-                Dim CvePS As Integer = GlobalDTPS(CveFranquicia, Codigo:=Codigo.ToUpper).FiltroPrimeroValor("CvePS", "").ToEntero
+                Dim CvePS As Integer = GlobalDTPSSimplificado(CveFranquicia, Codigo:=Codigo).FiltroPrimeroValor("CvePS", "").ToEntero
                 Dim CvePrecioLisa As Integer = GlobalDTPrecioListas(CveFranquicia).FiltroPrimeroValor("CvePrecioLista", String.Format("PrecioLista = '{0}'", PrecioLista)).ToEntero
 
                 If CvePS <= 0 Then
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index c6adff94b..8583d5742 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2944,7 +2944,10 @@ Partial Class ProductosyServicios
                     Return True
                 End If
             End If
+
+            GlobalDTPSSimplificado(CveEmpresaFranquicia) = Nothing
         Next
+
         Return False
     End Function