From c8ec977ee34de36ea49d0aa238c431769c1372ef Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 23 Jun 2021 11:24:51 -0700
Subject: [PATCH] Actualizar precios mediante globaldtsimplificado

---
 Ventas/ActualizarPrecios.aspx.vb  | 2 +-
 Ventas/ProductosServicios.aspx.vb | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

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