AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

msg en valida comprobante

Browse Source
This commit is contained in:
rrene
2021-02-15 20:19:43 -07:00
parent ae50c82b3b
commit 527026f293
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsValidaCFDi.vb
View File

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