jviersalas

Pequeño POST para hacer publico una pequeña funcion para tomar informacion en ASP del rif en Venezuela Sub xmlRazonSocial() Dim xmlLector As XmlTextReader Dim razon, rif As String 'se le quitan las comillas para ser validado en el seniat rif = txtRif.Text.Replace("-", "" 'esta variable capturar el xml del seniat xmlLector = New XmlTextReader("http://contribuyente.seniat.gob.ve/getContribuyente/getrif?rif=" & rif) Try xmlLector.WhitespaceHandling = WhitespaceHandling.None xmlLector.Read() 'se recorre el XML While Not xmlLector.EOF xmlLector.Read() If Not xmlLector.IsStartElement() Then Exit While End If 'Se busca el padre de los nodos en este casa rif:Rif Dim rifAtributo = xmlLector.GetAttribute("rif:Rif" xmlLector.Read() razon = xmlLector.ReadElementString("rif:Nombre" xmlLector.Read() End While txtRazon.Text = razon btnBuscar.Enabled = True lbMensajeBuscar.Text = "" btnBuscar.Enabled = True Catch ex As Exception lbMensajeBuscar.Text = "Ocurrio un error con el rif " & txtRif.Text & "." End Try End Sub