Actualizar precios mediante globaldtsimplificado

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

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