-- parametro usuario en recepcion entrega

This commit is contained in:
rrene
2020-08-14 21:27:44 -07:00
parent fa0ce1324f
commit b5f928d125

View File

@@ -2751,7 +2751,7 @@ Public Class ClsInventarios
Return Retorno
End Function
Public Function ComprasPendientesAlmacenGet(CveProveedor As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean
Public Function ComprasPendientesAlmacenGet(CveProveedor As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ComprasPendientesAlmacenGet")
@@ -2759,6 +2759,7 @@ Public Class ClsInventarios
With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With