From cff37448245627b9d1138f63f80edc3a4686c290 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 18 Apr 2024 19:43:17 -0700 Subject: [PATCH] =?UTF-8?q?--=20preparaci=C3=B3n=20para=20cambio=20en=20re?= =?UTF-8?q?direccionamiento=20sobre=20la=20base=20de=20datos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsAC.vb | 2 +- App_Code/ClsAF.vb | 2 +- App_Code/ClsAIMMGM.vb | 2 +- App_Code/ClsAcarreos.vb | 2 +- App_Code/ClsBancos.vb | 2 +- App_Code/ClsBase.vb | 6 ++-- App_Code/ClsCGame.vb | 2 +- App_Code/ClsCRM.vb | 2 +- App_Code/ClsClaseBase.vb | 2 +- App_Code/ClsClasificaciones.vb | 2 +- App_Code/ClsClientes.vb | 2 +- App_Code/ClsCompEstatusFactura.vb | 2 +- App_Code/ClsCompProveedores.vb | 2 +- App_Code/ClsCompras.vb | 2 +- App_Code/ClsContabilidad.vb | 2 +- App_Code/ClsContratos.vb | 2 +- App_Code/ClsDesarrollo.vb | 2 +- App_Code/ClsEdoc.vb | 2 +- App_Code/ClsEdocumentacion.vb | 2 +- App_Code/ClsEncuestas.vb | 2 +- App_Code/ClsEsquemasComisiones.vb | 2 +- App_Code/ClsEstatusFactura.vb | 2 +- App_Code/ClsEventos.vb | 2 +- App_Code/ClsFISConfiguracion.vb | 2 +- App_Code/ClsFinanzas.vb | 2 +- App_Code/ClsFlotillas.vb | 2 +- App_Code/ClsGPS.vb | 2 +- App_Code/ClsGPSHerramientas.vb | 2 +- App_Code/ClsGenerales.vb | 2 +- App_Code/ClsGralFolios.vb | 2 +- ...lsGralProductosServiciosCaracteristicas.vb | 2 +- App_Code/ClsImpuestos.vb | 2 +- App_Code/ClsIndicadores.vb | 2 +- App_Code/ClsInventarios.vb | 2 +- App_Code/ClsLeyendasFiscales.vb | 2 +- App_Code/ClsMF.vb | 2 +- App_Code/ClsMetodosPagos.vb | 30 +++++++++---------- App_Code/ClsModulos.vb | 2 +- App_Code/ClsMonedas.vb | 2 +- App_Code/ClsMovimientos.vb | 2 +- App_Code/ClsNominas.vb | 4 +-- App_Code/ClsOC.vb | 2 +- App_Code/ClsOIEventos.vb | 2 +- App_Code/ClsOS.vb | 2 +- App_Code/ClsPV.vb | 2 +- App_Code/ClsPaginas.vb | 18 +++++++++-- App_Code/ClsPresupuestos.vb | 2 +- App_Code/ClsProductosServicios.vb | 4 +-- App_Code/ClsProsEncuestas.vb | 2 +- App_Code/ClsProspectos.vb | 2 +- App_Code/ClsProyectos.vb | 2 +- App_Code/ClsPruebasJJMQ.vb | 2 +- App_Code/ClsPuntoVenta.vb | 2 +- App_Code/ClsRH.vb | 2 +- App_Code/ClsRMA.vb | 2 +- App_Code/ClsRutas.vb | 2 +- App_Code/ClsSAT.vb | 2 +- App_Code/ClsSCTLicencias.vb | 4 +-- App_Code/ClsSeguimiento.vb | 2 +- App_Code/ClsSisEmpresas.vb | 4 +-- App_Code/ClsSisNotificaciones.vb | 2 +- App_Code/ClsSisParametros.vb | 2 +- App_Code/ClsSisProcesos.vb | 2 +- App_Code/ClsSisRoles.vb | 2 +- App_Code/ClsSisUsuarios.vb | 6 ++-- App_Code/ClsStiReports.vb | 2 +- App_Code/ClsSubProyectos.vb | 2 +- App_Code/ClsSucursales.vb | 2 +- App_Code/ClsSucursales.vb.exclude | 2 +- App_Code/ClsTemporal.vb | 2 +- App_Code/ClsTiposEventos.vb | 2 +- App_Code/ClsUnidadesMedida.vb | 4 +-- App_Code/ClsVentas.vb | 22 ++++++++++++-- App_Code/ClsVtaPromociones.vb | 2 +- App_Code/ClsVtaVendedores.vb | 4 +-- App_Code/Empresa.vb | 1 + LogIn.aspx.vb | 13 ++++---- MQ/ClsAF.vb | 2 +- 78 files changed, 141 insertions(+), 109 deletions(-) diff --git a/App_Code/ClsAC.vb b/App_Code/ClsAC.vb index 7cfe17261..947830fc4 100644 --- a/App_Code/ClsAC.vb +++ b/App_Code/ClsAC.vb @@ -41,7 +41,7 @@ Public Class ClsAC If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index a1197aa13..eb935027b 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -100,7 +100,7 @@ Public Class ClsAF If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsAIMMGM.vb b/App_Code/ClsAIMMGM.vb index 70a4b2ddb..e3521eb2a 100644 --- a/App_Code/ClsAIMMGM.vb +++ b/App_Code/ClsAIMMGM.vb @@ -50,7 +50,7 @@ Public Class ClsAIMMGM If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection SqlCommand = New SqlCommand("", SqlConexion) - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index e192b5e48..447932c3b 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -35,7 +35,7 @@ Public Class ClsAcarreos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 871e4c4b8..9e1e30aa8 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -176,7 +176,7 @@ Public Class ClsBancos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsBase.vb b/App_Code/ClsBase.vb index 88069ab6c..4092ccec9 100644 --- a/App_Code/ClsBase.vb +++ b/App_Code/ClsBase.vb @@ -35,7 +35,7 @@ Public Class ClsBase SqlConexion = New SqlConnection SqlAdapter = New SqlDataAdapter("", SqlConexion) sqlCommand = New SqlCommand("", SqlConexion) - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -48,11 +48,11 @@ Public Class ClsBase If SqlConexion Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB End If If SqlConexion.ConnectionString = "" Then - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB End If If SqlConexion.State <> ConnectionState.Open Then diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index bea872334..753dfe152 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -49,7 +49,7 @@ Public Class ClsCGame If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb index 866c58dfa..a0fb2d0c7 100644 --- a/App_Code/ClsCRM.vb +++ b/App_Code/ClsCRM.vb @@ -38,7 +38,7 @@ Public Class ClsCRM If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsClaseBase.vb b/App_Code/ClsClaseBase.vb index 026d983d0..b607febca 100644 --- a/App_Code/ClsClaseBase.vb +++ b/App_Code/ClsClaseBase.vb @@ -34,7 +34,7 @@ Public Class ClsClaseBase EsTransaccion = True Else SqlConexion = New SqlConnection() - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() SqlAdapter = New SqlDataAdapter("", SqlConexion) diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index bb1535594..fb2c585bf 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -40,7 +40,7 @@ Public Class ClsClasificaciones If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 0addaf0c1..5764b4f20 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -168,7 +168,7 @@ Public Class ClsClientes If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsCompEstatusFactura.vb b/App_Code/ClsCompEstatusFactura.vb index 1d25c41b5..6f5547957 100644 --- a/App_Code/ClsCompEstatusFactura.vb +++ b/App_Code/ClsCompEstatusFactura.vb @@ -36,7 +36,7 @@ Public Class ClsCompEstatusFactura If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index 51cb4c675..d30f714a2 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/App_Code/ClsCompProveedores.vb @@ -96,7 +96,7 @@ Public Class ClsCompProveedores If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index c3f151af4..83ee9fe20 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -56,7 +56,7 @@ Public Class ClsCompras If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 86a7d6533..9afc08dcc 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -94,7 +94,7 @@ Public Class ClsContabilidad If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 60795a215..a5899031b 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -63,7 +63,7 @@ Public Class ClsContratos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsDesarrollo.vb b/App_Code/ClsDesarrollo.vb index d796cb2cb..7095490ea 100644 --- a/App_Code/ClsDesarrollo.vb +++ b/App_Code/ClsDesarrollo.vb @@ -36,7 +36,7 @@ Public Class ClsDesarrollo Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsEdoc.vb b/App_Code/ClsEdoc.vb index 82e6cf1e7..9e05e4671 100644 --- a/App_Code/ClsEdoc.vb +++ b/App_Code/ClsEdoc.vb @@ -92,7 +92,7 @@ Public Class ClsEdoc #End Region Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb index d9ea682f3..d2f56e68f 100644 --- a/App_Code/ClsEdocumentacion.vb +++ b/App_Code/ClsEdocumentacion.vb @@ -47,7 +47,7 @@ Public Class ClsEdocumentacion If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb index d7a8e0a51..061eb3349 100644 --- a/App_Code/ClsEncuestas.vb +++ b/App_Code/ClsEncuestas.vb @@ -31,7 +31,7 @@ Public Class ClsEncuestas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() ConexionAdd() diff --git a/App_Code/ClsEsquemasComisiones.vb b/App_Code/ClsEsquemasComisiones.vb index c5343c3af..4f1197bb7 100644 --- a/App_Code/ClsEsquemasComisiones.vb +++ b/App_Code/ClsEsquemasComisiones.vb @@ -51,7 +51,7 @@ Public Class ClsEsquemasComisiones If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsEstatusFactura.vb b/App_Code/ClsEstatusFactura.vb index 11c8ad64a..6a02b1340 100644 --- a/App_Code/ClsEstatusFactura.vb +++ b/App_Code/ClsEstatusFactura.vb @@ -36,7 +36,7 @@ Public Class ClsEstatusFactura If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsEventos.vb b/App_Code/ClsEventos.vb index 02fccac02..be21fb262 100644 --- a/App_Code/ClsEventos.vb +++ b/App_Code/ClsEventos.vb @@ -49,7 +49,7 @@ Public Class ClsEventos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsFISConfiguracion.vb b/App_Code/ClsFISConfiguracion.vb index e59bed34d..f37d6d0da 100644 --- a/App_Code/ClsFISConfiguracion.vb +++ b/App_Code/ClsFISConfiguracion.vb @@ -46,7 +46,7 @@ Public Class ClsFISConfiguracion If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb index a5d52f0f9..1b1921f60 100644 --- a/App_Code/ClsFinanzas.vb +++ b/App_Code/ClsFinanzas.vb @@ -99,7 +99,7 @@ Public Class ClsFinanzas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsFlotillas.vb b/App_Code/ClsFlotillas.vb index 569737e73..b6afc7a94 100644 --- a/App_Code/ClsFlotillas.vb +++ b/App_Code/ClsFlotillas.vb @@ -53,7 +53,7 @@ Public Class ClsFlotillas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index 2a38bb5aa..d9b6bad0b 100644 --- a/App_Code/ClsGPS.vb +++ b/App_Code/ClsGPS.vb @@ -52,7 +52,7 @@ Public Class ClsGPS If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsGPSHerramientas.vb b/App_Code/ClsGPSHerramientas.vb index 94a74b82c..770a1a6b0 100644 --- a/App_Code/ClsGPSHerramientas.vb +++ b/App_Code/ClsGPSHerramientas.vb @@ -30,7 +30,7 @@ Public Class ClsGPSHerramientas Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 27998c296..ef9e785c4 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -76,7 +76,7 @@ Public Class ClsGenerales If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsGralFolios.vb b/App_Code/ClsGralFolios.vb index 44608558c..37b91f2c2 100644 --- a/App_Code/ClsGralFolios.vb +++ b/App_Code/ClsGralFolios.vb @@ -62,7 +62,7 @@ Public Class ClsGralFolios If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsGralProductosServiciosCaracteristicas.vb b/App_Code/ClsGralProductosServiciosCaracteristicas.vb index 593903c4f..82d8d90a9 100644 --- a/App_Code/ClsGralProductosServiciosCaracteristicas.vb +++ b/App_Code/ClsGralProductosServiciosCaracteristicas.vb @@ -43,7 +43,7 @@ Public Class ClsGralProductosServiciosCaracteristicas Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsImpuestos.vb b/App_Code/ClsImpuestos.vb index 8f410fac2..2a4e5a556 100644 --- a/App_Code/ClsImpuestos.vb +++ b/App_Code/ClsImpuestos.vb @@ -33,7 +33,7 @@ Public Class ClsImpuestos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsIndicadores.vb b/App_Code/ClsIndicadores.vb index c9d8275aa..3b2e685a2 100644 --- a/App_Code/ClsIndicadores.vb +++ b/App_Code/ClsIndicadores.vb @@ -37,7 +37,7 @@ Public Class ClsIndicadores If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 2baabb88f..e1327629c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -162,7 +162,7 @@ Public Class ClsInventarios If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsLeyendasFiscales.vb b/App_Code/ClsLeyendasFiscales.vb index 14da05f6f..33a8e1582 100644 --- a/App_Code/ClsLeyendasFiscales.vb +++ b/App_Code/ClsLeyendasFiscales.vb @@ -33,7 +33,7 @@ Public Class ClsLeyendasFiscales Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsMF.vb b/App_Code/ClsMF.vb index 518bbc842..946f78045 100644 --- a/App_Code/ClsMF.vb +++ b/App_Code/ClsMF.vb @@ -32,7 +32,7 @@ Public Class ClsMF If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsMetodosPagos.vb b/App_Code/ClsMetodosPagos.vb index fb55322f8..f6bf0b888 100644 --- a/App_Code/ClsMetodosPagos.vb +++ b/App_Code/ClsMetodosPagos.vb @@ -35,7 +35,7 @@ Public Class ClsMetodosPagos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -88,20 +88,20 @@ Public Class ClsMetodosPagos Data = New DataTable End Sub #End Region - Public Function GetMetodosPago() As Boolean - Dim Retorno As Boolean = False - Data = New DataTable - SqlAdapter = New SqlDataAdapter("PA_MetodosPagosGet", SqlConexion) - SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As SqlException - OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - SqlAdapter.Dispose() - Return Retorno - End Function + 'Public Function GetMetodosPago() As Boolean + ' Dim Retorno As Boolean = False + ' Data = New DataTable + ' SqlAdapter = New SqlDataAdapter("PA_MetodosPagosGet", SqlConexion) + ' SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As SqlException + ' OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + ' SqlAdapter.Dispose() + ' Return Retorno + 'End Function #Region "IDisposable Support" diff --git a/App_Code/ClsModulos.vb b/App_Code/ClsModulos.vb index 19610b9bd..fe0b0c94b 100644 --- a/App_Code/ClsModulos.vb +++ b/App_Code/ClsModulos.vb @@ -134,7 +134,7 @@ Public Class ClsModulos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsMonedas.vb b/App_Code/ClsMonedas.vb index 3a4ac8dcd..ab4a9a58c 100644 --- a/App_Code/ClsMonedas.vb +++ b/App_Code/ClsMonedas.vb @@ -38,7 +38,7 @@ Public Class ClsMonedas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index de0fa63dd..90618ea70 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -46,7 +46,7 @@ Public Class ClsMovimientos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 0f868dd15..c44001a64 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -165,7 +165,7 @@ Public Class ClsNominas End Sub Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -178,7 +178,7 @@ Public Class ClsNominas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 28f1d50fd..029912473 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -157,7 +157,7 @@ Public Class ClsOC If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 37c61db00..0e19ccc6d 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -157,7 +157,7 @@ Public Class ClsOIEventos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 1f1c44696..1263b38d9 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -101,7 +101,7 @@ Public Class ClsOS If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsPV.vb b/App_Code/ClsPV.vb index 0e44deb77..e08ddaa83 100644 --- a/App_Code/ClsPV.vb +++ b/App_Code/ClsPV.vb @@ -52,7 +52,7 @@ Public Class ClsPV If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index dac906bd5..8de66f377 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -77,7 +77,7 @@ Public Class ClsPaginas Usuario.CerrarSession() Return Nothing Else - Return CType(Context.Session("UsuarioSIG"), Usuario) + Return DirectCast(Context.Session("UsuarioSIG"), Usuario) End If Catch ex As Exception Usuario.CerrarSession() @@ -85,6 +85,20 @@ Public Class ClsPaginas End Try End Get End Property + + Public Shared ReadOnly Property UsuarioActualRutaDB() As String + Get + Try + If HttpContext.Current.Session("UsuarioSIG") Is Nothing Then + Return "" + Else + Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.RutaDB + End If + Catch ex As Exception + Return "" + End Try + End Get + End Property Public Property CveModulo As Integer Get Try @@ -1171,7 +1185,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTMetodosPago" If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then - Dim ObjMetodoPago As New ClsMetodosPagos + Dim ObjMetodoPago As New ClsVentas If ObjMetodoPago.GetMetodosPago() Then HttpContext.Current.Application(AppNombre) = ObjMetodoPago.DtResultados ObjMetodoPago.Dispose() End If diff --git a/App_Code/ClsPresupuestos.vb b/App_Code/ClsPresupuestos.vb index b920feb35..ba7e03dfb 100644 --- a/App_Code/ClsPresupuestos.vb +++ b/App_Code/ClsPresupuestos.vb @@ -52,7 +52,7 @@ Public Class ClsPresupuestos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index c9bcb106e..17d7860aa 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -112,7 +112,7 @@ Public Class ClsProductosServicios Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -139,7 +139,7 @@ Public Class ClsProductosServicios If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsProsEncuestas.vb b/App_Code/ClsProsEncuestas.vb index f15472b0d..dbe9fb6ea 100644 --- a/App_Code/ClsProsEncuestas.vb +++ b/App_Code/ClsProsEncuestas.vb @@ -38,7 +38,7 @@ Public Class ClsProsEncuestas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsProspectos.vb b/App_Code/ClsProspectos.vb index 08aa72f85..dc09ffca4 100644 --- a/App_Code/ClsProspectos.vb +++ b/App_Code/ClsProspectos.vb @@ -151,7 +151,7 @@ Public Class ClsProspectos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsProyectos.vb b/App_Code/ClsProyectos.vb index e5b3fe7a3..d108c8f74 100644 --- a/App_Code/ClsProyectos.vb +++ b/App_Code/ClsProyectos.vb @@ -42,7 +42,7 @@ Public Class ClsProyectos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsPruebasJJMQ.vb b/App_Code/ClsPruebasJJMQ.vb index 1a812e2b5..4a6abd8f7 100644 --- a/App_Code/ClsPruebasJJMQ.vb +++ b/App_Code/ClsPruebasJJMQ.vb @@ -36,7 +36,7 @@ Public Class ClsPruebasJJMQ Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index 6bbffe680..cc16fe654 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -74,7 +74,7 @@ Public Class ClsPuntoVenta If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index eeb1d6249..c9290bf53 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -67,7 +67,7 @@ Public Class ClsRH If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsRMA.vb b/App_Code/ClsRMA.vb index 25726a92e..1b2244b6e 100644 --- a/App_Code/ClsRMA.vb +++ b/App_Code/ClsRMA.vb @@ -46,7 +46,7 @@ Public Class ClsRMA If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsRutas.vb b/App_Code/ClsRutas.vb index bde0252dc..bdafc4943 100644 --- a/App_Code/ClsRutas.vb +++ b/App_Code/ClsRutas.vb @@ -39,7 +39,7 @@ Public Class ClsRutas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSAT.vb b/App_Code/ClsSAT.vb index b7eb261df..35de3e019 100644 --- a/App_Code/ClsSAT.vb +++ b/App_Code/ClsSAT.vb @@ -62,7 +62,7 @@ Public Class ClsSAT 'ValidaDepurarConexiones(TransaccionCompartida) If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSCTLicencias.vb b/App_Code/ClsSCTLicencias.vb index 7ae89385a..41c2b9c4a 100644 --- a/App_Code/ClsSCTLicencias.vb +++ b/App_Code/ClsSCTLicencias.vb @@ -47,7 +47,7 @@ Public Class ClsSCTLicencias Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try @@ -413,7 +413,7 @@ End Class ' Sub New() ' SqlConexion = New SqlConnection -' SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString +' SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB ' Try ' SqlConexion.Open() ' Catch ex As Exception diff --git a/App_Code/ClsSeguimiento.vb b/App_Code/ClsSeguimiento.vb index d3359629a..089a3b2df 100644 --- a/App_Code/ClsSeguimiento.vb +++ b/App_Code/ClsSeguimiento.vb @@ -29,7 +29,7 @@ Public Class ClsSeguimiento Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index c92c3b19a..a417989b0 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -204,11 +204,11 @@ Public Class ClsSisEmpresas 'Public Property PwdContPAQi As String #End Region - Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional NombreCadena As String = "Conexion") If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb index 26574baba..d4f4ec8be 100644 --- a/App_Code/ClsSisNotificaciones.vb +++ b/App_Code/ClsSisNotificaciones.vb @@ -89,7 +89,7 @@ Public Class ClsSisNotificaciones #End Region Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSisParametros.vb b/App_Code/ClsSisParametros.vb index 5773f5b29..0f4d8ae89 100644 --- a/App_Code/ClsSisParametros.vb +++ b/App_Code/ClsSisParametros.vb @@ -75,7 +75,7 @@ Public Class ClsSisParametros Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSisProcesos.vb b/App_Code/ClsSisProcesos.vb index 5f7e1fd78..9f877382a 100644 --- a/App_Code/ClsSisProcesos.vb +++ b/App_Code/ClsSisProcesos.vb @@ -67,7 +67,7 @@ Public Class ClsSisProcesos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb index c6777a6eb..6cc5d759b 100644 --- a/App_Code/ClsSisRoles.vb +++ b/App_Code/ClsSisRoles.vb @@ -37,7 +37,7 @@ Public Class ClsSisRoles If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index fcebdda87..9ce9d0deb 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -63,11 +63,11 @@ Public Class ClsSisUsuarios Public Property DescuentoAutorizado As Double #End Region - Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional NombreCadena As String = "Conexion") If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString Try SqlConexion.Open() Catch ex As Exception @@ -3171,7 +3171,7 @@ End Class ' Sub New() ' SqlConexion = New SqlConnection -' SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString +' SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB ' Try ' SqlConexion.Open() ' Catch ex As Exception diff --git a/App_Code/ClsStiReports.vb b/App_Code/ClsStiReports.vb index 8d000882f..28563b8e4 100644 --- a/App_Code/ClsStiReports.vb +++ b/App_Code/ClsStiReports.vb @@ -43,7 +43,7 @@ Public Class ClsStiReports Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb index 2215fda48..bf6419ecc 100644 --- a/App_Code/ClsSubProyectos.vb +++ b/App_Code/ClsSubProyectos.vb @@ -36,7 +36,7 @@ Public Class ClsSubProyectos If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSucursales.vb b/App_Code/ClsSucursales.vb index de03554ce..57407d3c7 100644 --- a/App_Code/ClsSucursales.vb +++ b/App_Code/ClsSucursales.vb @@ -99,7 +99,7 @@ Public Class ClsSucursales If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsSucursales.vb.exclude b/App_Code/ClsSucursales.vb.exclude index b7d3f0f00..9dcdcf579 100644 --- a/App_Code/ClsSucursales.vb.exclude +++ b/App_Code/ClsSucursales.vb.exclude @@ -101,7 +101,7 @@ Public Class ClsSucursales If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsTemporal.vb b/App_Code/ClsTemporal.vb index 75e1af8bf..642e06bb7 100644 --- a/App_Code/ClsTemporal.vb +++ b/App_Code/ClsTemporal.vb @@ -36,7 +36,7 @@ Public Class ClsTemporal If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsTiposEventos.vb b/App_Code/ClsTiposEventos.vb index 9da834644..b1f8a4e09 100644 --- a/App_Code/ClsTiposEventos.vb +++ b/App_Code/ClsTiposEventos.vb @@ -36,7 +36,7 @@ Public Class ClsTiposEventos Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsUnidadesMedida.vb b/App_Code/ClsUnidadesMedida.vb index ce7dd2a8b..d65865b1d 100644 --- a/App_Code/ClsUnidadesMedida.vb +++ b/App_Code/ClsUnidadesMedida.vb @@ -34,7 +34,7 @@ Public Class ClsUnidadesMedida Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -59,7 +59,7 @@ Public Class ClsUnidadesMedida If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 1f852c7c0..ff6047d0b 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -80,7 +80,7 @@ Public Class ClsVentas If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception @@ -275,6 +275,20 @@ Public Class ClsVentas Return Retorno End Function + + Public Function GetMetodosPago() As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_MetodosPagosGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + SqlAdapter.Dispose() + Return Retorno + End Function Public Function GetVentas(CveEmpresa As Integer, TipoDocto As String, Serie As String, Folio As Integer, Codigo As String, CveCliente As Integer, CveSubProyecto As Integer, CveEstatus As Integer, CveUsuario As Integer, FechaI As String, FechaF As String, FolioFiscal As String, Optional CveClienteSucursal As Integer = -1, Optional CvePS As Integer = -1, Optional PedidoContrato As String = "-1", Optional OrdenCompra As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional ClienteRFC As String = "-1", @@ -1620,7 +1634,7 @@ Public Class ClsVentas CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, - Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean + Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRep") @@ -1651,6 +1665,7 @@ Public Class ClsVentas .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable .Add("@CveTipoRelacion", SqlDbType.Int).Value = CveTipoRelacion .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio + .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal End With Try @@ -1757,7 +1772,7 @@ Public Class ClsVentas CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, - Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean + Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRepDetalle") @@ -1793,6 +1808,7 @@ Public Class ClsVentas .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable .Add("@CveTipoRelacion", SqlDbType.Int).Value = CveTipoRelacion .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio + .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal End With Try diff --git a/App_Code/ClsVtaPromociones.vb b/App_Code/ClsVtaPromociones.vb index 1df18d9a2..8b88f74e9 100644 --- a/App_Code/ClsVtaPromociones.vb +++ b/App_Code/ClsVtaPromociones.vb @@ -34,7 +34,7 @@ Public Class ClsVtaPromociones Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() diff --git a/App_Code/ClsVtaVendedores.vb b/App_Code/ClsVtaVendedores.vb index e6bd8101b..a4e7dfc10 100644 --- a/App_Code/ClsVtaVendedores.vb +++ b/App_Code/ClsVtaVendedores.vb @@ -29,7 +29,7 @@ Public Class ClsVtaVendedores Sub New() SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB SqlAdapter = New SqlDataAdapter("", SqlConexion) Try SqlConexion.Open() @@ -43,7 +43,7 @@ Public Class ClsVtaVendedores If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 2b0d41c6f..5431ad41a 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -97,6 +97,7 @@ Public Class Empresa Public Property Timbres As Integer Public Property _RutaArchivos As String Public Property ContaFormatoCuenta As String + Public Property RutaDB As String Public ReadOnly Property Ruta As String Get diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index db5fa348b..3cafc0939 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -1,7 +1,6 @@ Imports System.Data Imports System.IdentityModel.Tokens.Jwt -Imports System.Security.Claims -Imports ADSNetLibrary.Application.Conexiones.Api +Imports System.Security.Claims Imports ADSSession Imports Extensiones Imports Microsoft.IdentityModel.Tokens @@ -208,10 +207,11 @@ Partial Class LogIn If BtnLogIn_Clickenter = 0 Then 'esta variable se recicla con cada postaback BtnLogIn_Clickenter = 1 Dim tGrupoEmpresa As String = "" + Dim NombreCadena As String = "Conexion" If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD" If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH" - If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" + If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "Conexion" If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM" If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS" If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO" @@ -224,7 +224,7 @@ Partial Class LogIn If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ" If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA" - Dim ObjUsuario As New ClsSisUsuarios + Dim ObjUsuario As New ClsSisUsuarios(NombreCadena:=NombreCadena) Dim Usuario As Usuario = Nothing Dim isgps As Boolean = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) @@ -240,7 +240,7 @@ Partial Class LogIn If Usuario IsNot Nothing Then If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then - CreaObjetoEmpresa(Usuario) + CreaObjetoEmpresa(Usuario, NombreCadena) ADSSessionConfig.sessionUser.MultipleEmpresa = True Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa) @@ -343,7 +343,7 @@ Partial Class LogIn End If End Function - Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario) + Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario, Optional NombreCadena As String = "Conexion") Dim ObjEmpresa As New ClsSisEmpresas() If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then @@ -358,6 +358,7 @@ Partial Class LogIn End If UsuarioActual.Empresa = ObjEmpresa.Empresa + If UsuarioActual.Empresa.RutaDB = "" Then UsuarioActual.Empresa.RutaDB = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString Else End If ObjEmpresa.Dispose() diff --git a/MQ/ClsAF.vb b/MQ/ClsAF.vb index 43efb1c7c..2d7c2dfb6 100644 --- a/MQ/ClsAF.vb +++ b/MQ/ClsAF.vb @@ -147,7 +147,7 @@ Public Class ClsAF ValidaDepurarConexiones(TransaccionCompartida) If TransaccionCompartida Is Nothing Then SqlConexion = New SqlConnection - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB Try SqlConexion.Open() Catch ex As Exception