From aef21c9409c9ec3e632bf2874cce6a0241b3a6e1 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 5 Jun 2020 19:01:13 -0700
Subject: [PATCH] conexion

---
 App_Code/ClsClientes.vb | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 0904a892b..ef09f2a2c 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -23,11 +23,13 @@ Public Class ClsClientes
     'Atributos de la clase
     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 Property CveCliente As Integer
     Public Property Nombre As String
     Public Property NombreComercial As String
@@ -186,7 +188,8 @@ Public Class ClsClientes
             End Try
         Else
             SqlConexion = TransaccionCompartida.Connection
-            SqlTransacc = TransaccionCompartida
+            SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlCommand = New SqlCommand("", SqlConexion)
@@ -201,11 +204,11 @@ Public Class ClsClientes
         End With
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
-    End Sub
+    End Sub
 #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