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 If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If End If
ObjCuentasBancos.Dispose() 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 If GvProveedores.Rows(i).FCCheckBox("CheckAgregar").Checked = True Then
DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = {0}", GvProveedores.Rows(i).DataKey("CveProveedor"))) 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 DTProveedorBancos = ObjCuentasBancos.DtResultados
RowBanco = DTProveedorBancos.Rows(0) RowBanco = DTProveedorBancos.Rows(0)
Else Else
@@ -319,7 +319,7 @@ Partial Class Bancos_MovimientosBancarios
DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114")) DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114"))
If ObjCuentasBancos.GetCuentasDepositos(21114) Then If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21114) Then
DTProveedorBancos = ObjCuentasBancos.DtResultados DTProveedorBancos = ObjCuentasBancos.DtResultados
RowBanco = DTProveedorBancos.Rows(0) RowBanco = DTProveedorBancos.Rows(0)
Else Else

18
Ventas/Clientes.aspx.vb
View File

@@ -5983,7 +5983,7 @@ Partial Class Clientes
#Region "C U E N T A S - B A N C A R I A S" #Region "C U E N T A S - B A N C A R I A S"
Private Sub CargaCuentasBancarias() Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
If CveCliente <= 0 Then Exit Sub If CveCliente <= 0 Then Exit Sub
@@ -6004,9 +6004,8 @@ Partial Class Clientes
End If End If
ObjCuentasBancos.Dispose() ObjCuentasBancos.Dispose()
CargaPSGridCuentasBancos() CargaPSGridCuentasBancos()
RecargaGlobalCuentasBancarias()
CargaMonedas() CargaMonedas()
End Sub End Sub
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
@@ -6208,13 +6207,10 @@ Partial Class Clientes
RecargaGlobalCuentasBancarias() RecargaGlobalCuentasBancarias()
End Sub End Sub
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
If CveCliente > 0 Then If CveCliente > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
If ObjCuentasBancos.GetCuentasDepositos() Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If
ObjCuentasBancos.Dispose()
End If End If
End Sub End Sub