-- corrección en carga de PS

2023-05-22 11:48:45 -07:00
parent 6f43f28222
commit aa32426f1a
1 changed files with 1 additions and 1 deletions
--- 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