checkpoint registro de conexion

App_Code/ClsPresupuestos.vb

@@ -21,6 +21,8 @@ Public Class ClsPresupuestos
 
     'Atributos de la clase
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -64,7 +66,7 @@ Public Class ClsPresupuestos
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -78,7 +80,45 @@ Public Class ClsPresupuestos
     End Sub
 
 #End Region
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.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)
+            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
+
+        End If
+
+    End Sub
+#End Region
 #Region "P R E S U P U E S T O S - P R O D U C T O S - D E T A L L E S"
 
     Public Function GetPresupuestosDetalleProductos(CvePresupuestoDetalle As Integer) As Boolean
@@ -732,6 +772,7 @@ Public Class ClsPresupuestos
     ' 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 (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsProductosServicios.vb

@@ -18,6 +18,9 @@ Public Class ClsProductosServicios
     Private SqlTransacc As SqlTransaction
     Private Data As DataTable
     Private disposedValue As Boolean = False
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
+
 #End Region
 
 #Region "Propiedades"
@@ -113,7 +116,7 @@ Public Class ClsProductosServicios
         Catch ex As Exception
             OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
         End Try
-
+        ConexionAdd()
     End Sub
 
 
@@ -145,7 +148,7 @@ Public Class ClsProductosServicios
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -156,6 +159,45 @@ Public Class ClsProductosServicios
         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(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.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)
+            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
+
+        End If
+
+    End Sub
+#End Region
     Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1, Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 

App_Code/ClsProsEncuestas.vb

@@ -17,6 +17,8 @@ Public Class ClsProsEncuestas
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
 
     Private StrSQL As StringBuilder
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -48,7 +50,7 @@ Public Class ClsProsEncuestas
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -60,7 +62,44 @@ Public Class ClsProsEncuestas
         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(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.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)
+            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
+
+        End If
+
+    End Sub
+#End Region
     Public Function IniciaTransacSQL() As SqlTransaction
         If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
         Return SqlTransacc
@@ -752,6 +791,7 @@ Public Class ClsProsEncuestas
     ' 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 (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub