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)