diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 77f4301c1..10c90cc59 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -3910,7 +3910,7 @@ Public Class ClsGenerales
 
     Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String,
                                              FolioReferencia As String, Referencia As String, FechaLimite As Date, Orden As Integer, Estatus As Integer, Distancia As Integer, Optional CveConfigAutoTransporte As Integer = -1,
-                                             Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1) As Integer
+                                             Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional CveCliente As Integer = -1) As Integer
         Dim Retorno As Integer = -1
         DataAdapter("PA_Inv_EntregaAlmacenRutaAdd")
 
@@ -3936,6 +3936,7 @@ Public Class ClsGenerales
             .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1
             .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2
             .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
 
             .Add("@CveEntregaAlmacen", SqlDbType.Int).Direction = ParameterDirection.Output
         End With