Checkpoint agregando el registro de conexion

App_Code/ClsMF.vb

@@ -15,7 +15,8 @@ Public Class ClsMF
     Private SqlCommand As SqlCommand
     Private SqlTransacc As SqlTransaction
     Private Data As DataTable
-
+    'REGISTRAR CONEXIONES ABIERTAS
+    Private CveConexion As Integer = 0
 
 
     Public ReadOnly Property DtResultados() As DataTable
@@ -46,7 +47,7 @@ Public Class ClsMF
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -57,6 +58,42 @@ Public Class ClsMF
         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
+            Try
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = HttpContext.Current.Request.Url.AbsolutePath.ToString
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").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 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)
+
+            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 IniciaTransacSQL() As SqlTransaction
         If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
         Return SqlTransacc
@@ -683,6 +720,7 @@ Public Class ClsMF
         Me.disposedValue = True
     End Sub
     Public Sub Dispose() Implements IDisposable.Dispose
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsMetodosPagos.vb

@@ -20,6 +20,8 @@ Public Class ClsMetodosPagos
 
     'Atributos de la clase
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'REGISTRAR CONEXIONES ABIERTAS
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -41,9 +43,53 @@ Public Class ClsMetodosPagos
         Catch ex As Exception
             Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
+        SqlAdapter = New SqlDataAdapter("", SqlConexion)
+        ConexionAdd()
+    End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+            Try
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = HttpContext.Current.Request.Url.AbsolutePath.ToString
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").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 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)
+
+            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
+    Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand
+            .Parameters.Clear()
+            .CommandText = pStrSQL
+            .CommandType = TipoComando
+        End With
+        Data = New DataTable
+    End Sub
+#End Region
     Public Function GetMetodosPago() As Boolean
         Dim Retorno As Boolean = False
         Data = New DataTable
@@ -90,6 +136,7 @@ Public Class ClsMetodosPagos
     ' This code added by Visual Basic to correctly implement the disposable pattern.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsModulos.vb

@@ -36,6 +36,8 @@ Public Class ClsModulos
     Private _CvePlataforma As String
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'REGISTRAR CONEXIONES ABIERTAS
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -142,7 +144,7 @@ Public Class ClsModulos
         End Try
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -154,7 +156,42 @@ Public Class ClsModulos
         Data = New DataTable
 
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+            Try
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = HttpContext.Current.Request.Url.AbsolutePath.ToString
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").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 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)
+
+            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 GetModulos(CveModulo As Integer, CvePadre As Integer, Descripcion As String, DescripcionLike As String) As Boolean
         Dim OnError As Boolean = False
         Data = New DataTable
@@ -392,6 +429,7 @@ Public Class ClsModulos
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose ( que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub