Calcular seccion almacen en el trigger

Ventas/Ventas.aspx.vb

@@ -16650,6 +16650,7 @@ Partial Class Ventas
         '    End If
         'End If
         'Creamos el movimiento
+
         Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
                                                                              CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Vta/E4")
 
@@ -16674,7 +16675,7 @@ Partial Class Ventas
                 Dim Serie As String = MovDet("Serie").ToString()
                 Dim Lote As String = MovDet("Lote").ToString()
                 Dim FechaCaducidad As Date = MovDet("FechaCaducidad").ToString.ToDate
-                Dim CveSeccionAlmacen As Integer = MovDet("CveSeccionAlmacen").ToString.ToEntero
+                Dim CveSeccionAlmacen As Integer = -3 'SE DEBE CALCULAR LA SECCION EL EN TRIGGER DE INVENTARIOS
                 Dim Consec As Integer = DtRemisionesTmpDT.FiltroPrimeroValor("Consec", $"CveVentaDetalle = {MovDet("CveVentaDetalle").ToString()}").ToEntero()
 
                 'COMIENZA: VENTADETALLE