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

Proveedores Abonar correcion saldado, proveedores correccion cuentas bancarias agregar alcreear proveedor

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-25 08:31:18 -07:00
parent 7c8a589281
commit d0bd171824
3 changed files with 60 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Compras/Proveedores.aspx.vb
View File

@@ -3123,15 +3123,22 @@ Partial Class Compras_Proveedores
Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
End If
ObjCuentasBancos.Dispose()
End If
Else
If CveProveedor < 0 Then
'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
TempDTCuentasBancos = DTCuentasBancos.Clone
'SE USA CUANDO SE REGISTRA UN PROVEEDOR NUEVO
'ESTE ELSE ES PARA OBTENER LA ESTRUCTURA DE LA TABLA
Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos(0, CveEmpresa:=-2) Then
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
Else
Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
End If
ObjCuentasBancos.Dispose()
End If
TempDTCuentasBancos = DTCuentasBancos.Clone
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
End Sub