Cancelar como refacturacion las que tienen el estatus de refacturacion en 4

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