From 145e805b1243b56a08ac5b665b06d843c5111501 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 8 Oct 2020 21:35:42 -0700
Subject: [PATCH] =?UTF-8?q?reparando=20error=20l=C3=B3gico?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7838361a3..47d1eb77c 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -20211,23 +20211,25 @@ Partial Class Compras_Compras
             CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
         Next
 
-        Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+        If CvePSGRuposAux.Length > 0 Then
+            Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
 
-        Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+            Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
 
-        Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
-        For Each PS As GridViewRow In GvPS.Rows
-            Dim PSIndividual As String = PS.DataKey("PS")
-            Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
-            If ClavePSSAT = "46920" Then
-                ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
+            Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+            For Each PS As GridViewRow In GvPS.Rows
+                Dim PSIndividual As String = PS.DataKey("PS")
+                Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
+                If ClavePSSAT = "46920" Then
+                    ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
+                End If
+            Next
+
+            If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+                Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+                Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+                Return False
             End If
-        Next
-
-        If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
-            Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
-            Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-            Return False
         End If
 
         Return True