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.
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 = cruccfinal = "<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, "Ñ", "Ñ")
cnombre = STRTRAN(cnombre,"&","&")
cnombre = STRTRAN(cnombre, "#", "#")
cdirec = STRTRAN(cdirec, "Ñ", "Ñ")
cdirec = STRTRAN(cdirec, "#", "#")
thisform.text2.value = cnombre
thisform.text3.value = cdirec
thisform.text4.value = cestado
RELEASE xml
RETURN
Valora esta pregunta
0
