diff --git a/App_Code/ClsAC.vb b/App_Code/ClsAC.vb index 53df5494e..f3b7100ec 100644 --- a/App_Code/ClsAC.vb +++ b/App_Code/ClsAC.vb @@ -98,7 +98,7 @@ Public Class ClsAC Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsAC2.vb b/App_Code/ClsAC2.vb index 2609a1b62..2a51e1786 100644 --- a/App_Code/ClsAC2.vb +++ b/App_Code/ClsAC2.vb @@ -93,7 +93,7 @@ Public Class ClsAC2 Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 1df991a31..f08a705e2 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -140,7 +140,7 @@ Public Class ClsAF Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsAIMMGM.vb b/App_Code/ClsAIMMGM.vb index 30c026293..b9268d0f6 100644 --- a/App_Code/ClsAIMMGM.vb +++ b/App_Code/ClsAIMMGM.vb @@ -106,7 +106,7 @@ Public Class ClsAIMMGM Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index 88e9311fe..c85f93087 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -91,7 +91,7 @@ Public Class ClsAcarreos Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 1ad16ad7f..77259bc99 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -98,7 +98,7 @@ Public Class ClsAcumuladores Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 2260809ac..c6caaeaef 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -234,7 +234,7 @@ Public Class ClsBancos Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsBase.vb b/App_Code/ClsBase.vb index 4676125f4..73949c0f0 100644 --- a/App_Code/ClsBase.vb +++ b/App_Code/ClsBase.vb @@ -137,7 +137,7 @@ Public Class ClsBase Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index a2370c0c4..80217ec28 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -99,7 +99,7 @@ Public Class ClsCGame Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb index ecae36a61..87915730c 100644 --- a/App_Code/ClsCRM.vb +++ b/App_Code/ClsCRM.vb @@ -95,7 +95,7 @@ Public Class ClsCRM Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsClaseBase.vb b/App_Code/ClsClaseBase.vb index 12034dd27..47a302402 100644 --- a/App_Code/ClsClaseBase.vb +++ b/App_Code/ClsClaseBase.vb @@ -109,7 +109,7 @@ Public Class ClsClaseBase Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index fdf2f8c92..0970a55d3 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -95,7 +95,7 @@ Public Class ClsClasificaciones Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index d45834ac1..907d3f8ac 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -230,7 +230,7 @@ Public Class ClsClientes Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsCompEstatusFactura.vb b/App_Code/ClsCompEstatusFactura.vb index 4da552bf6..816d07e87 100644 --- a/App_Code/ClsCompEstatusFactura.vb +++ b/App_Code/ClsCompEstatusFactura.vb @@ -92,7 +92,7 @@ Public Class ClsCompEstatusFactura Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index b3785b62f..474060720 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/App_Code/ClsCompProveedores.vb @@ -215,7 +215,7 @@ Public Class ClsCompProveedores Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 49dde9ca8..ce3783cd5 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -111,7 +111,7 @@ Public Class ClsCompras Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 174263585..3156bdd13 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -142,7 +142,7 @@ Public Class ClsContabilidad Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index ac4212a99..02121ae13 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -113,7 +113,7 @@ Public Class ClsContratos Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsDG.vb b/App_Code/ClsDG.vb index d1ac7fffd..7f6dad9c2 100644 --- a/App_Code/ClsDG.vb +++ b/App_Code/ClsDG.vb @@ -91,7 +91,7 @@ Public Class ClsDG Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsDesarrollo.vb b/App_Code/ClsDesarrollo.vb index 8fbcbc523..ea17e0339 100644 --- a/App_Code/ClsDesarrollo.vb +++ b/App_Code/ClsDesarrollo.vb @@ -89,7 +89,7 @@ Public Class ClsDesarrollo Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsEdoc.vb b/App_Code/ClsEdoc.vb index 446103b25..6731807ea 100644 --- a/App_Code/ClsEdoc.vb +++ b/App_Code/ClsEdoc.vb @@ -62,7 +62,7 @@ Public Class ClsEdoc Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb index 327c4c369..a5d44ff83 100644 --- a/App_Code/ClsEdocumentacion.vb +++ b/App_Code/ClsEdocumentacion.vb @@ -101,7 +101,7 @@ Public Class ClsEdocumentacion Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsEdosFinancieros.vb b/App_Code/ClsEdosFinancieros.vb index f7012bb47..3f1aad05f 100644 --- a/App_Code/ClsEdosFinancieros.vb +++ b/App_Code/ClsEdosFinancieros.vb @@ -89,7 +89,7 @@ Public Class ClsEdosFinancieros Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb index 588d44780..edec3dd57 100644 --- a/App_Code/ClsEncuestas.vb +++ b/App_Code/ClsEncuestas.vb @@ -84,7 +84,7 @@ Public Class ClsEncuestas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsEsquemasComisiones.vb b/App_Code/ClsEsquemasComisiones.vb index c991dd5a4..5528c2772 100644 --- a/App_Code/ClsEsquemasComisiones.vb +++ b/App_Code/ClsEsquemasComisiones.vb @@ -106,7 +106,7 @@ Public Class ClsEsquemasComisiones Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsEstatusFactura.vb b/App_Code/ClsEstatusFactura.vb index 8755c77e6..893538e23 100644 --- a/App_Code/ClsEstatusFactura.vb +++ b/App_Code/ClsEstatusFactura.vb @@ -92,7 +92,7 @@ Public Class ClsEstatusFactura Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsEventos.vb b/App_Code/ClsEventos.vb index 8d36bb02d..c631009a2 100644 --- a/App_Code/ClsEventos.vb +++ b/App_Code/ClsEventos.vb @@ -100,7 +100,7 @@ Public Class ClsEventos Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsFISConfiguracion.vb b/App_Code/ClsFISConfiguracion.vb index 2cdf3f6bd..3ee63918e 100644 --- a/App_Code/ClsFISConfiguracion.vb +++ b/App_Code/ClsFISConfiguracion.vb @@ -83,7 +83,7 @@ Public Class ClsFISConfiguracion Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb index 9fd94c7ee..3a032bc3a 100644 --- a/App_Code/ClsFinanzas.vb +++ b/App_Code/ClsFinanzas.vb @@ -168,7 +168,7 @@ Public Class ClsFinanzas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsFlotillas.vb b/App_Code/ClsFlotillas.vb index e053b6c79..17350750b 100644 --- a/App_Code/ClsFlotillas.vb +++ b/App_Code/ClsFlotillas.vb @@ -111,7 +111,7 @@ Public Class ClsFlotillas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index 27cece75d..6d33bd8f3 100644 --- a/App_Code/ClsGPS.vb +++ b/App_Code/ClsGPS.vb @@ -106,7 +106,7 @@ Public Class ClsGPS Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsGPSHerramientas.vb b/App_Code/ClsGPSHerramientas.vb index fa0580814..493863bad 100644 --- a/App_Code/ClsGPSHerramientas.vb +++ b/App_Code/ClsGPSHerramientas.vb @@ -81,7 +81,7 @@ Public Class ClsGPSHerramientas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 022898c45..53081a2e4 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -119,7 +119,7 @@ Public Class ClsGenerales Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsGralFolios.vb b/App_Code/ClsGralFolios.vb index 4993d1a16..9812c0d5d 100644 --- a/App_Code/ClsGralFolios.vb +++ b/App_Code/ClsGralFolios.vb @@ -118,7 +118,7 @@ Public Class ClsGralFolios Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsGralProductosServiciosCaracteristicas.vb b/App_Code/ClsGralProductosServiciosCaracteristicas.vb index d789c1b10..6c2ea130b 100644 --- a/App_Code/ClsGralProductosServiciosCaracteristicas.vb +++ b/App_Code/ClsGralProductosServiciosCaracteristicas.vb @@ -93,7 +93,7 @@ Public Class ClsGralProductosServiciosCaracteristicas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsImpuestos.vb b/App_Code/ClsImpuestos.vb index ab10b9087..f4fd2c684 100644 --- a/App_Code/ClsImpuestos.vb +++ b/App_Code/ClsImpuestos.vb @@ -89,7 +89,7 @@ Public Class ClsImpuestos Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsIndicadores.vb b/App_Code/ClsIndicadores.vb index d42820ae5..625ddd31f 100644 --- a/App_Code/ClsIndicadores.vb +++ b/App_Code/ClsIndicadores.vb @@ -93,7 +93,7 @@ Public Class ClsIndicadores Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 20707c03d..45a5ce21f 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -193,7 +193,7 @@ Public Class ClsInventarios Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsLeyendasFiscales.vb b/App_Code/ClsLeyendasFiscales.vb index 8742426f4..7da70a2dd 100644 --- a/App_Code/ClsLeyendasFiscales.vb +++ b/App_Code/ClsLeyendasFiscales.vb @@ -75,7 +75,7 @@ Public Class ClsLeyendasFiscales Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsMF.vb b/App_Code/ClsMF.vb index 82976a778..72ea537ca 100644 --- a/App_Code/ClsMF.vb +++ b/App_Code/ClsMF.vb @@ -89,7 +89,7 @@ Public Class ClsMF Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsMetodosPagos.vb b/App_Code/ClsMetodosPagos.vb index 26eadd990..dfb99b1f4 100644 --- a/App_Code/ClsMetodosPagos.vb +++ b/App_Code/ClsMetodosPagos.vb @@ -77,7 +77,7 @@ Public Class ClsMetodosPagos Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsModulos.vb b/App_Code/ClsModulos.vb index e2a5fc593..a26983a44 100644 --- a/App_Code/ClsModulos.vb +++ b/App_Code/ClsModulos.vb @@ -187,7 +187,7 @@ Public Class ClsModulos Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsMonedas.vb b/App_Code/ClsMonedas.vb index bc7b6b6d5..26d96091d 100644 --- a/App_Code/ClsMonedas.vb +++ b/App_Code/ClsMonedas.vb @@ -92,7 +92,7 @@ Public Class ClsMonedas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index b79331a1b..85846866e 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -87,7 +87,7 @@ Public Class ClsMovimientos Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index ef14536e4..38d99f0f6 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -164,7 +164,7 @@ Public Class ClsNominas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index f2414ff0f..bb62e0c26 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -206,14 +206,13 @@ Public Class ClsOC If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 02b31ae03..2853c3502 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -149,14 +149,13 @@ Public Class ClsOIEventos If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 16360ac15..1cfb6672d 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -138,14 +138,14 @@ Public Class ClsOS If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsPV.vb b/App_Code/ClsPV.vb index 25174e43b..63f2bb39e 100644 --- a/App_Code/ClsPV.vb +++ b/App_Code/ClsPV.vb @@ -104,14 +104,14 @@ Public Class ClsPV If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsPresupuestos.vb b/App_Code/ClsPresupuestos.vb index df519fea0..2bf7542f8 100644 --- a/App_Code/ClsPresupuestos.vb +++ b/App_Code/ClsPresupuestos.vb @@ -107,14 +107,14 @@ Public Class ClsPresupuestos If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 6e3b7c0b9..960390491 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -186,14 +186,14 @@ Public Class ClsProductosServicios If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsProsEncuestas.vb b/App_Code/ClsProsEncuestas.vb index db04837c8..dc005bd79 100644 --- a/App_Code/ClsProsEncuestas.vb +++ b/App_Code/ClsProsEncuestas.vb @@ -88,14 +88,14 @@ Public Class ClsProsEncuestas If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsProspectos.vb b/App_Code/ClsProspectos.vb index a3d5baa94..adfc2b6cd 100644 --- a/App_Code/ClsProspectos.vb +++ b/App_Code/ClsProspectos.vb @@ -201,14 +201,14 @@ Public Class ClsProspectos If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsProyectos.vb b/App_Code/ClsProyectos.vb index 4be90d3f8..31b371e85 100644 --- a/App_Code/ClsProyectos.vb +++ b/App_Code/ClsProyectos.vb @@ -94,14 +94,14 @@ Public Class ClsProyectos If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsPruebasJJMQ.vb b/App_Code/ClsPruebasJJMQ.vb index 46fc11750..3bd297b6e 100644 --- a/App_Code/ClsPruebasJJMQ.vb +++ b/App_Code/ClsPruebasJJMQ.vb @@ -87,14 +87,14 @@ Public Class ClsPruebasJJMQ If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then SqlDataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index 26f838e63..48b57e6ab 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -124,14 +124,14 @@ Public Class ClsPuntoVenta If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 145d88bec..78f8767e6 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -102,14 +102,14 @@ Public Class ClsRH If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsRMA.vb b/App_Code/ClsRMA.vb index 47b21b15e..b29752ac6 100644 --- a/App_Code/ClsRMA.vb +++ b/App_Code/ClsRMA.vb @@ -95,14 +95,14 @@ Public Class ClsRMA If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsSAT.vb b/App_Code/ClsSAT.vb index 034ea416b..abc93de5a 100644 --- a/App_Code/ClsSAT.vb +++ b/App_Code/ClsSAT.vb @@ -118,14 +118,14 @@ Public Class ClsSAT If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsSCTLicencias.vb b/App_Code/ClsSCTLicencias.vb index 22da03169..943f606b1 100644 --- a/App_Code/ClsSCTLicencias.vb +++ b/App_Code/ClsSCTLicencias.vb @@ -92,14 +92,14 @@ Public Class ClsSCTLicencias If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsSeguimiento.vb b/App_Code/ClsSeguimiento.vb index 98277f723..96b21a7cf 100644 --- a/App_Code/ClsSeguimiento.vb +++ b/App_Code/ClsSeguimiento.vb @@ -73,14 +73,14 @@ Public Class ClsSeguimiento If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 + Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 1898e55f5..cfcca38dd 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -253,7 +253,6 @@ Public Class ClsSisEmpresas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - End If End Sub @@ -261,13 +260,13 @@ Public Class ClsSisEmpresas If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb index def3396cc..05d5e07fd 100644 --- a/App_Code/ClsSisNotificaciones.vb +++ b/App_Code/ClsSisNotificaciones.vb @@ -131,13 +131,13 @@ Public Class ClsSisNotificaciones If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsSisParametros.vb b/App_Code/ClsSisParametros.vb index a5b1004c7..8ab040848 100644 --- a/App_Code/ClsSisParametros.vb +++ b/App_Code/ClsSisParametros.vb @@ -121,13 +121,13 @@ Public Class ClsSisParametros If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsSisProcesos.vb b/App_Code/ClsSisProcesos.vb index ef98ce67e..a19a77896 100644 --- a/App_Code/ClsSisProcesos.vb +++ b/App_Code/ClsSisProcesos.vb @@ -113,13 +113,13 @@ Public Class ClsSisProcesos If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb index 21255dae4..da2d9a59a 100644 --- a/App_Code/ClsSisRoles.vb +++ b/App_Code/ClsSisRoles.vb @@ -91,13 +91,13 @@ Public Class ClsSisRoles If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 371084789..2b70e5370 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -119,13 +119,13 @@ Public Class ClsSisUsuarios If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsStiReports.vb b/App_Code/ClsStiReports.vb index ab3b83382..fa533de0a 100644 --- a/App_Code/ClsStiReports.vb +++ b/App_Code/ClsStiReports.vb @@ -88,13 +88,13 @@ Public Class ClsStiReports If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb index 010712063..729e1c1f4 100644 --- a/App_Code/ClsSubProyectos.vb +++ b/App_Code/ClsSubProyectos.vb @@ -85,14 +85,13 @@ Public Class ClsSubProyectos If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsSucursales.vb b/App_Code/ClsSucursales.vb index f1012268c..b7d3f0f00 100644 --- a/App_Code/ClsSucursales.vb +++ b/App_Code/ClsSucursales.vb @@ -151,13 +151,13 @@ Public Class ClsSucursales If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsTemporal.vb b/App_Code/ClsTemporal.vb index b99f759b5..f9ee5ca69 100644 --- a/App_Code/ClsTemporal.vb +++ b/App_Code/ClsTemporal.vb @@ -89,13 +89,13 @@ Public Class ClsTemporal If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsTiposEventos.vb b/App_Code/ClsTiposEventos.vb index 6778f3c71..2905de837 100644 --- a/App_Code/ClsTiposEventos.vb +++ b/App_Code/ClsTiposEventos.vb @@ -82,13 +82,13 @@ Public Class ClsTiposEventos If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsUnidadesMedida.vb b/App_Code/ClsUnidadesMedida.vb index 21d3a7f37..ac7b58041 100644 --- a/App_Code/ClsUnidadesMedida.vb +++ b/App_Code/ClsUnidadesMedida.vb @@ -109,13 +109,13 @@ Public Class ClsUnidadesMedida If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - CveConexion = 0 Try SqlAdapter.Fill(Data) Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + CveConexion = 0 End If diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 57d799c59..d405f8630 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -135,7 +135,7 @@ Public Class ClsVentas Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsVtaPromociones.vb b/App_Code/ClsVtaPromociones.vb index ce303bbf7..f5e9e6bfa 100644 --- a/App_Code/ClsVtaPromociones.vb +++ b/App_Code/ClsVtaPromociones.vb @@ -76,7 +76,7 @@ Public Class ClsVtaPromociones Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub diff --git a/App_Code/ClsVtaVendedores.vb b/App_Code/ClsVtaVendedores.vb index d124c427b..e76734c7f 100644 --- a/App_Code/ClsVtaVendedores.vb +++ b/App_Code/ClsVtaVendedores.vb @@ -98,7 +98,7 @@ Public Class ClsVtaVendedores Catch ex As Exception OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - + CveConexion = 0 End If End Sub