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

validacion en manifiesto venta agrojam

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-12-02 03:33:21 -07:00
parent bfb713d3d0
commit 437f5b8894
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
App_Code/ClsNominas.vb
View File

@@ -298,7 +298,19 @@ Public Class ClsNominas
SqlAdapter.Fill(DTSet) SqlAdapter.Fill(DTSet)
If DTSet.Tables.Count > 0 Then If DTSet.Tables.Count > 0 Then
Data = DTSet.Tables(0) Data = DTSet.Tables(0)
If DTSet.Tables.Count > 1 AndAlso DTSet.Tables(1).Rows.Count > 0 Then
Dim errormsg As String = "Se han detectado cultivos ("
Dim coma As String = ""
For Each row As DataRow In DTSet.Tables(1).Rows
errormsg = String.Format("{0}{1} {2}", errormsg, coma, row("Cultivo"))
coma = ","
Next
errormsg = String.Format("{0} ) que no tienen un producto vinculado. Por favor, revise el catálogo de cultivos para completar la información.", errormsg)
Alert(errormsg, TipoMensaje.MsgAdvertencia)
End If
End If End If
retorno = True retorno = True
Catch Ex1 As SqlException Catch Ex1 As SqlException