From 195067ca621e3091e6630c972d0d3a64e605c2cf Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 19 Dec 2023 15:22:11 -0700 Subject: [PATCH] =?UTF-8?q?--=20contabilizaci=C3=B3n=20de=20virtuales?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index ca4a10afd..6323d0321 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -5410,8 +5410,8 @@ Partial Class Inventarios_EntradasSalidas If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then dttCosto = ObjInventario.DtResultados End If - Dim tCveMovtoSalida As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1) - Dim tCveMovtoEntrada As Integer = If(tOrigen > 0, -1, CveMovimientoVirtual) + Dim tCveMovtoEntrada As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1) + Dim tCveMovtoSalida As Integer = If(tOrigen > 0, -1, CveMovimientoVirtual) If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then ErrorMovInv = True End If