38 lines
991 B
VB.net
38 lines
991 B
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports System.Linq
|
|
Imports Extensiones
|
|
|
|
Partial Class Bancos_OtrosIngresos
|
|
Inherits ClsPaginas
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
CargaCuentas()
|
|
CargaAcreedor()
|
|
CargarTipoTransaccion()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaAcreedor()
|
|
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
DdlProveedor.DataBind()
|
|
End Sub
|
|
Private Sub CargaCuentas()
|
|
'DdlCuenta.Items.Clear()
|
|
|
|
DdlCuenta.DataSource = GlobalDTBancosCuentas(1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlCuenta.DataBind()
|
|
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
Private Sub CargarTipoTransaccion()
|
|
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones
|
|
DdlTipoTransaccion.DataBind()
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
|