From f8390fb0a4a249b0206b19bdf2aefe88b1a9f7db Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 9 Oct 2020 12:17:15 -0700
Subject: [PATCH] -- cambio de parametro de envio en cveseccion cuando es
 aprtado, se manda ahora -3

---
 Inventarios/RecepcionAlmacen.aspx.vb | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 5022d6ebb..fb0028b30 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2637,12 +2637,8 @@ Partial Class Inventarios_RecepcionAlmacen
                                 ErrorMovInv = True
                                 Exit For
                             End If
-                            If CBool(Dr("AplicaSeccion")) Then
-                                CveSeccionDestino = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenDestino, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                            Else
-                                CveSeccionDestino = -1
-                            End If
 
+                            CveSeccionDestino = -3 'se madna este dato, para que el trigger, obtenga la seccion automaticamente
 
                             If Not ObjInventario.AddMovimientoDetalle(CveMovtoEntradaActual, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionDestino, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 ErrorMovInv = True