Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

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

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1019,7 +1019,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 CveImportacionSurtir = pCveImportacion
                 CveImportacionProveedor = ddlProveedor.SelectedValue.ToEntero
                 CveImportacionCompra = DdlFactura.SelectedValue.ToEntero
-                LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("Aduanal").ToString
+                LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("ProveedorCompra").ToString
                 HLFolio.Text = ObjCompras.DtResultados.Rows(0)("PedimentoDescripcion").ToString
                 If UsuarioActual.TienePermisoProceso(201) Then
                     HLFolio.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={CveImportacionSurtir}"
@@ -3100,12 +3100,13 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
         Dim CvePrePoliza As Integer = 0
         Dim UsaComplementariaCostoIndirecto As Boolean = False
+        Dim ConceptoPrePoliza As String = LbProveedor.Text
         If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False
         Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo
 
         'SE REGISTRAN LAS PREPOLIZAS
         If Not ErrorMovInv Then
-            CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, TxtObservaciones.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, ConceptoPrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             Dim DtTempCompras As DataTable = Nothing
             PorcentajeCompraImportacion = 1
             If CveFleteSurtir > 0 Then