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

51
App_Code/ClsValidaCFDi.vb
View File

@@ -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/"