Commit inicial Ventas Productivo

Bancos/OtrosIngresos.aspx.vb

@@ -0,0 +1,37 @@
+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)
+        DdlCuenta.DataBind()
+        DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+    Private Sub CargarTipoTransaccion()
+        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones
+        DdlTipoTransaccion.DataBind()
+    End Sub
+End Class
+
+
+