From a4c3f342351667d29ee7aa75e81f724c7274bb24 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 7 Apr 2022 00:06:26 -0700 Subject: [PATCH] =?UTF-8?q?Movimiento=20relacionado=20al=20realizar=20devo?= =?UTF-8?q?luci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Modelos.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 28d1e9af0..7167697c1 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5215,15 +5215,18 @@ Namespace Modelos Dim CveMovimientoDevolucion As Integer = 0 Dim Folio As Integer = 0 + Dim CveMovimientoSalida As Integer = -1 + Select Case RowMovimiento("CveConcepto").ToString().ToEntero() Case 3 CveConceptoMovimiento = 18 'DEVOLUCION DEL CLIENTE CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() + CveMovimientoSalida = RowMovimiento("CveMovimiento").ToString().ToEntero() Case 40 CveConceptoMovimiento = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() Case 18 - CveConceptoMovimiento = 3 'DEVOLUCIÓN DEL CLIENTE DIRECTA + CveConceptoMovimiento = 3 'SALIDA DE ALMACEN CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() ''SI TIENE REMISIONES RELACIONADAS 'If DtRemisionesFacturadas.Rows.Count > 0 Then @@ -5248,7 +5251,7 @@ Namespace Modelos 'SI TIENE SALDO PENDIENTE POR DEVOLVER GENERA UN MOVIMIENTO DE DEVOLUCION If ObjFactura.SaldoAlmacen <> 0 Then 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN) - CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, Modulo:="Mod/CV1") + CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="Mod/CV1") Folio = ObjInventario.Folio If CveMovimientoDevolucion > 0 Then