From b8d4cd1fbf2bb381b78b4e13551a3b9cd263a8ee Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 26 May 2020 15:00:02 -0700
Subject: [PATCH] -parametro subproyecto en concepto 51

---
 Inventarios/EntradasSalidas.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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"