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

msg validación

Browse Source
This commit is contained in:
rrene
2021-02-11 15:16:36 -07:00
parent 5f02fc373e
commit d3e892d8cd
1 changed files with 32 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
App_Code/ClsValidaCFDi.vb
View File

@@ -84,7 +84,9 @@ Public Class ClsValidaCFDi
End Function 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 Try
Dim wsConsultaCFDI As New wsValidaCFDi2.ConsultaCFDIServiceClient Dim wsConsultaCFDI As New wsValidaCFDi2.ConsultaCFDIServiceClient
@@ -93,8 +95,6 @@ Public Class ClsValidaCFDi
'oAcuse = wsConsultaCFDI.Consulta("?re=BEN9501023I0&rr=SARM8209281F1&tt=440.000000&id=EC609EC1-5F63-4333-A2B8-2EDC10B68075") '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 '?re=BEN9501023I0&rr=SARM8209281F1&tt=440.000000&id=EC609EC1-5F63-4333-A2B8-2EDC10B68075
Dim Importe As String = LImporte.ToString("F6").PadLeft(17, "0")
oAcuse = wsConsultaCFDI.Consulta(String.Format("?re={0}&rr={1}&tt={2}&id={3}", LRFCEmisor, LRFCReceptor, Importe, LFolioFiscal.ToUpper)) 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") 'oAcuse = wsConsultaCFDI.Consulta("?re=LESA6211234B2&rr=GCO890418M56&tt=0000001360.000000&id=0C8BAD9C-A8C6-4A48-8FF5-0687AC6F1581")
'Alert(oAcuse.Estado) 'Alert(oAcuse.Estado)
@@ -110,6 +110,13 @@ Public Class ClsValidaCFDi
Else Else
EnListaEFOS = False EnListaEFOS = False
End If 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 'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION
If EsValida = 0 Then If EsValida = 0 Then
@@ -132,18 +139,24 @@ Public Class ClsValidaCFDi
End If End If
Else Else
EsValida = 0 EsValida = 0
End If End If
Else Else
EsValida = 0 EsValida = 0
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al consultar la vigencia ante el SAT", ex) MsgError2 = "Op2. No se pudo validar la vigencia ante el SAT "
GuardaLog(ex.Message)
End Try 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 End Sub
Private Sub Verificar() Private Sub VerificaWeb()
Try Try
Dim URL As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/" Dim URL As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/"