diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index a0b2632f5..b9dec00ba 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3711,7 +3711,10 @@ Partial Class Inventarios_EntradasSalidas
                 Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL()
                 ValorSalida = tValorInventario
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
-                If drA2 IsNot Nothing Then idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero
+                If drA2 IsNot Nothing Then
+                    idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero
+                    tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+                End If
             Else
                 ErrorMovInv = True
                 Mensaje = "Ocurrió un error al validar los movimientos contables de salida"