From f8f8de7d89e41c95475bb227b0a37aab45962c19 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 30 Aug 2019 17:55:46 -0500 Subject: [PATCH] Cuentas Bancarias se modifico el combo para prevenir datos duplicados, ClsVentas se agrega los metodos de registro de conexioens --- .gitignore | 115 +++++++++++++++++++++++++ App_Code/ClsVentas.vb | 41 +++++++++ Bancos/CuentasBancariasDetalle.aspx.vb | 24 +++++- 3 files changed, 179 insertions(+), 1 deletion(-) diff --git a/.gitignore b/.gitignore index b14cc0feb..e3e70ef3d 100644 --- a/.gitignore +++ b/.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 diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 9f55d50e7..8d5a5a673 100644 --- a/App_Code/ClsVentas.vb +++ b/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") diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index aa6c11579..e4404f849 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/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