Funcionalidad de verificacion ante el sat

App_Code/Modelos.vb

@@ -4407,6 +4407,9 @@ Namespace Modelos
                     If ObjFactura.FolioFiscal <> "" Then
                         If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs") Then
 
+                            'VERIFICA SI DEBE VALIDAR ANTE EL SAT
+                            If Not (UsuarioActual.Empresa.Funcionalidad(529) = "1") Then
+
                                 Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), UsuarioActual.Empresa.FacturaProduccion)
 
                                 If Vigencia IsNot Nothing Then
@@ -4465,6 +4468,19 @@ Namespace Modelos
 
                                     Return Retorno
                                 End If
+                            Else
+                                ObtenerAcuse = False
+                                ContinuarCancelacion = True
+                                CancelacionFecha = Now.Date
+                                CancelacionAcuse = ""
+
+                                Dim diasTimbrado As Decimal = DateDiff(DateInterval.Day, ObjFactura.FechaCP, Now)
+
+                                If ObjFactura.Total < 5000D OrElse diasTimbrado <= 3 OrElse ObjFactura.Cliente.RFC.Contiene("XAXX010101000", "XEXX010101000") Then
+                                    RequiereAceptacion = False
+                                End If
+
+                            End If
 
                             If Not ObtenerAcuse Then
                                 If ContinuarCancelacion Then

App_Code/Timbrado.vb

@@ -59,6 +59,8 @@ Public Class Timbrado
     Public Function CFDICancelar(Empresa As Empresa, FolioFiscal As String, Total As Decimal, RFCReceptor As String, RFCEmisor As String, Optional CvePACCancelacion As Integer = 2, Optional ValidaFactura As Boolean = True) As Boolean
         Dim Retorno As Boolean = False
         Dim MsgCancelacion As New StringBuilder
+
+        If Not (Empresa.Funcionalidad(529) = "1") Then
             If ValidaFactura Then
                 Dim Vigencia = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True)
                 If Vigencia IsNot Nothing Then
@@ -69,7 +71,7 @@ Public Class Timbrado
                     Return False
                 End If
             End If
-
+        End If
 
         MsgCancelacion.AppendFormat("CvePAC:{0}", CvePACCancelacion)