msg en valida comprobante

App_Code/ClsValidaCFDi.vb

@@ -112,7 +112,7 @@ Public Class ClsValidaCFDi
             End If
         Catch ex As Exception
             MsgError = "Op1. No se pudo validar la vigencia ante el SAT "
-            GuardaLog(ex.Message)
+            GuardaLog(String.Format("Op1. {0}", ex.Message))
         End Try
 
         Try
@@ -124,7 +124,7 @@ Public Class ClsValidaCFDi
                 Dim Vigencia = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor, LRFCReceptor, Importe, True)
 
                 If Vigencia IsNot Nothing Then
-                    If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
+                    If Not Vigencia.Estado.ToUpper().Contains("NO ENCONTRADO") AndAlso Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
                         EsValida = 1
                     End If
                     If Vigencia.Estado.ToUpper().Contains("CANCELADO") Then
@@ -147,7 +147,7 @@ Public Class ClsValidaCFDi
             End If
         Catch ex As Exception
             MsgError2 = "Op2. No se pudo validar la vigencia ante el SAT "
-            GuardaLog(ex.Message)
+            GuardaLog(String.Format("Op2. {0}", 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