From f826a82ac093946554907d606717602048fb9a6c Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Sat, 13 Jun 2020 10:34:40 -0700
Subject: [PATCH] --conexion

---
 App_Code/ClsClasificaciones.vb | 13 ++++++++-----
 App_Code/ClsUnidadesMedida.vb  |  4 +++-
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb
index 78f93277e..d49f390ca 100644
--- a/App_Code/ClsClasificaciones.vb
+++ b/App_Code/ClsClasificaciones.vb
@@ -21,11 +21,13 @@ Public Class ClsClasificaciones
     Private Data As DataTable
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIÓN
-    Private CveConexion As Integer = 0
+    Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
+
 #End Region
-
+
 #Region "Propiedades"
-
+
     Public ReadOnly Property DtResultados() As DataTable
         Get
             DtResultados = Data
@@ -46,7 +48,8 @@ Public Class ClsClasificaciones
             End Try
         Else
             SqlConexion = TransaccionCompartida.Connection
-            SqlTransacc = TransaccionCompartida
+            SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlCommand = New SqlCommand("", SqlConexion)
@@ -67,7 +70,7 @@ Public Class ClsClasificaciones
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters
diff --git a/App_Code/ClsUnidadesMedida.vb b/App_Code/ClsUnidadesMedida.vb
index 5df5ed959..69e51e5f8 100644
--- a/App_Code/ClsUnidadesMedida.vb
+++ b/App_Code/ClsUnidadesMedida.vb
@@ -19,6 +19,7 @@ Public Class ClsUnidadesMedida
     Private disposedValue As Boolean = False
     'PARA REGISTRAR CONEXION
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 #End Region
 
 #Region "Propiedades"
@@ -69,6 +70,7 @@ Public Class ClsUnidadesMedida
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
@@ -86,7 +88,7 @@ Public Class ClsUnidadesMedida
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso 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