From 7b0af00c25bdc7753646c1b7ae75843b3ad075d1 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 3 May 2024 15:45:31 -0700 Subject: [PATCH] --clase validacion de recoleecion --- App_Code/ClsGenerales.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index c4b2b01bc..0792aa609 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -4160,14 +4160,15 @@ Public Class ClsGenerales End Function - Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer) As Boolean + Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer, Optional ValidaEntrega As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen + .Add("@ValidaEntrega", SqlDbType.Bit).Value = ValidaEntrega End With Try