Home » » Consulta de datos SUNAT por RUC - VisuaI Basic 6.0

Consulta de datos SUNAT por RUC - VisuaI Basic 6.0


LES DEJO EL CODIGO PARA CONSULTAR RUC DE LA SUNAT

AQUI LES DEJO EL CODIGO VISUAL BASIC 6.0


' NO OLVIDEN REFERENCIAS --> a Microsoft XML v2.6 ACTIVEN EL CHECK

Option Explicit
Dim xDat As String
Dim xRazSoc As String, xEst As String, xCon As String, xDir As String
Dim xRazSocX As Long, xEstX As Long, xConX As Long, xDirX As Long
Dim xRazSocY As Long, xEstY As Long, xConY As Long, xDirY As Long
Private Sub btnCon_Click()
    If Trim(txtRuc.Text) = "" Then
        MsgBox "Ingrese número del RUC"
        txtRuc.SetFocus
        Exit Sub
    End If
    If IsNumeric(txtRuc.Text) = True Then
        If Len(txtRuc.Text) < 11 Then
            Limpiar
            MsgBox "Ingrese los 11 números del RUC"
            txtRuc.SetFocus
            Exit Sub
        End If
        If Val(Mid(Trim(txtRuc.Text), 2, 9)) = 0 Or Trim(txtRuc.Text) = "23333333333" Then
            Limpiar
            MsgBox "Verificar número del RUC"
            txtRuc.SetFocus
            Exit Sub
        End If
        If Verificar_ruc(txtRuc.Text) = False Then
            Limpiar
            MsgBox "El número del RUC no es válido"
            txtRuc.SetFocus
            Exit Sub
        End If
'        RUC txtRuc.Text
        OTRO txtRuc.Text
    Else
        Limpiar
        MsgBox "Solo se aceptan números"
        txtRuc.SetFocus
    End If
End Sub
Private Sub RUC(ByVal xNum As String)
 On Error Resume Next
    Dim xWml As New XMLHTTP
    xWml.open "POST", "http://www.sunat.gob.pe/w/wapS01Alias?ruc=" & xNum, False
    xWml.send
    If xWml.Status = 200 Then
        Limpiar
        xDat = xWml.responseText
        If Len(xDat) <= 635 Then
            Habilitar False
            MsgBox "El numero Ruc ingresado no existe en la Base de datos de la SUNAT"
            Set xWml = Nothing
            txtRuc.SetFocus
            Exit Sub
        End If
        Habilitar True
        xDat = Replace(xDat, "N&#xFA;mero Ruc. </b> " & xNum & " - ", "RazonSocial:")
        xDat = Replace(xDat, "Estado.</b>", "Estado:")
        xDat = Replace(xDat, "Agente Retenci&#xF3;n IGV.", "ARIGV:")
        xDat = Replace(xDat, "Situaci&#xF3;n.<b> ", "Situacion:")
        xDat = Replace(xDat, "Direcci&#xF3;n.</b><br/>", "Direccion:")
        xDat = Replace(xDat, "     ", " ")
        xDat = Replace(xDat, "    ", " ")
        xDat = Replace(xDat, "   ", " ")
        xDat = Replace(xDat, "  ", " ")
        xDat = Replace(xDat, "( ", "(")
        xDat = Replace(xDat, " )", ")")
       
        xRazSocX = InStr(1, xDat, "RazonSocial:", vbTextCompare)
            xRazSocY = InStr(1, xDat, " <br/></small>", vbTextCompare)
            xRazSocX = xRazSocX + 12
        xRazSoc = Mid(xDat, xRazSocX, (xRazSocY - xRazSocX))

        xEstX = InStr(1, xDat, "Estado:", vbTextCompare)
            xEstY = InStr(1, xDat, "ARIGV:", vbTextCompare)
            xEstX = xEstX + 7
        xEst = Mid(xDat, xEstX, ((xEstY - 34) - xEstX))
       
        xConX = InStr(1, xDat, "Situacion:", vbTextCompare)
            xConY = InStr(1, xDat, "</b></small><br/>", vbTextCompare)
            xDirY = xConX - 23
            xConX = xConX + 10
        xCon = Mid(xDat, xConX, (xConY - xConX))
   
        xDirX = InStr(1, xDat, "Direccion:", vbTextCompare)
            xDirX = xDirX + 10
        xDir = Mid(xDat, xDirX, (xDirY - xDirX))
       
        xRazSoc = Replace(xRazSoc, "&#209;", "Ñ")
        xRazSoc = Replace(xRazSoc, "&#xD1;", "Ñ")
        xRazSoc = Replace(xRazSoc, "&#193;", "Á")
        xRazSoc = Replace(xRazSoc, "&#201;", "É")
        xRazSoc = Replace(xRazSoc, "&#205;", "Í")
        xRazSoc = Replace(xRazSoc, "&#211;", "Ó")
        xRazSoc = Replace(xRazSoc, "&#218;", "Ú")
        xRazSoc = Replace(xRazSoc, "&#xC1;", "Á")
        xRazSoc = Replace(xRazSoc, "&#xC9;", "É")
        xRazSoc = Replace(xRazSoc, "&#xCD;", "Í")
        xRazSoc = Replace(xRazSoc, "&#xD3;", "Ó")
        xRazSoc = Replace(xRazSoc, "&#xDA;", "Ú")
       
        xDir = Replace(xDir, "&#209;", "Ñ")
        xDir = Replace(xDir, "&#xD1;", "Ñ")
        xDir = Replace(xDir, "&#193;", "Á")
        xDir = Replace(xDir, "&#201;", "É")
        xDir = Replace(xDir, "&#205;", "Í")
        xDir = Replace(xDir, "&#211;", "Ó")
        xDir = Replace(xDir, "&#218;", "Ú")
        xDir = Replace(xDir, "&#xC1;", "Á")
        xDir = Replace(xDir, "&#xC9;", "É")
        xDir = Replace(xDir, "&#xCD;", "Í")
        xDir = Replace(xDir, "&#xD3;", "Ó")
        xDir = Replace(xDir, "&#xDA;", "Ú")
       
        txtRazSoc.Text = xRazSoc
        txtEst.Text = xEst
        txtCon.Text = xCon
        txtDir.Text = xDir
    Else
        Habilitar False
        Limpiar
        MsgBox "No responde el servicio de la SUNAT"
    End If
    Set xWml = Nothing
End Sub
Private Sub OTRO(ByVal xNum As String)
On Error Resume Next
    Dim xWml As New XMLHTTP
    xWml.open "POST", "http://www.sunat.gob.pe/w/wapS01Alias?ruc=" & xNum, False
    xWml.send
    If xWml.Status = 200 Then
        Limpiar
        xDat = xWml.responseText
        If Len(xDat) <= 635 Then
            Habilitar False
            MsgBox "El numero Ruc ingresado no existe en la Base de datos de la SUNAT"
            Set xWml = Nothing
            txtRuc.SetFocus
            Exit Sub
        End If
        Habilitar True
        Dim xTabla() As String
       
        xDat = Replace(xDat, "     ", " ")
        xDat = Replace(xDat, "    ", " ")
        xDat = Replace(xDat, "   ", " ")
        xDat = Replace(xDat, "  ", " ")
        xDat = Replace(xDat, "( ", "(")
        xDat = Replace(xDat, " )", ")")
       
        xTabla = Split(xDat, "<small>")
     
        xTabla(1) = Replace(xTabla(1), "<b>N&#xFA;mero Ruc. </b> " & xNum & " - ", "")
        xTabla(1) = Replace(xTabla(1), " <br/></small>", "")
       
        xTabla(4) = Replace(xTabla(4), "<b>Estado.</b>", "")
        xTabla(4) = Replace(xTabla(4), "</small><br/>", "")
       
        xTabla(7) = Replace(xTabla(7), "<b>Direcci&#xF3;n.</b><br/>", "")
        xTabla(7) = Replace(xTabla(7), "</small><br/>", "")
       
        xTabla(8) = Replace(xTabla(8), "Situaci&#xF3;n.<b> ", "")
        xTabla(8) = Replace(xTabla(8), "</b></small><br/>", "")
       
        xRazSoc = CStr(xTabla(1))
        xEst = CStr(xTabla(4))
        xDir = CStr(xTabla(7))
        xCon = CStr(xTabla(8))
       
        xRazSoc = Replace(xRazSoc, "&#209;", "Ñ")
        xRazSoc = Replace(xRazSoc, "&#xD1;", "Ñ")
        xRazSoc = Replace(xRazSoc, "&#193;", "Á")
        xRazSoc = Replace(xRazSoc, "&#201;", "É")
        xRazSoc = Replace(xRazSoc, "&#205;", "Í")
        xRazSoc = Replace(xRazSoc, "&#211;", "Ó")
        xRazSoc = Replace(xRazSoc, "&#218;", "Ú")
        xRazSoc = Replace(xRazSoc, "&#xC1;", "Á")
        xRazSoc = Replace(xRazSoc, "&#xC9;", "É")
        xRazSoc = Replace(xRazSoc, "&#xCD;", "Í")
        xRazSoc = Replace(xRazSoc, "&#xD3;", "Ó")
        xRazSoc = Replace(xRazSoc, "&#xDA;", "Ú")
       
        xRazSoc = Mid(xRazSoc, 1, Len(xRazSoc) - 3)
       
        xDir = Replace(xDir, "&#209;", "Ñ")
        xDir = Replace(xDir, "&#xD1;", "Ñ")
        xDir = Replace(xDir, "&#193;", "Á")
        xDir = Replace(xDir, "&#201;", "É")
        xDir = Replace(xDir, "&#205;", "Í")
        xDir = Replace(xDir, "&#211;", "Ó")
        xDir = Replace(xDir, "&#218;", "Ú")
        xDir = Replace(xDir, "&#xC1;", "Á")
        xDir = Replace(xDir, "&#xC9;", "É")
        xDir = Replace(xDir, "&#xCD;", "Í")
        xDir = Replace(xDir, "&#xD3;", "Ó")
        xDir = Replace(xDir, "&#xDA;", "Ú")
       
        xEst = Mid(xEst, 1, Len(xEst) - 6)
        xCon = Mid(xCon, 1, Len(xCon) - 3)
        xDir = Mid(xDir, 1, Len(xDir) - 3)
       
        txtRazSoc.Text = xRazSoc
        txtEst.Text = xEst
        txtCon.Text = xCon
        txtDir.Text = xDir
    Else
        Habilitar False
        Limpiar
        MsgBox "No responde el servicio de la SUNAT"
    End If
    Set xWml = Nothing
End Sub
Private Sub Limpiar()
    xRazSoc = ""
    xEst = ""
    xCon = ""
    xDir = ""
    txtRazSoc.Text = ""
    txtEst.Text = ""
    txtCon.Text = ""
    txtDir.Text = ""
End Sub
Private Sub Habilitar(ByVal xOpc As Boolean)
    lbl2.Visible = xOpc
    lbl3.Visible = xOpc
    lbl4.Visible = xOpc
    lbl5.Visible = xOpc
    txtRazSoc.Visible = xOpc
    txtEst.Visible = xOpc
    txtCon.Visible = xOpc
    txtDir.Visible = xOpc
End Sub
Private Sub Form_Load()
    Habilitar False
End Sub
Function Verificar_ruc(ByVal xNum As String) As Boolean
    Dim li_suma, li_residuo, li_diferencia, li_compara As Integer
    li_suma = (CInt(Mid(xNum, 1, 1)) * 5) + (CInt(Mid(xNum, 2, 1)) * 4) + (CInt(Mid(xNum, 3, 1)) * 3) + (CInt(Mid(xNum, 4, 1)) * 2) + (CInt(Mid(xNum, 5, 1)) * 7) + (CInt(Mid(xNum, 6, 1)) * 6) + (CInt(Mid(xNum, 7, 1)) * 5) + (CInt(Mid(xNum, 8, 1)) * 4) + (CInt(Mid(xNum, 9, 1)) * 3) + (CInt(Mid(xNum, 10, 1)) * 2)
    li_compara = CInt(Mid(xNum, 11, 1))
    li_residuo = li_suma Mod 11
    li_diferencia = Int(11 - li_residuo)
    If li_diferencia > 9 Then li_diferencia = li_diferencia - 10
    If li_diferencia <> li_compara Then
        Verificar_ruc = False
    Else
        Verificar_ruc = True
    End If
End Function

SI TIENEN DUDAS NO DUDEN EN CONSULTAR

ESPERO COMENTARIOS

122 comentarios:

  1. Buen aporte amigo sube el programa para descargarlo

    ResponderEliminar
    Respuestas
    1. TENDRAS UN CODIGO SIMILAR PARA LA CONSULTA DEL DNI

      Eliminar
  2. Lo quisiera en C#
    Muchas gracias!
    mi correo c_leviss@hotmail.com

    ResponderEliminar
    Respuestas
    1. que pendejo, tu hazlo ps

      Eliminar
    2. Y encima quiere que le envíe a su correo.. tremendo HOYGAN!

      Eliminar
    3. de donde sacaste el código de consulta de sunat que esta genial yo tengo el de reniec podemos intercambiar 990441903

      Eliminar
    4. He programado una .Dll para haga ese trabajo , lo que hace es tan solo con poner el DNI (PERU) calcula el RUC y lo busca en SUNAT y si no esta registrado ese ruc lo busco en RENIEC osea si o si tienes el nombre o razón social de esa persona y como es sabido si pones el RUC lo hubica automáticamente en sunat y extrayendo toda su información incluyendo si tiene deuda tributaria y sucursales

      Eliminar
    5. si lo pusieras..para revisarlo y no solo decir que lo hiciste. La mayoria quiere codigo para revisar y aplicarlo.gracias

      Eliminar
  3. Hola amigos este es mi blog en C SHARP ahi lo subire para Abril ahora estoy con mucha chamba espero sepan esperarme un poquito http://lpcsharp.blogspot.com

    ResponderEliminar
    Respuestas
    1. de donde sacaste el código de consulta de sunat que esta genial yo tengo el de reniec podemos intercvambiar

      Eliminar
  4. como seria la consulta de los datos por numero de DNI. Gracias

    ResponderEliminar
  5. Muy buena aplicación!, gracias. nos será de mucha ayuda.

    ResponderEliminar
  6. ya no funca porque la sunat esta haciendo cambios para el sistema movil. Ahora ha buscar otro hueco en el sistema

    ResponderEliminar
    Respuestas
    1. Justo hoy que estaba haciendo un dmeo no funciona

      Eliminar
  7. http://www.perucontable.com/modules/newbb/viewtopic.php?post_id=83920#.UhzzhdJWySo

    ResponderEliminar
  8. Para los que son programadores pueden revisar este resultado: Se puede observar que los datos se obtienen de "ejecutar" este enlace en internet.

    http://www.sunat.gob.pe/w/wapS01Alias?ruc=XXXMIRUC

    Reemplacemos XXXMIRUC por el ruc deseado y nos retornará un archivo XML con los datos.

    Saludos.

    ResponderEliminar
    Respuestas
    1. Interesante, si si cambiamos los alias? y probamos buscar por Razon Social

      Eliminar
    2. prueben mi aplicacion :D
      Gracias a tu Info
      www.datatiendas.com/ruc

      Eliminar
    3. Excelente el bug, evades el capchat

      Eliminar
    4. No es ningún bug. Es un servicio de SUNAT para dispositivos móviles.

      Eliminar
    5. Si ya no funciona, quitaron ese servicio en noviembre-diciembre 2014. Deberíand e ponerlo, era de bastante ayuda y no veo en que les afecte.

      Eliminar
  9. sigan este hilo
    http://leandroascierto.com/foro/index.php?topic=1619.0

    ResponderEliminar
  10. Aqui bajaran la aplicacion para SUNAT y PARA BUSCAR DNI
    https://www.facebook.com/CJSystem

    ResponderEliminar
  11. Buenos dias muy interesante esta ayuda quisiera ver si porfavor podrias porfavor indicarme que controles tengo que agregar al formulario para que pueda funcionar correctamente

    ResponderEliminar
  12. puede agregar otros campos como estado activo o inactivo

    ResponderEliminar
  13. la idea de esto software es que se pueda implementar en cualquier software y no solo consultar en un ejecutable externo...

    ResponderEliminar
  14. Hola amigo que tal, bueno quería preguntarte si tienes el codigo para PHP, ya que lo necesito y no se como extraer los datos, haber te agradeceria si me echas una mano.

    ResponderEliminar
  15. Este comentario ha sido eliminado por el autor.

    ResponderEliminar
  16. pues le diré a todos las personas que estén implementando este código de extraer datos de sunat , que no es fiable al 100% .. que por que les digo esto? simple , este código que ven ahí de visual 6 lo he programado yo hace como 6 años maso menos y por alguna razón lo han publicado aquí pues el código que ven arriba es exactamente como yo lo hace y ni siquiera sean tomado la molestia de modificarlo un poco .. pero bueno a lo que voy dije que no es 100 % fiable por que la consulta esta hecha aun servidor de wap como pueden ver que la sunat ya no usa es un servidor espejo que quiero decir imaginemos que a un contribuyente le dan de baja hace 7 días con este código seguirá diciendo que esta activo , otro es que cuando una persona o empresa saca su ruc digamos hoy .. así haya pasado 15 días después de registro si consulta a la dirección wap (url) te dira que no existe el ruc como verán esto solo son 2 casos y hay muchas mas por eso me puese a desarrollar otro que apunte directamente al servidor principal por eso desarrolle una .dll para eso ,,,, ahh me olvidaba me gustaria saber esta persona de donde saco el código fuente como dije lo desarrolle yo y no me molesta que este publicado lo que me molesta es que ni pongan la fuente y digan si tienen algún problema escríbanme como si el que lo publico fuera el que desarrollo , no quieten el crédito

    ResponderEliminar
    Respuestas
    1. Mentira que tu lo has programado???
      yo desarrolle ese código y lo publique aquí
      http://leandroascierto.com/foro/index.php?topic=1619.0
      y el autor de esta pagina lo unico que hizo es copiar todo el codigo en su web
      Yo Cristian Peralta soy el autor, ya dejen de ser lamers.
      este es mi web
      https://www.facebook.com/CJSystem
      y tu Walter aver muestrame tu codigo aver si pensamos = o sera que te copias =

      Eliminar
  17. Jajajajaja que tal Walter jajaja me da risa. arriba preguntas diciendo de donde sacastes el codigo ahora sales que tu lo creastes jejeje osea que pensamos = ajajajaj kisas eres mi gemelo
    soy Cristian y ese codigo que ves arriba lo desarrolle para un foro de leandroascierto y dejen de mentir-.

    ResponderEliminar
  18. hola esta muy bueno el código para obtener los datos de la SUNAT, pero sólos 2 cosas, primero es cierto lo que dice Walter acerca de que el servidor wap de que esos datos estarian un poco desfasados si un contribuyente le dan de baja y no se obtendrian los datos actualizados, y segundo los datos que obtienes son pocos, osea no se obtiene la fecha de incripción, feha de inicio de actividades y actividad económica. Prodían porfavor dcirme como se sacaría esos datos, gracias

    ResponderEliminar
    Respuestas
    1. http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&razSoc=&nroRuc=10015569943&nrodoc=&contexto=rrrrrrr&tQuery=on&search1=10015569943&codigo=&tipdoc=1&search2=&coddpto=&codprov=&coddist=&search3=

      Eliminar
    2. pongo esta url y me da error cuel es el truco

      Eliminar
    3. http://www.sunat.gob.pe/w/wapS01Alias?ruc= usaba este pero el que muestra no lo puedo hacer funcional una ayuda

      Eliminar
  19. ya cambio este link http://www.sunat.gob.pe/w/wapS01Alias?ruc= ahora ya no se puede

    ResponderEliminar
    Respuestas
    1. Está fallando desde hace varias semanas.
      A ciertas horas se restablece el servicio.

      Eliminar
    2. Alguien que pase el nuevo el link, este ya no fnciona http://www.sunat.gob.pe/w/wapS01Alias?ruc=

      Eliminar
    3. http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&razSoc=&nroRuc=10015569943&nrodoc=&contexto=rrrrrrr&tQuery=on&search1=10015569943&codigo=&tipdoc=1&search2=&coddpto=&codprov=&coddist=&search3=

      Eliminar
  20. Si se tiene problemas de acceso http://www.sunat.gob.pe/w/wapS01Alias?ruc=
    da error ERROR 404; alguien que pueda ayudar

    ResponderEliminar
  21. a mi tambien me da el error de q el enlace no existe, alguien lo soluciono?

    ResponderEliminar
  22. ya no funciona el link alguien tiene un link alternativo ?

    ResponderEliminar
  23. YO TENGO LA SOLUCION.... PAGUEN A SUNAT POR CADA CONSULTA PERROS COCHINOS!!!

    ResponderEliminar
  24. Días y días sacando le la solución, al fin lo logre lo que pasa es que cambiaron el directorio, lo realice con la ayuda de Helpers, al fin a respirar por que mis clientes me tenían hasta aqui. desean ayuda solo escriban saludos

    ResponderEliminar
    Respuestas
    1. Tienes el nuevo link?

      Eliminar
    2. FAVOR DE ENVIAR EL LINK

      Eliminar
    3. http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&razSoc=&nroRuc=10015569943&nrodoc=&contexto=rrrrrrr&tQuery=on&search1=10015569943&codigo=&tipdoc=1&search2=&coddpto=&codprov=&coddist=&search3=

      Eliminar
    4. POR FAVOR NOS PUEDES PASAR EL NUVO LINK

      Eliminar
  25. Gracias loquito, tu código funciona bastante bien, inclusive en vb.net.

    ResponderEliminar
  26. ALGUIEN SABE UN NUEVO LINK NO FUNCIONA

    ResponderEliminar
  27. Esolinfo jsolon, solo habla huevadas, si dices tener la solucion dejar de hacerte el estrecho y comparte, sino eres un simple imbesil que se panudea sin motivo

    ResponderEliminar
    Respuestas
    1. http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&razSoc=&nroRuc=10015569943&nrodoc=&contexto=rrrrrrr&tQuery=on&search1=10015569943&codigo=&tipdoc=1&search2=&coddpto=&codprov=&coddist=&search3= - Ahi lo tienes - primero te votara error de ruc, pero con las ayudas Help lo quitas el mensaje y listos funciona con fecha de inscripción Fecha de Inicio de actividades...

      Eliminar
    2. Podrías dar la rutina completa con los help para quitar el mensaje incluido para probarlo

      Eliminar
  28. PRODIA SUBIR COMPLETO LA RUTINA PORQ LO PRUEBO Y NO ME SALE POR FAVOR

    ResponderEliminar
  29. Ayuda con el nuevo link para la consulta

    ResponderEliminar
  30. Al codigo le falta algo que no explico xD! hay que pedir ayuda a los de Excel Negocios Gustavo del Sr. A. Sebastiani Cépeda creador de la plantilla consultar ruc el indica que esta trabajando en el Tema. Tengo una consulta que realizar una consulta alguien se le ocurrio pensar como se obtuvo el siguiente link http://www.sunat.gob.pe/w/wapS01Alias?ruc= de igual forma hay que sacar el nuevo link espero que nuestro amigo Esolinfo ponga el fragmento que falta

    ResponderEliminar
  31. encontre por fin la forma de evadir el captcha, ya no se usa la wap ahora directo desde sunat, un consejo el codigo propocionado esta mal no esta ni cerca, ahora haciendo desde sunat se puede obtener ANEXOS, REPRESENTANTES LEGALES, ESTABLECIMIENTOS ANEXOS, AUN MUCHO MAS INFORMACIÓN MAS COMPLETA para ahora desarrollare aplicativos en EXCEL VBA, VB.NET para realizar las consultas, también voy a incluir CONSULTAS DE ASEGURADOS ESSALUD y posiblemente no estoy seguro al 100% pero tratare RENIEC dejo mi CEL para los interesados RPC 987756870 la verdad esque me costo un menos de un dia terminar de generar una alternativa y creo que todo esfuerzo se merece su recompensa, soy programador y manejo los siguientes lenguajes de escritorio VB 6.0, VBA, VB.NET, C# .NET, y en web manejo html, php, javascript, no es por despretigiar pero Gustado Sebastian de Excel Negocios vendio sus aplicativos que indico que desarrollo, pero una consulta si el desarrollo por que no actualizo es que en verdad solo le dieron el link con el cual es podia realizar las consultas pero nunca se pregunto como se obtuvo

    ResponderEliminar
    Respuestas
    1. Caya HDP eres un lamers mas
      https://www.facebook.com/brayan.quispesuarez

      Eliminar
  32. Este comentario ha sido eliminado por el autor.

    ResponderEliminar
  33. Saludos, Anónimo esto funciona a la perfección, envíanos tu aplicativo compilado y voz enviare la consulta en PHP, Les comento un poco al ingresar el link les dará error de ruc esto se debe que solo una sola vez te muestre la consulta pasando por el POST desde el capcha, pero con la ayuda de los Help evades el Capcha asi como logre sacarle esta dirección http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&razSoc=&nroRuc=10015569943&nrodoc=&contexto=rrrrrrr&tQuery=on&search1=10015569943&codigo=&tipdoc=1&search2=&coddpto=&codprov=&coddist=&search3= es directo desde la web en tiempo real que es casi el 90% al igual que http://www.sunat.gob.pe/w/wapS01Alias?ruc= saludos!!!

    ResponderEliminar
  34. Aqui les envion un link de las capturas de imágenes dias y dias tienen algunos errores pero funciona revisenlo avísenme para gravarlo en vídeo. https://www.facebook.com/carisma.cms

    https://www.facebook.com/photo.php?fbid=686161934838158&set=pcb.686165144837837&type=1&theater

    seria bueno ANONIMO que envies = o en video

    ResponderEliminar
    Respuestas
    1. Por favor podrias decir a que te refieres a helps para evita las catpcha y que implica en esa url q estas colocando gracias

      Eliminar
    2. Bueno las imagenes que has puesto veo que haces las consultas desde tu pc y no desde sunat, como no veo el codigo podria suponer que haces consultas mediante una data local?, porque no pones una directa desde la sunat con el codigo mencionado.
      Podrias traducir en cristiano el link para los que no sabemos http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&razSoc=&nroRuc=10015569943&nrodoc=&contexto=rrrrrrr&tQuery=on&search1=10015569943&codigo=&tipdoc=1&search2=&coddpto=&codprov=&coddist=&search3=
      en el codigo le falta un valor a la variable codigo= " " la dejas en blanco es por eso que no resulta, tendrias que poner el correcto cada vez que realices una consulta. Quedo a la espera de tu imagen haciendo consulta directa desde sunat.

      Anonimus

      Eliminar
    3. https://www.dropbox.com/s/nwu7vd4q3egzk4x/BUSCAR_RUC.rar?dl=1

      Eliminar
  35. EsolInfo, probé la direccion sunat que enviaste con ese y otro ruc pero muestra una pagina de error, ttambien lo probe desde vb6 con objeto xml y da el mismo resultado. Puedes dar algunos tips adicionales que hay que colocar en la URL ..gracias

    ResponderEliminar
    Respuestas
    1. Hola Marco Antonio, Mira te explico los Helps reciben el nombre de ayudantes nombrarlo de esa manera, es decir hace la búsqueda en lugar de nosotros, los Helps hacen el trabajo de evadir el capcha y y el proceso +1 que solo una vez te permite la sunat consultar si actualizas te da el error de RUC, una vez mas con la Ayuda de los Helps logre sacarlo los mensajes. en la noche realizare un vídeo demostrándoles lo que hay que hacer, estará funcionando http://www.sunat.gob.pe/w/wapS01Alias?ruc=RUC, pero si tu quieres sacar los datos directos desde la web en mi personal funciona la URL que los proporcione, esperen el vídeo, Anónimos comparte con demostración no solo seas solo pantalla!!!!

      Eliminar
    2. ya jue el video ya esta funcionando http://www.sunat.gob.pe/w/wapS01Alias?ruc=

      Eliminar
    3. el link http://www.sunat.gob.pe/w/wapS01Alias?ruc= sólo funciona hasta ciertas horas de la mañana (8 am) luego de ahí sale el mensaje de error

      Eliminar
    4. Seguimos esperando el video.

      Eliminar
    5. no se como se hace pero con la consulta http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS03Alias que es para movil ingresa si le damos ctrl-u se puede ver los datos de
      direccion, nombre, telf etc. ahora como hacerlo en forma no visible para el usuario nose

      Eliminar
  36. NADIE SABE EL NUEVO LINK

    ResponderEliminar
    Respuestas
    1. https://www.dropbox.com/s/nwu7vd4q3egzk4x/BUSCAR_RUC.rar?dl=1

      Eliminar
  37. Buenas tardes a todos, se los firmare un vídeo de demostración y lo subiré a un host en la noche!!!!

    ResponderEliminar
    Respuestas
    1. bueno creo que para la noche puedo compilar un ejecutable para mostralo por video algo simplon que cumpla la función.

      Eliminar
  38. ya encontre la solucion usando php nomas, puro chistoso nomas....
    atentamente el perico.

    ResponderEliminar
    Respuestas
    1. Envia el codigo o como nos comunicamos

      Eliminar
    2. https://www.dropbox.com/s/nwu7vd4q3egzk4x/BUSCAR_RUC.rar?dl=1

      Eliminar
    3. como te ubico dame tu correo

      Eliminar
    4. cristian_19a@hotmail.com
      https://www.facebook.com/CJSystem

      Eliminar
    5. Tienes el código fuente de la solución en php?

      Eliminar
  39. y El video? pura promesa nomas.

    ResponderEliminar
  40. https://www.facebook.com/ESET360/photos/a.312399652247960.1073741829.311013195719939/421274464693811/?type=1&theater
    ahi esta la prueba

    ResponderEliminar
    Respuestas
    1. Primero no se puede determinar la fecha de la imagen, por lo que veo es antigua debido a que ya bastante tiempo la sunat quito la info de celulares y telefonos fijos, segundo de igual forma tienes que llenar un catpcha

      Eliminar
    2. es actual pan con pavo , los datos siguen ahi , lo del captcha se soluciona de muchas maneras las mas simple q veo en varios aplicativos que hay en la red , son lectores de captcha q es lo mas simple q usan .. como el q tiene VFPSTEAM BI .. solo bastaria agregarle un lector de captcha y listo , por isntrucciones tmb puedes evadir el captcha .. en fin varias soluciones

      Eliminar
  41. Hola amigos les dejo una solución para consultar el RUC directamente desde el servidor de la SUNAT.

    http://vfpsteam.jimdo.com/2015/01/23/consulta-ruc-sunat-visual-foxpro/

    Saludos

    VFPSTEAM BI
    http://www.vfpsteam.com
    http://www.vfpscubosbi.com

    ResponderEliminar
    Respuestas
    1. https://www.dropbox.com/s/nwu7vd4q3egzk4x/BUSCAR_RUC.rar?dl=1

      Eliminar
    2. Muy buen trabajo lograron encontrar la forma ahora solo faltaria llegar mas lejos no se si se habran dado cuenta pero tambien se puede obtener las DJ que uno declara por numero de ruc :)

      Eliminar
  42. Como lo dije y lo seguire diciendo que diferencia hay si no puedo evadir el recatpcha's

    ResponderEliminar
  43. en este enlace https://www.dropbox.com/s/nwu7vd4q3egzk4x/BUSCAR_RUC.rar?dl=1 esta el programa funciona pero no indica como evito el captcha.

    ResponderEliminar
    Respuestas
    1. no esperes que te entrege el link no seas malo lo que uno no quiere es que otro saque probecho con el logro de uno
      a si como excel negocios

      Eliminar
    2. Bueno analizando el programa como funciona encontre que no trabaja con el link http://www.sunat.gob.pe/w/wapS01Alias?ruc= + ruc, el programa hace la consulta desde sunat baja la IMG del catpcha y lo resuelve y llena y el resultado lo extraer interesante funcionabilidad, asi que si queremos que nos envie un link seria solo el siguiente http://ww1.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias de hay el programa mismo trabaja para hacer la consulta, pero no es la unica forma de lograrlo :)

      Eliminar
    3. Indicame cual es tu correo para comunicarnos

      Eliminar
    4. lobo_koji@hotmail.com

      Eliminar
    5. cristian_19a@hotmail.com
      https://www.facebook.com/CJSystem

      Eliminar
  44. SABEN Q PUDRANSE CON SUS CODIGOS SI NO VAN A MOSTRAR ENTONCES PARA Q ESCRIBEN PANUDOS DE M...

    ResponderEliminar
    Respuestas
    1. PORQUE TE HACES HIGADO SIMPLEMENTE NO LEAS O ESTAS ESPERANDO QUE TE HAGAN LA TAREA DEL COLEGIO, TODOS NACIEMOS CON UN CEREBRO EL CUAL PUEDE APRENDER DIA DIA SI LO ALIMENTAMOS BIEN, PERO SI LE METEMOS BASURA CUANDO QUERAMOS QUE NOS DE RESULTADO SOLO MOSTRAR MSGBOX "ERROR EN EL SISTEMA CEREBRAL COLAPSO INMINENTE" JEJEJE

      Eliminar
  45. Disponible actualización donde ya no se necesita ingresar el código captcha.

    http://vfpsteam.jimdo.com/2015/01/23/consulta-ruc-sunat-visual-foxpro/

    Saludos

    VFPSTEAM BI
    http://www.vfpsteam.com
    http://www.vfpscubosbi.com

    ResponderEliminar
  46. Por favor publiquen el nuevo link para consulta el actual no funciona se cae el servicio de sunat cada cierto tiempo.

    ResponderEliminar
  47. Hola este es mi intento, encuentro un error de protocolo favor si alguien me da una pista .
    Por lo pronto ya logre convertir la imagen a texto con una OCR en NET llamada tessnet2.dll. Lo estoy mandando directo con datos fijos

    private void mt_otro3()
    {
    try
    {
    //Creating the Web Request.
    HttpWebRequest httpWebRequest = HttpWebRequest.Create("http://www.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias") as HttpWebRequest;
    //Specifing the Method
    httpWebRequest.Method = "POST";
    //Data to Post to the Page, itis key value pairs; separated by "&"
    string data = "accion=consPorRuc&nroRuc=20100495989&search1:20100495989&codigo=FGRT&tipdoc=1";
    //Setting the content type, it is required, otherwise it will not work.
    httpWebRequest.ContentType = "application/x-www-form-urlencoded";
    //Getting the request stream and writing the post data
    using (StreamWriter sw = new StreamWriter(httpWebRequest.GetRequestStream()))
    {
    sw.Write(data);
    }
    //Getting the Respose and reading the result.
    HttpWebResponse httpWebResponse = httpWebRequest.GetResponse() as HttpWebResponse;
    using (StreamReader sr = new StreamReader(httpWebResponse.GetResponseStream()))
    {
    MessageBox.Show(sr.ReadToEnd());
    }
    }
    catch (WebException wex)
    {
    StringBuilder sb = new StringBuilder();
    sb.AppendLine("ERROR:" + wex.Message + ". STATUS: " + wex.Status.ToString());

    if (wex.Status == WebExceptionStatus.ProtocolError)
    {
    var response = ((HttpWebResponse)wex.Response);
    sb.AppendLine(string.Format("Status Code : {0}", response.StatusCode));
    sb.AppendLine(string.Format("Status Description : {0}", response.StatusDescription));

    try
    {
    StreamReader reader = new StreamReader(response.GetResponseStream());
    sb.AppendLine(reader.ReadToEnd());
    }
    catch (WebException ex) { throw; }
    }

    throw new Exception(sb.ToString(), wex);
    }

    }

    Gracias.

    ResponderEliminar
    Respuestas
    1. bueno has dado en el clavo la solucion es en usar un OCR para convertir la IMG a texto se puede hacer facil debido a que la imagen no tiene ruido y es muy simple, pero prueva poniendo una varibale al resultado de la imagen a texto de hay agregalo al siguiente codigo
      accion=consPorRuc&nroRuc=20100495989&search1:20100495989&codigo=variable que tomara la imagen del captcha
      &tipdoc=1

      Eliminar
    2. Este comentario ha sido eliminado por el autor.

      Eliminar
    3. bueno aca dejo un video donde aplico lo indicado en una plantilla excel pueden ver que la fecha es 04 de febrero del 2015 debido al tipo de cambio sunat https://www.youtube.com/watch?v=PS4W5uiDVOM&feature=youtu.be

      Eliminar
    4. Ok Bryan lo hicistes, ahora como seria para conseguir la plantilla.

      Eliminar
    5. https://www.youtube.com/watch?v=mzfsCwt-3Uc&feature=youtu.be

      Me gustaria hablar contigo Brayan . Saludos

      Att Paul

      Eliminar
  48. Consulta DNI : https://www.youtube.com/watch?v=nmwImXfrEGo
    Estoy para servirlos ...
    Att.
    Iván

    ResponderEliminar
    Respuestas
    1. jeje buena por que mejor no subes uno de cero cuando iniciar el programa para ver si el OCR lee al 100% el código de seguridad y no lo has llenado tu, esto suele pasar cuando uno obtiene un codigo fuente ya sea comprandolo a otro programador y revendiendo el producto pero al final termina saliendo a la luz el codigo fuente como consecuencia la sunat vuelve a cambiar. xD!, mejor esperate a que saque el video donde muestro una consulta DNI desde excel que es universal xD!

      Eliminar
    2. jajaja este se paso de lamer quiere sorprender a la gnt ! saca la vuelta chibolo pulpin

      Eliminar
  49. Consulta RUC, : https://www.youtube.com/watch?v=FKBbjJQQbx0
    Estoy para servirlos ..
    Att.
    Ivan
    E-MAIL: ivanperu2@hotmail.com

    ResponderEliminar
  50. Este comentario ha sido eliminado por el autor.

    ResponderEliminar
  51. http://ww1.sunat.gob.pe/.).).).).)/frameCriterioBusqueda.jsp

    ResponderEliminar
  52. http://foro.elhacker.net/net/aporte_consumir_contenido_web_en_aplicaciones_net_cvb_netasp_net-t306634.14.html el autor me dijo que publicaria el codigo fuente de una libreria para consultar directamente a la web de la sunat y que para saltearse la imagen de validacion se podia implementar alguna libreria OCR opensource

    ResponderEliminar
    Respuestas
    1. eso es lo q an estado aplicando los pan con pavo de arriba solo lee los comentarios

      Eliminar
  53. Consulta de Ruc: https://www.youtube.com/watch?v=CWRCUSXlZvk&feature=youtu.be

    ResponderEliminar
    Respuestas
    1. Estimado:
      Si se puede una consulta he logrado
      Convertir el captcha
      mandar los parametros. segun tu link que pones.
      pero me da el mensaje que dices ...q falta....?????
      no quiero q me digas como; solo una palabra q me pueda ayudar

      este es mensaje que me da sunat

      La aplicación ha retornado el siguiente problema :
      Surgieron problemas al procesar la consulta por n�mero de ruc

      le quite las etiqetas div...

      Eliminar
  54. Aplicación para consultar multiples ruc's desde un archivo excel
    descargalo aqui http://ow.ly/JMqbI
    https://www.facebook.com/CJSystem

    ResponderEliminar
  55. Encontre la manera sin el catcha, pero parece que bloquearon las peticiones con file_get_contents($url), me bota error, pero si ejecuto la url directament en el navegador me muestra los datos del ruc

    ResponderEliminar
  56. Para los programadores de VB6 aca les paso el link.. espero les sirva
    https://onedrive.live.com/?cid=28c2a6606ae1b6df&id=28C2A6606AE1B6DF!366&ithint=file,rar&authkey=!AP-Ul7csgE8lNLY

    ResponderEliminar

Con la tecnología de Blogger.