--clase validacion de recoleecion

2024-05-03 15:45:31 -07:00
parent d14887b5c3
commit 7b0af00c25
1 changed files with 3 additions and 2 deletions
--- 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