From 9773f372e8b0dc6c28d636333657cba7aa40e61e Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 9 Oct 2020 14:07:08 -0700
Subject: [PATCH] -- cambio en envios de seccion -3

---
 Ventas/Ventas.aspx.vb | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6b1589eed..84a238764 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12073,8 +12073,8 @@ Partial Class Ventas
                                             Exit For
                                         End If
                                     End If
-                                    Dim CveSeccionAlmacen As Integer = -1
-                                    If AplicaSeccion Then CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacen, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero
+                                    Dim CveSeccionAlmacen As Integer = -3
+                                    'If AplicaSeccion Then CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacen, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero
 
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Serie:=Dr("Serie").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
                                         OcurrioError = True
@@ -21609,11 +21609,12 @@ Partial Class Ventas
                             Return False
                         End If
 
-                        If AplicaSeccion Then
-                            CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                        Else
-                            CveSeccionAlmacen = -1
-                        End If
+                        'If AplicaSeccion Then
+                        '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                        'Else
+                        '    CveSeccionAlmacen = -1
+                        'End If
+                        CveSeccionAlmacen = -3
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, 1, CveUnidad, CveProducto, 0, -1, Serie:=Dr2("Serie").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
                             Return False
@@ -21625,11 +21626,12 @@ Partial Class Ventas
                         Return False
                     End If
 
-                    If AplicaSeccion Then
-                        CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                    Else
-                        CveSeccionAlmacen = -1
-                    End If
+                    'If AplicaSeccion Then
+                    '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                    'Else
+                    '    CveSeccionAlmacen = -1
+                    'End If
+                    CveSeccionAlmacen = -3
 
                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, Cantidad, CveUnidad, CveProducto, 0, -1, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
                         Return False