reparando error lógico

Compras/Compras.aspx.vb

@@ -20211,6 +20211,7 @@ Partial Class Compras_Compras
             CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
         Next
 
+        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))
@@ -20229,6 +20230,7 @@ Partial Class Compras_Compras
                 Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
                 Return False
             End If
+        End If
 
         Return True