From 06bfe3f00928d9aa78472accf98a763db83019b6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 9 Apr 2024 23:19:04 -0700 Subject: [PATCH] --Temporal. No generar salida en factura global --- App_Code/Modelos.vb | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 3a6b40a06..2c1c5dec4 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4318,14 +4318,22 @@ Namespace Modelos End If End If - If RemisionesLista IsNot Nothing AndAlso factura.TipoDocto = "Ing" AndAlso RemisionesLista.Count > 0 Then - For Each CveRemision As Integer In RemisionesLista - 'El almacen general es el Primer Almacen de Material en la Sucursal - If Not TraspasoAlmacen(ObjInventario, ObjVentas, CveRemision, ObjConta, True, 9, factura.EsFacturaGlobal) Then - OcurrioError = True - Exit For - End If - Next + + 'TEMPORAL. PARA OPTIMIZAR LOS TIEMPOS PARA LA GENERACION DE LA FACTURA GLOBAL + If factura.EsFacturaGlobal Then + If Not ObjInventario.ActualizarEsDevolucionVenta(factura.CveVenta, 2) Then + OcurrioError = True + End If + Else + If RemisionesLista IsNot Nothing AndAlso factura.TipoDocto = "Ing" AndAlso RemisionesLista.Count > 0 Then + For Each CveRemision As Integer In RemisionesLista + 'El almacen general es el Primer Almacen de Material en la Sucursal + If Not TraspasoAlmacen(ObjInventario, ObjVentas, CveRemision, ObjConta, True, 9, factura.EsFacturaGlobal) Then + OcurrioError = True + Exit For + End If + Next + End If End If If factura.TipoDocto = "Rem" AndAlso factura.ServicioDomicilio Then