From d14887b5c35fd8c053a4d4a5e73b83e070a62c05 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 3 May 2024 15:43:30 -0700
Subject: [PATCH] --BDH. Validacion de recolecciones

subir:
--PA_Inv_EntregaAlmacenRutaDetalleGet
---
 Inventarios/EntradasSalidas.aspx.vb | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 7f1804feb..d89dcfd47 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1781,6 +1781,25 @@ Partial Class Inventarios_EntradasSalidas
             Exit Sub
         End If
 
+        If CveMovimiento <= 0 Then
+            If Request("CveEntregaAlmacen") IsNot Nothing AndAlso Request("CveEntregaAlmacen").ToString.ToEntero > 0 Then
+                Dim TieneRegistros As Boolean = False
+
+                Dim ObjGenerales As New ClsGenerales()
+                If ObjGenerales.GetEntregaAlmacenRutaDetalle(Request("CveEntregaAlmacen").ToString.ToEntero, ValidaEntrega:=True) Then
+                    If ObjGenerales.DtResultados.Rows.Count = 0 Then
+                        TieneRegistros = True
+                    End If
+                End If
+                ObjGenerales.Dispose()
+
+                If TieneRegistros Then
+                    Alert("La recolección ya ha sido realizada.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            End If
+        End If
+
         If GvM.Rows.Count > 0 Then
 
             'Dim CveMovimiento As Integer