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

App_Code/ClsClientes.vb

@@ -24,6 +24,8 @@ Public Class ClsClientes
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIÓN
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
+
 #End Region
 
 #Region "Propiedades"
@@ -187,6 +189,7 @@ Public Class ClsClientes
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlCommand = New SqlCommand("", SqlConexion)
@@ -205,7 +208,7 @@ Public Class ClsClientes
 #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