From 527026f29311755d235f9332829e5ad8ba93157a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 15 Feb 2021 20:19:43 -0700
Subject: [PATCH] msg en valida comprobante

---
 App_Code/ClsValidaCFDi.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsValidaCFDi.vb b/App_Code/ClsValidaCFDi.vb
index b946465f8..66d701fa5 100644
--- a/App_Code/ClsValidaCFDi.vb
+++ b/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