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