From f4ab75336418ee86e00d53964a245c9fd8b3131c Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 30 Apr 2022 15:32:53 -0700
Subject: [PATCH] Cancelar como refacturacion las que tienen el estatus de
 refacturacion en 4

---
 App_Code/Modelos.vb | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index e6fbe82fd..7a6893c9d 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4668,6 +4668,13 @@ Namespace Modelos
             Dim TieneAlmacen As Boolean = False
             Dim AplicaRefacturacionConPagos As Boolean = False
 
+            Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
+
+            'SI YA FUE MARCADA COMO REFACTURACION Y FUE SEPARADA, MANTENER EL COMPORTAMIENTO DE CANCELACION COMO REFACTURACION
+            If Not EsRefacturacion AndAlso CveEstatusRefacturacion = 4 Then
+                EsRefacturacion = True
+            End If
+
             '1 NORMAL, 2 CON PAGOS
             Dim ModalidadRefacturacion As Integer = UsuarioActual.Empresa.Funcionalidad(586).ToEntero()
 
@@ -4800,11 +4807,7 @@ Namespace Modelos
                 Return Retorno
             End If
 
-
-            Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
-
-
-            If Not EsRefacturacion Then
+            If Not EsRefacturacion AndAlso CveEstatusRefacturacion <> 4 Then
                 CveEstatusRefacturacion = 0
             End If