diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 03a37d2fa..f7c161809 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -128,6 +128,7 @@ Public Class ClsInventarios
     Public Property CveRemanufactura As Integer
     Public Property ResponsableCarga As String
     Public Property ResponsableRecibio As String
+    Public Property Modulo As String
 
 
 
@@ -851,6 +852,7 @@ Public Class ClsInventarios
                 PuestoRecibio = dr("PuestoEntrego").ToString
                 ResponsableCarga = dr("ResponsableCarga").ToString
                 ResponsableRecibio = dr("ResponsableRecibio").ToString
+                Modulo = dr("Modulo").ToString
 
                 Retorno = True
             End If
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 54a7daf21..d094c150b 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -616,7 +616,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
         Dim ObjInventarios As New ClsInventarios
         If ddlProveedor.SelectedValue.ToEntero > 0 Then
-            If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveEmpresa) Then
+            If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 Dim FiltroTemporal = If(UsuarioActual.CveEmpresa = 119, "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')")
                 DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}")
             Else
@@ -695,7 +695,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjInventarios As New ClsInventarios
         Dim DtPendientes As New DataTable
 
-        If ObjInventarios.ComprasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, UsuarioActual.CveEmpresa) Then
+        If ObjInventarios.ComprasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             Dim FiltroTemporal = If(UsuarioActual.CveEmpresa.Contiene(119, 140), "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')")
             DtPendientes = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}")
         Else
@@ -1975,7 +1975,7 @@ Partial Class Inventarios_RecepcionAlmacen
             Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo)
             If CantidadGV <> CantConsulta Then
                 CargaFleteSurtir(CveFleteSurtir)
-                Alert("Ha sido cambiada la informacion de existencias costo indirecto actual, se han recargado la información.", TipoMensaje.MsgAdvertencia)
+                Alert(String.Format("Ha sido cambiada la informacion de existencias costo indirecto actual, se han recargado la información.[{0}-{1}]", CantidadGV, CantConsulta), TipoMensaje.MsgAdvertencia)
                 ObjComprasDif.Dispose()
                 Return False
             End If
@@ -3151,6 +3151,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             drc("SubTotal") = drr("SubTotal")
                             drc("TipoCambio") = drr("TipoCambio")
                             drc("CveProveedor") = drr("CveProveedor")
+                            drc("SubTotalTC") = drr("SubTotalTC")
                             DtTempCompras.Rows.Add(drc)
                         End If