Error en el uso json - explicar

[cesar velasquez]

Buenos dias 

Soy nuevo en el grupo, necesito una ayuda

Tengo un formulario (copia de un ejemplo de descargue)

Cada vez que hago clic en buscar, este se dirige a una web y muestra la informacion en dicho formulario

Adjunto codigo

Boton Buscar

----------------------

IF !EMPTY(THISFORM.TxtRuc.Value)

IF LEN(ALLTRIM(THISFORM.TxtRuc.Value)) <> 11

MESSAGEBOX("No se ha ingreado correctamente el Número de RUC. Verificar !!",48,SoftWare)

THISFORM.Limpiar_Datos ()

ELSE

*# TOKEN para enviar documentos

token = "aqui estara el codigo token que se me asigno en dicha pagina web"

*# RUTA para enviar documentos

ruta = 'https://dniruc.apisperu.com/api/v1/ruc/' + ALLTRIM(THISFORM.TxtRuc.Value) + '?token=' + ALLTRIM(Token)

post_connect = CreateObject("Microsoft.XMLHTTP")

post_connect.Open("GET", ruta)

post_connect.Send()

json_respuesta = post_connect.responsetext

leer_respuesta = Encode(json_respuesta)

IF EMPTY(leer_respuesta.get('errors')) THEN

*!* RUC CONSULTADO CORRECTAMENTE

          THISFORM.Text1.Value = leer_respuesta.get('ruc')

THISFORM.Text2.Value = leer_respuesta.get('razonSocial')

THISFORM.Text3.Value = leer_respuesta.get('tipo')

THISFORM.Text4.Value = leer_respuesta.get('nombreComercial')

THISFORM.Text8.Value = leer_respuesta.get('fechaInscripcion')

THISFORM.Text5.Value = leer_respuesta.get('estado')

THISFORM.Text6.Value = leer_respuesta.get('condicion')

THISFORM.Text7.Value = leer_respuesta.get('direccion')

THISFORM.Text9.Value = leer_respuesta.get('fechaEmisorFe')

THISFORM.Text10.Value = leer_respuesta.get('sistEmsion')

THISFORM.Text11.Value = leer_respuesta.get('actExterior')

THISFORM.Text12.Value = leer_respuesta.get('sistContabilidad')

THISFORM.Text13.Value = leer_respuesta.get('actEconomicas')

ELSE

MESSAGEBOX(leer_respuesta.get('errors'))

ENDIF

ENDIF

ENDIF

Thisform.limpiar_datos()

El problema es que cuando quiero realizar otra busque este se queda congelado, como si hubiese un bucle que no me permite dar clic en ningun otro boton, es mas no me deja salir del Vfp 9.0

Adjunto el archivo Json que descargue de este grupo

Gracias por su apoyo

[ZeRoberto]

Ravisa esto

https://www.mediafire.com/file/3djrig4a1misk0m/Ruc.rar/file

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/ab9b700c-8d3e-4976-b25a-01d6852cfed7n%40googlegroups.com.

[cesar velasquez]

Hola ZeRoberto, gracias por el apoyo

Cuando lo corro el formulario muestra el siguiente error

y cuando lo compilo para crear el exe sale el siguiente error

Compiling d:\pruebaruc\forms\test.scx

Error in global include file: Include file 'd:\pruebaruc\include\include.h' is not found.

Gracias por tu respuesta

[ZeRoberto]

Tienes que colocar tu token en el Metodo Consultar, lo del archivo include, lo puedes quitar entrando al menu Form/Include File... lo borras y lo das aceptar

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/ec0e34ca-95ce-4e23-a8bf-f8d6d132ad44n%40googlegroups.com.

[Freddy Canchari Martinez]

solo se puede traer algunos datos uso JSONFox

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8oDOvcs9Kggnvg-GbkkMqnXZK9tKp1L9X6fwqbbJTXqsg%40mail.gmail.com.

[Freddy Canchari Martinez]

te adjunto un ejemplo me avisas si te sirvio SALUDOS.

[cesar velasquez]

Gracias FCM

El problema sigue, es que cuando llevo tú codigo al formulario, este solo lo puedo utilizar una sola vez, cuando quiero hacer otra consulta este se encuentra pegado como si hubiese un bucle que no me permite hacer clic en nuevo  para realizar otra consulta.

no me deja salir del fox, que tengo que cerrarlo por el administrado de tareas.

En problema es cuando se lleva el codigo al formulario

[Freddy Canchari Martinez]

https://mail.google.com/mail/u/0/?tab=rm#inbox/FMfcgxwLtkTMbCbVzlxTqBVdlMknWNGf

Saludos

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/10b0a83b-6ff7-42fd-b1a0-464d297c7553n%40googlegroups.com.