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