AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- parametro de empresa, en entregaalmacen

Browse Source
This commit is contained in:
rrene
2021-02-11 15:16:49 -07:00
parent d3e892d8cd
commit 16eabbea8b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -2918,11 +2918,12 @@ Public Class ClsInventarios
#End Region #End Region
#Region " INVENTARIOS - VENTAS " #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 Dim Retorno As Boolean = False
DataAdapter("PA_Inv_EntregaAlmacenGet") DataAdapter("PA_Inv_EntregaAlmacenGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)