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

-globaldtcuentas despostios

Browse Source
This commit is contained in:
rrene
2020-06-18 21:25:32 -07:00
parent 28eba630e3
commit 98e1d6f97f
3 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/IE.aspx.vb
View File

@@ -4742,7 +4742,7 @@ Partial Class Bancos_IE
If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then
If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If
ObjCuentasBancos.Dispose()

4
Bancos/MovimientosBancarios.aspx.vb
View File

@@ -151,7 +151,7 @@ Partial Class Bancos_MovimientosBancarios
If GvProveedores.Rows(i).FCCheckBox("CheckAgregar").Checked = True Then
DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = {0}", GvProveedores.Rows(i).DataKey("CveProveedor")))
If ObjCuentasBancos.GetCuentasDepositos(21109) Then
If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21109) Then
DTProveedorBancos = ObjCuentasBancos.DtResultados
RowBanco = DTProveedorBancos.Rows(0)
Else
@@ -319,7 +319,7 @@ Partial Class Bancos_MovimientosBancarios
DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114"))
If ObjCuentasBancos.GetCuentasDepositos(21114) Then
If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21114) Then
DTProveedorBancos = ObjCuentasBancos.DtResultados
RowBanco = DTProveedorBancos.Rows(0)
Else