From aa32426f1a9d6f873ed85f504f41f395de3aa600 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 22 May 2023 11:48:45 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20en=20carga=20de=20PS?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/CatPS.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb
index 8ec3004dd..9117583ba 100644
--- a/Ventas/CatPS.aspx.vb
+++ b/Ventas/CatPS.aspx.vb
@@ -406,7 +406,7 @@ Partial Class CatPS
                             Dim CodigoPSAdicional As String = dr("CodigoProductoAdicional").ToString.Trim
                             Dim Cantidad As Integer = dr("CantidadFija").ToString.ToEntero
                             msgg = GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1)
-                            If GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1) <> "" Then
+                            If msgg <> "" Then
                                 ErrorExcel = True
                                 strNoCargados.AppendFormat(" {0}  <br/>", msgg)
                                 Exit For