-parametro subproyecto en concepto 51

2020-05-26 15:00:02 -07:00
parent 08e06dbaaa
commit b8d4cd1fbf
1 changed files with 4 additions and 1 deletions
--- 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"