Power Builder - Consulta RUC

   
Vista:

Consulta RUC

Publicado por Yuri yuripeca@hotmail.com (143 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

Consulta RUC

Publicado por JeinnerH jhidalgo@excelteccr.com (638 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