AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- corrección en carga de PS

Browse Source
This commit is contained in:
rrene
2023-05-22 11:48:45 -07:00
parent 6f43f28222
commit aa32426f1a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/CatPS.aspx.vb
View File

@@ -406,7 +406,7 @@ Partial Class CatPS
Dim CodigoPSAdicional As String = dr("CodigoProductoAdicional").ToString.Trim Dim CodigoPSAdicional As String = dr("CodigoProductoAdicional").ToString.Trim
Dim Cantidad As Integer = dr("CantidadFija").ToString.ToEntero Dim Cantidad As Integer = dr("CantidadFija").ToString.ToEntero
msgg = GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1) msgg = GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1)
If GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1) <> "" Then If msgg <> "" Then
ErrorExcel = True ErrorExcel = True
strNoCargados.AppendFormat(" {0} <br/>", msgg) strNoCargados.AppendFormat(" {0} <br/>", msgg)
Exit For Exit For