From 16eabbea8bc8e4991ba9ab18e9739955ef1a8a8c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 11 Feb 2021 15:16:49 -0700
Subject: [PATCH] -- parametro de empresa, en entregaalmacen

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

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 0fd71e90d..c4c0b3881 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -2918,11 +2918,12 @@ Public Class ClsInventarios
 #End Region
 
 #Region "  INVENTARIOS - VENTAS  "
-    Public Function EntregaAlmacenGet(CveVenta As Integer) As Boolean
+    Public Function EntregaAlmacenGet(CveVenta As Integer, Optional CveAlmacen As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_EntregaAlmacenGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
         End With
         Try
             SqlAdapter.Fill(Data)