From 16965c028313fca0412fa86bc69649f4a08d3ad7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 24 Jan 2022 08:43:20 -0700
Subject: [PATCH] =?UTF-8?q?--=20filtro=20cvetipocami=C3=B3n.=20en=20getcam?=
 =?UTF-8?q?iones?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsInventarios.vb | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 7d53118dc..80f566d0c 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -5514,13 +5514,23 @@ 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)
@@ -5623,6 +5633,13 @@ Public Class ClsInventarios
     End Function
 #End Region
 
+
+
+
+
+
+
+
     Public Function GetExistenciasMedRin(CvePS As Integer, CveEmpresa As Integer, CveRinTamaño As Integer, CveMedida As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ExistenciaMedRinGet")