--BDH. Validacion de recolecciones

subir:
--PA_Inv_EntregaAlmacenRutaDetalleGet

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