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