From 437f5b88949a4f83c0170a8f3aa52a6f1f3ba640 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Mon, 2 Dec 2024 03:33:21 -0700
Subject: [PATCH] validacion en manifiesto venta agrojam

---
 App_Code/ClsNominas.vb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index e65a5ad75..da4c880b2 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -298,7 +298,19 @@ Public Class ClsNominas
             SqlAdapter.Fill(DTSet)
             If DTSet.Tables.Count > 0 Then
                 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
+
             retorno = True
         Catch Ex1 As SqlException