Cuentas Bancarias se modifico el combo para prevenir datos duplicados, ClsVentas se agrega los metodos de registro de conexioens

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -33,7 +33,8 @@ Partial Class Bancos_CuentasBancariasDetalle
             CargarMoneda()
             ViewState("DTUsuarios") = Nothing
 
-            DdlUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
+            Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
+            DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux)
             DdlUsuarios.DataBind()
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
@@ -678,6 +679,27 @@ Partial Class Bancos_CuentasBancariasDetalle
         End If
     End Sub
 
+    Private Function CargarDdlUsuarios(UsuariosGlobal As DataTable) As DataTable
+        Dim tablaUsuariosFormateada As DataTable = New DataTable("Usuarios")
+
+        Dim columnaNombre As DataColumn = New DataColumn("Nombre")
+        columnaNombre.DataType = System.Type.GetType("System.String")
+        Dim columnaCveUsuario As DataColumn = New DataColumn("CveUsuario")
+        columnaCveUsuario.DataType = System.Type.GetType("System.String")
+
+        tablaUsuariosFormateada.Columns.Add(columnaNombre)
+        tablaUsuariosFormateada.Columns.Add(columnaCveUsuario)
+
+        For Each eachRegistro As DataRow In UsuariosGlobal.Rows
+            Dim renglonAux As DataRow = tablaUsuariosFormateada.NewRow()
+
+            renglonAux.Item("Nombre") = $"{eachRegistro.Item("Nombre")}({eachRegistro.Item("Usuario")})"
+            renglonAux.Item("CveUsuario") = eachRegistro.Item("CveUsuario")
+
+            tablaUsuariosFormateada.Rows.Add(renglonAux)
+        Next
+        Return tablaUsuariosFormateada
+    End Function
 #End Region
 
 End Class