From 4a39fb0084ed666eddcb286783750eb034c5e364 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Apr 2022 13:32:07 -0700 Subject: [PATCH] -- estaus de camiones --- App_Code/ClsInventarios.vb | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4a306f502..00613e593 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5545,22 +5545,15 @@ Public Class ClsInventarios #End Region - - - - - - - - #Region "Camiones" - Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean + Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1, Optional Estatus 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 + .Add("@Estatus", SqlDbType.Int).Value = Estatus End With Try SqlAdapter.Fill(Data)