From e820db10e3bae0d07f3157fd76d6393899d103c0 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 19 Dec 2023 12:25:30 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20naturaleza=20de=20p?= =?UTF-8?q?repolizas,=20en=20movto=20virtual?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 2f9b592ca..ca4a10afd 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -5410,8 +5410,9 @@ Partial Class Inventarios_EntradasSalidas If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then dttCosto = ObjInventario.DtResultados End If - - If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", CveMovimientoVirtual, -1, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then + Dim tCveMovtoSalida As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1) + Dim tCveMovtoEntrada 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 End If