diff --git a/App_Code/ClsValidaCFDi.vb b/App_Code/ClsValidaCFDi.vb
index 4707619ca..b946465f8 100644
--- a/App_Code/ClsValidaCFDi.vb
+++ b/App_Code/ClsValidaCFDi.vb
@@ -83,18 +83,18 @@ Public Class ClsValidaCFDi
         Return Me.EsValida
     End Function
 
-    Private Sub VerificaCFDI()
-
+    Private Sub VerificaCFDI()
+        Dim Importe As String = LImporte.ToString("F6").PadLeft(17, "0")
+        Dim MsgError As String = ""
+        Dim MsgError2 As String = ""
         Try
 
             Dim wsConsultaCFDI As New wsValidaCFDi2.ConsultaCFDIServiceClient
-            Dim oAcuse As New wsValidaCFDi2.Acuse
-
-            'oAcuse = wsConsultaCFDI.Consulta("?re=BEN9501023I0&rr=SARM8209281F1&tt=440.000000&id=EC609EC1-5F63-4333-A2B8-2EDC10B68075")
-            '?re=BEN9501023I0&rr=SARM8209281F1&tt=440.000000&id=EC609EC1-5F63-4333-A2B8-2EDC10B68075
-
-            Dim Importe As String = LImporte.ToString("F6").PadLeft(17, "0")
-
+            Dim oAcuse As New wsValidaCFDi2.Acuse
+
+            'oAcuse = wsConsultaCFDI.Consulta("?re=BEN9501023I0&rr=SARM8209281F1&tt=440.000000&id=EC609EC1-5F63-4333-A2B8-2EDC10B68075")
+            '?re=BEN9501023I0&rr=SARM8209281F1&tt=440.000000&id=EC609EC1-5F63-4333-A2B8-2EDC10B68075
+
             oAcuse = wsConsultaCFDI.Consulta(String.Format("?re={0}&rr={1}&tt={2}&id={3}", LRFCEmisor, LRFCReceptor, Importe, LFolioFiscal.ToUpper))
             'oAcuse = wsConsultaCFDI.Consulta("?re=LESA6211234B2&rr=GCO890418M56&tt=0000001360.000000&id=0C8BAD9C-A8C6-4A48-8FF5-0687AC6F1581")
             'Alert(oAcuse.Estado)
@@ -106,12 +106,19 @@ Public Class ClsValidaCFDi
             End If
 
             If oAcuse.ValidacionEFOS = "100" Then
-                EnListaEFOS = True 
+                EnListaEFOS = True
             Else
                 EnListaEFOS = False
-            End If
-
-            'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION
+            End If
+        Catch ex As Exception
+            MsgError = "Op1. No se pudo validar la vigencia ante el SAT "
+            GuardaLog(ex.Message)
+        End Try
+
+        Try
+
+
+            'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION
             If EsValida = 0 Then
 
                 Dim Vigencia = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor, LRFCReceptor, Importe, True)
@@ -132,18 +139,24 @@ Public Class ClsValidaCFDi
                         End If
                     Else
                         EsValida = 0
+
                     End If
                 Else
                     EsValida = 0
                 End If
-            End If
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al consultar la vigencia ante el SAT", ex)
-        End Try
+            End If
+        Catch ex As Exception
+            MsgError2 = "Op2. No se pudo validar la vigencia ante el SAT "
+            GuardaLog(ex.Message)
+        End Try
+        'sino se pudo validar, que muestre el mensaje de error, pero solo un mensaje
+        If EsValida = 0 AndAlso (MsgError <> "" OrElse MsgError2 <> "") Then
+            If MsgError <> "" Then Alert(MsgError, TipoMensaje.MsgError) Else If MsgError2 <> "" Then Alert(MsgError2, TipoMensaje.MsgError)
+        End If
+
     End Sub
 
-    Private Sub Verificar()
+    Private Sub VerificaWeb()
         Try
 
             Dim URL As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/"