Codigo Fuente .NET consultar RUC a SUNAT

https://www.facebook.com/groups/tecfactory

El siguiente código fuente desarrollado en Visual Studio .NET permite realizar la consulta RUC a SUNAT

1. 'JAVIER ULLOA 24NOV16
2. 'TEC FACTORY
4. Imports System.Net
5. Imports System.IO
7. Public Class frmConsultaSunat
9. #Region "VARIABLES"
11.     Private miCookie As New CookieContainer
13.     Public Enum eResultadoConsulta
14.         ConsultaSatisfactoria = 1
15.         ErrorDeCaptcha = 2
16.         RucNoEncontrado = 3
17.         Otro = 4
18.     End Enum 
19. #End Region
21. #Region "VOID"
23.     Private Function obtieneImagenCaptcha()
25.         Dim UrlCaptcha As HttpWebRequest =WebRequest.Create("http://www.sunat.gob.pe/cl-ti-itmrconsruc/captcha?accion=image")
26.         UrlCaptcha.CookieContainer = Me.miCookie
28.         ServicePointManager.SecurityProtocol =SecurityProtocolType.Ssl3
29.         UrlCaptcha.Credentials = CredentialCache.DefaultCredentials
31.         Dim Captcha As WebResponse = UrlCaptcha.GetResponse
33.         Dim imgCaptchaBinario As Stream = Captcha.GetResponseStream
35.         Return Image.FromStream(imgCaptchaBinario)
37.     End Function
39.     Public Function ObtieneDatosSunat(ByVal str_dni As String, ByVal str_captcha As String, ByVal _txtRzSoc As TextBox, ByVal _txt_tipoemp As TextBox, ByVal _txtNomCom As TextBox, ByVal _txtFecIns As TextBox, ByVal_txtFecIni As TextBox, ByVal _txtEstCont As TextBox, ByVal _txtCondCont As TextBox, ByVal _txtDirec AsTextBox, ByVal _txtTelef As TextBox) As eResultadoConsulta
40.         Dim urlReniec As String =String.Format("http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&nroRuc={0}&codigo={1}&tipdoc=1", str_dni, str_captcha)
41.         Dim enlaceReniec As HttpWebRequest =WebRequest.Create(urlReniec)
42.         enlaceReniec.CookieContainer = Me.miCookie
44.         ServicePointManager.SecurityProtocol =SecurityProtocolType.Ssl3
45.         enlaceReniec.Credentials =CredentialCache.DefaultCredentials
47.         Dim respuesta_web As WebResponse =enlaceReniec.GetResponse
49.         Dim myStream As Stream =respuesta_web.GetResponseStream
51.         Dim myStreamReader As New StreamReader(myStream)
53.         Dim Count As Integer = 0
54.         Dim LineaVerificacionTexto As String = ""
56.         Dim Adicionar As Integer = 0
57.         If Me.txtRUC.Text.Substring(0, 1) = "1" Then 'RUC 10
58.             Adicionar = 4
59.         End If
61.         While LineaVerificacionTexto = myStreamReader.ReadLine <> vbNull
63.             Count += 1
65.             LineaVerificacionTexto = myStreamReader.ReadLine.Trim
67.             Select Case Count
68.                 Case 15
69.                     If LineaVerificacionTexto = "
    "
     Then
70.                         Return eResultadoConsulta.RucNoEncontrado
71.                     End If
72.                 Case 25
73.                     If LineaVerificacionTexto.Remove(0, 17) = "El codigo ingresado es incorrecto

" Then 

                        Return eResultadoConsulta.ErrorDeCaptcha

                    End If

                Case 61

                    _txtRzSoc.Text = LineaVerificacionTexto '
20482736450 - EMDERSOFT S.A.C.

                    Me.quitaEtiquetas(_txtRzSoc)

                    _txtRzSoc.Text =_txtRzSoc.Text.Remove(0, 15)

                Case 63

                    _txt_tipoemp.Text =LineaVerificacionTexto '
SOCIEDAD ANONIMA CERRADA

                    Me.quitaEtiquetas(_txt_tipoemp)

                Case 66

                    _txtNomCom.Text = LineaVerificacionTexto

                Case 68 + Adicionar

                    _txtFecIns.Text = LineaVerificacionTexto '
28/10/2010

                    If Me.txtRUC.Text.Substring(0, 1) = "1" Then

                        _txtFecIns.Text = myStreamReader.ReadLine.Trim

                    End If

                    Me.quitaEtiquetas(_txtFecIns)

                Case 69 + Adicionar

                    _txtFecIni.Text = LineaVerificacionTexto '
29/11/2010

                    Me.quitaEtiquetas(_txtFecIni)

                Case 71 + Adicionar

                    _txtEstCont.Text = LineaVerificacionTexto '
ACTIVO

                    Me.quitaEtiquetas(_txtEstCont)

                Case 76 + Adicionar

                    _txtCondCont.Text = LineaVerificacionTexto

                Case 79 + Adicionar

                    _txtDirec.Text = LineaVerificacionTexto '
----PR.MIRAFLORES NRO. 2099 URB.  MANPUESTO (COSTADO PARROQUIA SAN ESTEBAN)LA LIBERTAD  

                    Me.quitaEtiquetas(_txtDirec)

                    _txtDirec.Text = _txtDirec.Text.Replace("----", "")

                    _txtDirec.Text = _txtDirec.Text.Trim

                Case 81 + Adicionar

                    LineaVerificacionTexto = myStreamReader.ReadLine.Trim

                    Me.txtTelefono.Text = LineaVerificacionTexto '

                    Me.txtTelefono.Text = Me.txtTelefono.Text.Replace("", "")

                    Me.quitaEtiquetas(txtTelefono)

                    Return eResultadoConsulta.ConsultaSatisfactoria

            End Select

        End While

        Return eResultadoConsulta.Otro

    End Function

    Private Sub quitaEtiquetas(ByVal _txt As TextBox)

        _txt.Text = _txt.Text.Remove(0, 25)

        _txt.Text = _txt.Text.Replace("

", "")

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.pbCapcha.Image = Me.obtieneImagenCaptcha

        Me.txtEscribirCodigo.Select()

    End Sub

    Private Sub LimpiarCajas()

        Me.txtRazonSocial.ResetText()

        Me.txtTipoEmpresa.ResetText()

        Me.txtNombreComercial.ResetText()

        Me.txtFechaInicioActividades.ResetText()

        Me.txtFechaInscripcion.ResetText()

        Me.txtEstadoContribuyente.ResetText()

        Me.txtDireccion.ResetText()

    End Sub

    Private Sub cmdConsultaDNI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlescmdConsultaDNI.Click

        Me.LimpiarCajas()

        Select Case Me.ObtieneDatosSunat(Me.txtRUC.Text.Trim, Me.txtEscribirCodigo.Text.Trim, Me.txtRazonSocial, Me.txtTipoEmpresa, Me.txtNombreComercial, Me.txtFechaInscripcion, Me.txtFechaInicioActividades, Me.txtEstadoContribuyente, Me.txtCondicionContribuyente, Me.txtDireccion, txtTelefono)

            Case eResultadoConsulta.ConsultaSatisfactoria

                Me.cmdRefrescar.PerformClick()

            Case eResultadoConsulta.RucNoEncontrado

                Me.cmdRefrescar.PerformClick()

                Me.lblError.Text = "RUC NO ENCONTRADO"

                Me.lblError.Visible = True

                Me.txtRUC.ResetText()

            Case eResultadoConsulta.ErrorDeCaptcha

                Me.cmdRefrescar.PerformClick()

                Me.lblError.Text = "ERROR DE CAPTCHA"

                Me.lblError.Visible = True

            Case Else

                Me.lblError.Visible = False

        End Select

    End Sub

    Private Sub cmdRefrescar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlescmdRefrescar.Click

        Me.pbCapcha.Image = Me.obtieneImagenCaptcha

        Me.lblError.Visible = False

        Me.txtEscribirCodigo.ResetText()

    End Sub

End Class

https://www.facebook.com/groups/tecfactory

DESCARGAR AQUI

https://drive.google.com/file/d/0Bwb7OYHoadH7REFzM3pQZFZ0dWM/view?usp=sharing