diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 7d53118dc..c932404b9 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -5515,12 +5515,13 @@ Public Class ClsInventarios
 #End Region
 
 #Region "Camiones"
-    Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/vwd.webinfo b/vwd.webinfo
index af2a2c734..4147d19b6 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -402,6 +402,8 @@
     
   
     
+  
+