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

.gitignore

@@ -10,3 +10,118 @@
 /LogMail.txt
 /.vs
 /packages
+/Temp/637019018406489106-FormatoPS (1).xlsx
+/Temp/637025911245561139-FormatoAlmacenTest2.xlsx
+/Temp/637025910298823073-FormatoAlmacenTest2.xlsx
+/Temp/637025890843842072-FormatoAlmacenTest.xlsx
+/Temp/637025890070124286-FormatoAlmacenTest.xlsx
+/Temp/637025889649837823-FormatoAlmacenTest.xlsx
+/Temp/637025888979809566-FormatoAlmacenTest.xlsx
+/Temp/637025888317991027-FormatoAlmacenTest.xlsx
+/Temp/637025886969280729-FormatoAlmacenTest.xlsx
+/Temp/637025883478481189-FormatoAlmacenTest.xlsx
+/Temp/637025881893726971-FormatoAlmacenTest.xlsx
+/Temp/637025875318390368-FormatoAlmacenTest.xlsx
+/Temp/637025873461693799-FormatoAlmacenTest.xlsx
+/Temp/637025867243299753-FormatoAlmacenTest.xlsx
+/Temp/637025866028329141-FormatoAlmacenTest.xlsx
+/Temp/637025858967837880-FormatoAlmacen (8).xlsx
+/Temp/637025856623805153-FormatoAlmacenTest.xlsx
+/Temp/637025854225974598-FormatoAlmacenTest.xlsx
+/Temp/637025850746443741-FormatoAlmacenTest.xlsx
+/Temp/637025849906896827-FormatoAlmacenTest.xlsx
+/Temp/637025811751064573-FormatoAlmacen (9).xlsx
+/Temp/637025802306385270-FormatoAlmacen (9).xlsx
+/Temp/637024955677385188-FormatoAlmacen (8).xlsx
+/Temp/637024223339157610-FormatoAlmacen (8).xlsx
+/Temp/637024211080831453-FormatoAlmacen (8).xlsx
+/Temp/637024208748075824-FormatoAlmacen (8).xlsx
+/Temp/637024206124827330-FormatoAlmacen (8).xlsx
+/Temp/637024198603668842-FormatoAlmacen (8).xlsx
+/Temp/637024194937999485-FormatoAlmacen (8).xlsx
+/Temp/637024187194477421-FormatoAlmacen (8).xlsx
+/Temp/637024175396114926-FormatoAlmacen(1).xlsx
+/Temp/637024174152414578-FormatoAlmacen(1).xlsx
+/Temp/637024172516905613-FormatoAlmacen(1).xlsx
+/Temp/637024172339379953-FormatoAlmacen(1).xlsx
+/Temp/637024168678743644-FormatoAlmacen(1).xlsx
+/Temp/637024167899990250-FormatoAlmacen(1).xlsx
+/Temp/637024163796303799-FormatoAlmacen(1).xlsx
+/Temp/637024162382548932-FormatoAlmacen(1).xlsx
+/Temp/637024154734150595-FormatoAlmacen(1).xlsx
+/Temp/637024152618695056-FormatoAlmacen(1).xlsx
+/Temp/637024129146071459-FormatoAlmacen(1).xlsx
+/Temp/637024111695874769-FormatoAlmacen(1).xlsx
+/Temp/637022418959236013-FormatoAlmacen (4).xlsx
+/Temp/637022412610855769-FormatoAlmacen (4).xlsx
+/Temp/637022411585353362-FormatoAlmacen (4).xlsx
+/Temp/637022404788752537-FormatoAlmacen (3).xlsx
+/Temp/637022403501450734-FormatoAlmacen (3).xlsx
+/Temp/637022402924630398-FormatoAlmacen (3).xlsx
+/Temp/637022401250489074-FormatoAlmacen (5).xlsx
+/Temp/637022398545213986-FormatoAlmacen (3).xlsx
+/Temp/637022382214133336-FormatoAlmacen (5).xlsx
+/Temp/637022380557097080-FormatoAlmacen (5).xlsx
+/Temp/637022379412790662-FormatoAlmacen (5).xlsx
+/Temp/637022378793902185-FormatoAlmacen (5).xlsx
+/Temp/637021654534481890-FormatoAlmacen (3).xlsx
+/Temp/637021651345315739-FormatoAlmacen (3).xlsx
+/Temp/637021616508913486-FormatoAlmacen (3).xlsx
+/Temp/637021593875864770-FormatoAlmacen (3).xlsx
+/Temp/637021592631992296-FormatoAlmacen (3).xlsx
+/Temp/637021592488982043-FormatoAlmacen (3).xlsx
+/Temp/637021560097934922-FormatoAlmacen (3).xlsx
+/Temp/637021554559110062-FormatoPS (1).xlsx
+/Temp/637021550053083909-FormatoAlmacen (3).xlsx
+/Temp/637021547214247040-FormatoAlmacen (3).xlsx
+/Temp/637021545638924577-FormatoAlmacen (3).xlsx
+/Temp/637021527971651311-FormatoAlmacen (3).xlsx
+/Temp/637021527073950270-FormatoAlmacen (3).xlsx
+/Temp/637021526064707043-FormatoAlmacen (3).xlsx
+/Temp/637021522586485282-FormatoAlmacen (3).xlsx
+/Temp/637021521403851473-FormatoAlmacen (3).xlsx
+/Temp/637021519837377736-FormatoAlmacen (3).xlsx
+/Temp/637021515778751967-FormatoAlmacen (3).xlsx
+/Temp/637020728341171393-FormatoAlmacen (2).xlsx
+/Temp/637020724850629405-FormatoAlmacen (2).xlsx
+/Temp/637020723186758192-FormatoAlmacen (2).xlsx
+/Temp/637020721382428289-FormatoAlmacen (2).xlsx
+/Temp/637019818530193505-FormatoPS (1).xlsx
+/Temp/637019811169546741-FormatoPS (1).xlsx
+/Temp/637019803848526814-FormatoPS (1).xlsx
+/Temp/637019796396388291-FormatoPS (1).xlsx
+/Temp/637019783731773074-FormatoPS (1).xlsx
+/Temp/637019781961714106-FormatoPS (1).xlsx
+/Temp/637019780290041928-FormatoPS (1).xlsx
+/Temp/637019777705293557-FormatoPS (1).xlsx
+/Temp/637019766664551609-FormatoPS (1).xlsx
+/Temp/637019765307733182-FormatoPS (1).xlsx
+/Temp/637019764041447352-FormatoPS (1).xlsx
+/Temp/637019759922681271-FormatoPS (1).xlsx
+/Temp/637019028539049368-FormatoPS (1).xlsx
+/Temp/637019027752495331-FormatoPS (1).xlsx
+/Temp/637019026870914833-FormatoPS (1).xlsx
+/Temp/637019020024023961-FormatoPS (1).xlsx
+/Temp/637019018783282466-FormatoPS (1).xlsx
+/Temp/637025921934403738-FormatoAlmacen (4)(1).xlsx
+/Temp/637025871940254054-FormatoAlmacenTest.xlsx
+/Temp/637025819297716436-FormatoAlmacen (9).xlsx
+/Temp/637025813094826506-FormatoAlmacen (9).xlsx
+/Temp/637025803627482072-FormatoAlmacen (9).xlsx
+/Temp/637024210197949659-FormatoAlmacen (8).xlsx
+/Temp/637024207387517397-FormatoAlmacen (8).xlsx
+/Temp/637024203939520361-FormatoAlmacen (8).xlsx
+/Temp/637024200918571845-FormatoAlmacen (8).xlsx
+/Temp/637024199786848948-FormatoAlmacen (8).xlsx
+/Temp/637024188637374314-FormatoAlmacen (8).xlsx
+/Temp/637024170730017118-FormatoAlmacen(1).xlsx
+/Temp/637024164939543846-FormatoAlmacen(1).xlsx
+/Temp/637024164072145623-FormatoAlmacen(1).xlsx
+/Temp/637024156159485931-FormatoAlmacen(1).xlsx
+/Temp/637024153420640718-FormatoAlmacen(1).xlsx
+/Temp/637024148711869965-FormatoAlmacen(1).xlsx
+/Temp/637022414752610497-FormatoAlmacen (4).xlsx
+/Temp/637021629396074854-FormatoAlmacen (3).xlsx
+/Temp/637021627402424201-FormatoAlmacen (3).xlsx
+/Temp/637021547606916146-FormatoAlmacen (3).xlsx
+/Temp/637021529455078900-FormatoAlmacen (3).xlsx

App_Code/ClsVentas.vb

@@ -75,6 +75,7 @@ Public Class ClsVentas
     Public Sub RollBack()
         SqlTransacc.Rollback()
     End Sub
+    Private CveConexion As Integer = 0
     Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
 
         If TransaccionCompartida Is Nothing Then
@@ -82,6 +83,7 @@ Public Class ClsVentas
             SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
             Try
                 SqlConexion.Open()
+                ConexionAdd()
             Catch ex As Exception
                 OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
             End Try
@@ -102,6 +104,45 @@ Public Class ClsVentas
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsVentas',{0})", HttpContext.Current.Request.Url.Authority), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+            With SqlAdapter.SelectCommand.Parameters
+
+                .Add("@CveConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+            End With
+
+            Try
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@Opcion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE WHERE CveConexion = ", CveConexion), CommandType.Text)
+
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
+
     Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGet")

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