diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 90c5be8f7..9319c5d1e 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -3984,7 +3984,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, FechaLlegada As DateTime, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_EntregaAlmacenRutaAsignar")
 
@@ -3992,6 +3992,7 @@ Public Class ClsGenerales
             .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
             .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
             .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega
+            .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada
             .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa