No se puede obtener la propiedad "CreateElement" de referencia nula o sin definir
Publicado por Mina (3 intervenciones) el 30/04/2020 19:04:59
Buen día, estamos haciendo una descarga masiva del SAT desde vb.net pero al iniciar sesión manda el siguiente error, adjunto código he imágenes de los errores.
aquí parte de mi código donde inicio sesión.
Gracias.
aquí parte de mi código donde inicio sesión.
Gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Sub New()
InitializeComponent()
_wbsat.Navigate("https://cfdiau.sat.gob.mx/nidp/app/login?id=SATUPCFDiCon&sid=0&option=credential&sid=0")
AddHandler Me._wbsat.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf Me.wbsat_DocumentCompleted)
'Me.InitControls()
End Sub
Private Sub Authenticate()
Try
Dim uri As System.Uri = New System.Uri(String.Format("https://cfdiau.sat.gob.mx/nidp/app/login?id=SATUPCFDiCon&sid=0&option=credential&sid=0&Ecom_User_ID={0} &Ecom_Password={1}&userCaptcha={2}", Me.TxRfc.Text.Trim.ToUpper(), Me.TxContraseña.Text.Trim(), Me.Txcaptcha.Text.Trim()))
'MsgBox(String.Format("Iniciando sesion del usuario {0}.", Me.TxRfc.Text.Trim.ToUpper()))
Me._wbsat.Navigate(uri)
Catch exception As System.Exception
Throw New System.Exception(exception.Message)
End Try
End Sub
Private Sub wbsat_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
If (Me._wbsat.Url = New Uri("https://cfdiau.sat.gob.mx/nidp/portal?locale=en_US") Or _
Me._wbsat.Url = New Uri("https://cfdiau.sat.gob.mx/nidp/portal?locale=es_MX") Or _
Me._wbsat.Url = New Uri("https://cfdiau.sat.gob.mx/nidp/portal?locale=es_ES") Or _
Me._wbsat.Url = New Uri("https://cfdiau.sat.gob.mx/nidp/app?sid=0")) Then
Me.Message(String.Format("Usuario {0} Autentificado correctamente.", TxRfc.Text))
'HabilitarDeshabilitarControles(False)
MsgBox("BIENVENIDO!! " & TxRfc.Text) 'COMENTAR
If (Me.RbRecibidos.Checked) Then 'VALIDAMOS EL TIPO DE RECIBO
Me._wbsat.Navigate("https://portalcfdi.facturaelectronica.sat.gob.mx/ConsultaReceptor.aspx")
End If
If (Me.RbEmitidos.Checked) Then
Me._wbsat.Navigate("https://portalcfdi.facturaelectronica.sat.gob.mx/ConsultaEmisor.aspx")
End If
End If
end sub
Private Sub btnDescargarSat_Click(sender As Object, e As EventArgs) Handles btnDescargarSat.Click
Me.Authenticate()
end sub
- errores_descarga_xml.rar(86,7 KB)
Valora esta pregunta


0