diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index c4b2b01bc..0792aa609 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -4160,14 +4160,15 @@ Public Class ClsGenerales
     End Function
 
 
-    Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer) As Boolean
+    Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer, Optional ValidaEntrega As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
+            .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
+            .Add("@ValidaEntrega", SqlDbType.Bit).Value = ValidaEntrega
         End With
 
         Try