Power Builder - Consulta RUC

 
Vista:
sin imagen de perfil

Consulta RUC

Publicado por Yuri (144 intervenciones) el 16/07/2013 15:44:07
Buen dia a todos los foristas, averiguanco como hacer consultas RUC para la SUNAT (En Perú), encontre un código que lee xml, imagino que se puede hacer algo igual en power builder de por si hay algunas cosas muy interesantes en este código que nos puede ayudar.

Básicamente me gustaría que me indique como jalo los campos de un xml.

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
cruc = ALLTRIM(thisform.text1.value)
 
 IF LEN(cruc)<>11
 MESSAGEBOX("El RUC ingresado es invalido",6,"Ruc Invalido")
 endif
 
 web = "http://www.sunat.gob.pe/w/wapS01Alias?ruc="+cruc
 xml = CREATEOBJECT("Microsoft.XMLHTTP")
 xml.open("POST", web, .F.)
 xml.send
 cprincipio = cruc
 cfinal = "<br/></small>"
 posicion1 = AT(cprincipio, xml.responsetext)
 posicion2 = AT(cfinal, xml.responsetext)
 cnombre = ALLTRIM(SUBSTR(xml.responsetext, posicion1+14, (posicion2-posicion1)-15))
 cprincipio = "n.</b><br/>"
 cfinal = "<small>Situ"
 posicion1 = AT(cprincipio, xml.responsetext)
 posicion2 = AT(cfinal, xml.responsetext)
 cdirec = ALLTRIM(SUBSTR(xml.responsetext, posicion1+11, (posicion2-posicion1)-32))
 cprincipio = "n.<b>"
 cfinal = "</b></small><br/>"
 posicion1 = AT(cprincipio, xml.responsetext)
 posicion2 = AT(cfinal, xml.responsetext)
 ccondi = ALLTRIM(SUBSTR(xml.responsetext, posicion1+5, (posicion2-posicion1)-5))
 cprincipio = "Estado."
 cfinal = "<small><strong>"
 posicion1 = AT(cprincipio, xml.responsetext)
 posicion2 = AT(cfinal, xml.responsetext)
 cestado = ALLTRIM(SUBSTR(xml.responsetext, posicion1+11, (posicion2-posicion1)-38))
 cnombre = STRTRAN(cnombre, "&#209;", "Ñ")
 cnombre = STRTRAN(cnombre,"&amp;","&")
 cnombre = STRTRAN(cnombre, "&#35;", "#")
 cdirec = STRTRAN(cdirec, "&#209;", "Ñ")
 cdirec = STRTRAN(cdirec, "&#35;", "#")
 thisform.text2.value = cnombre
 thisform.text3.value = cdirec
 thisform.text4.value = cestado
 RELEASE xml
 RETURN
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 129
Bronce
Ha aumentado 1 puesto en Power Builder (en relación al último mes)
Gráfica de Power Builder

Consulta RUC

Publicado por JeinnerH (646 intervenciones) el 17/07/2013 18:28:18
El DW tiene una función de ImportFile, el cual puede leer información de un XML,

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Consulta RUC

Publicado por Franco (1 intervención) el 05/06/2015 01:55:12
¿Te vas acercando al resultado ya? Encontre varias otras consultas pero ninguna valedera, la tuya la resolviste? Saludos. Franco
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Consulta RUC

Publicado por leopoldo vasquez (5 intervenciones) el 18/02/2017 00:26:04
He desarrollado una libreria para consultar datos de la sunat.
Aqui un video con la demostracion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Consulta RUC

Publicado por Luis (1 intervención) el 06/02/2020 17:03:30
tu libreria la puedo usar con cualquier aplicacion de PB? Como la usuria y que costo tiene.?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 9 puestos en Power Builder (en relación al último mes)
Gráfica de Power Builder

Consulta RUC

Publicado por YuLSoft (4 intervenciones) el 17/08/2017 01:25:50
Buenas, yo lo tengo desarrollado en PB9, consulta RENIEC, SUNAT, SBS sin Captcha directamente de sus servidores oficiales sin sevicios ws de terceros, mayor info enviarme un email. yulsoft@gmail.com


SUNAT_RENIEC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar