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

-- filtro de empresa, en proveedoresbancos

Browse Source
This commit is contained in:
rrene
2024-11-28 20:30:08 -07:00
parent 765bb6dd6a
commit f5ad4e8548
1 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsMovimientos.vb
View File

@@ -649,12 +649,10 @@ Public Class ClsMovimientos
OnError("Ocurrió un error al consultar las CxP del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al consultar las CxP del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetProveedorBancos(CveProveedor As Integer, Optional CveMoneda As Integer = -1, Optional FechaVencimientoInicio As String = "-1", Optional FechaVencimientoFin As String = "-1", Optional CveUsuarioProgramo As Integer = -1, Optional CveProveedorSucursal As Integer = -1, Optional SelectTop As Integer = -1) As Boolean Public Function GetProveedorBancos(CveProveedor As Integer, CveEmpresa As Integer, Optional CveMoneda As Integer = -1, Optional FechaVencimientoInicio As String = "-1", Optional FechaVencimientoFin As String = "-1", Optional CveUsuarioProgramo As Integer = -1, Optional CveProveedorSucursal As Integer = -1, Optional SelectTop As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ProveedorBancos") DataAdapter("PA_Comp_ProveedorBancos")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -664,10 +662,10 @@ Public Class ClsMovimientos
.Add("@CveUsuarioProgramo", SqlDbType.Int).Value = CveUsuarioProgramo .Add("@CveUsuarioProgramo", SqlDbType.Int).Value = CveUsuarioProgramo
.Add("@CveProveedorSucursal", SqlDbType.VarChar).Value = CveProveedorSucursal .Add("@CveProveedorSucursal", SqlDbType.VarChar).Value = CveProveedorSucursal
.Add("@CveMoneda", SqlDbType.SmallInt).Value = CveMoneda .Add("@CveMoneda", SqlDbType.SmallInt).Value = CveMoneda
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@SelectTop", SqlDbType.Int).Value = SelectTop .Add("@SelectTop", SqlDbType.Int).Value = SelectTop
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -675,8 +673,6 @@ Public Class ClsMovimientos
OnError("Ocurrió un error al consultar las CxP del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al consultar las CxP del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function