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

-- mejoras en globalDT

Browse Source
This commit is contained in:
rrene
2023-02-19 20:13:24 -07:00
parent 5f7d3d4c4b
commit 1afd8aa281
13 changed files with 145 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Compras/Proveedores.aspx.vb
View File

@@ -3560,22 +3560,19 @@ Partial Class Compras_Proveedores
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
End If
If ObjCuentasBancos.GetCuentasDepositos Then
GlobalDTProveedoresCuentas(CveProveedor, True) = ObjCuentasBancos.DtResultados
End If
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
ObjCuentasBancos.Dispose()
RecargaGlobalCuentasBancarias()
End Sub
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
'Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If
ObjCuentasBancos.Dispose()
'If ObjCuentasBancos.GetCuentasDepositos() Then
' GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1, True) = ObjCuentasBancos.DtResultados
'End If
'ObjCuentasBancos.Dispose()
End If
End Sub