From 4d3dfca414168039dc6b6d31f7db047fd9bd91f3 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 6 Jul 2023 16:35:14 -0700
Subject: [PATCH] --parche para cancelacion de facturas emitidas con el PAC 5

---
 App_Code/Timbrado.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index d6d8c9bc3..b1c6e5157 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -222,6 +222,11 @@ Public Class Timbrado
             ValidaFactura = False
         End If
 
+        'TEMPORAL. PARCHE PARA CANCELAR DOCUMENTOS EMITIDOS CON EL PAC 5
+        If CvePACCancelacion = 5 Then
+            CvePACCancelacion = 4
+        End If
+
         If Not (Empresa.Funcionalidad(529) = "1") Then
             If ValidaFactura Then
                 Dim Vigencia = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True)