--parche para cancelacion de facturas emitidas con el PAC 5

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)