From 3ff288c628ef27107072b25233af80cbb18cae6e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 2 Dec 2019 16:59:17 -0700 Subject: [PATCH] Validacion de saldo almacen --- Ventas/Ventas.aspx.vb | 21 ++------------------- 1 file changed, 2 insertions(+), 19 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 50bb5ccd1..1e5a1e1b4 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -15255,7 +15255,8 @@ Partial Class Ventas DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0") End If - If DtMovimientos.Rows.Count > 0 Then + 'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR + If DtMovimientos.Rows.Count > 0 AndAlso (DtMovimientosDetalles.Rows.Count > 0 AndAlso DtMovimientosDetalles.SUM("SaldoAlmacen") > 0) Then Dim GeneroMovimientoAlmacen As Boolean = False For Each dr As DataRow In DtMovimientos.Rows 'Obtenemos los Movimientos de salida @@ -15360,24 +15361,6 @@ Partial Class Ventas End If ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then - 'If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then - ' Dim CveTipoAlmacen As Integer = ObjInventario.DtResultados.Rows(0)("CveTipoAlmacen").ToString().ToEntero() - ' If CveTipoAlmacen = 24 Then - ' Dim RowMov As DataRow = ObjInventario.DtResultados.Rows(0) - - ' Dim CveMovimientoSalida As Integer = RowMov("CveMovimiento").ToString().ToEntero() - ' Dim CveAlmacen As Integer = RowMov("CveAlmacen").ToString().ToEntero() - ' Dim CveMoneda As Integer = RowMov("CveMoneda").ToString().ToEntero() - - ' GeneroMovimientoAlmacen = GenerarMovimientoAlmacenVirtual(ObjInventario, CveMovimientoSalida, CveAlmacen, CveMoneda) > 0 - - ' If Not GeneroMovimientoAlmacen Then - ' OcurrioError = True - ' Exit For - ' End If - ' End If - 'End If - 'Esquema viejo, evitamos que aparezca por surtir If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then OcurrioError = True