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