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

reparando error lógico

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-10-08 21:35:42 -07:00
parent b6a39da986
commit 145e805b12
1 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Compras.aspx.vb
View File

@@ -20211,6 +20211,7 @@ Partial Class Compras_Compras
CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual) CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
Next Next
If CvePSGRuposAux.Length > 0 Then
Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1) 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))
@@ -20229,6 +20230,7 @@ Partial Class Compras_Compras
Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia) Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
Return False Return False
End If End If
End If
Return True Return True