Tengo este pequeño .prg para realizar una consulta a una api:
Code: Select all
* ------------------------------------------------------ *
* SISTEMA : *
* PRG : *
* CREADO : *
* ACTUALIZADO : *
* AUTOR : *
* COMENTARIOS : *
* ------------------------------------------------------ *
#include <hmg.ch>
REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESWIN
REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ES850
FUNCTION MAIN
HB_LANGSELECT( "ES" )
HB_SetCodePage("ESWIN")
DEFINE WINDOW Win_1;
AT 0,0 ;
WIDTH 640 HEIGHT 460 ;
TITLE 'Consulta RUC' ;
ON INIT INISETS() ;
MAIN
DEFINE MAIN MENU
POPUP "&Operaciones"
ITEM '&1. Buscar RUC' ACTION TestRuc()
END POPUP
END MENU
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
RETURN
*-------------------------------------------------------------------------
*-------------------------------------------------------------------------
* FUNCION...: INISETS
* COMENTARIO: INICIALIZA LOS SETEOS DEL SISTEMA.
*-------------------------------------------------------------------------
*-------------------------------------------------------------------------
PROC INISETS
SET BELL Off
SET CONSOLE Off
SET CURSOR Off
SET DATE TO BRIT
SET DELETED On
SET DELIMITERS Off
SET ECHO Off
SET EPOCH TO 1990
SET MESSAGE TO 22 CENTER
SET SAFETY Off
SET SCOREBOARD Off
SET TALK Off
SET WRAP On
SETMODE(25,80)
ALTD(0)
RETURN
*-------------------------------------------------------------------------
*-------------------------------------------------------------------------
*-------------------------------------------------------------------------
Proc TestRuc
LOCAL lOk := .T.
LOCAL oHttp, cHtml
LOCAL cToken := "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJlbWFpbCI6ImVkdWZsb3JpdkBnbWFpbC5jb20ifQ.tKHlgSo271x3D53nHP6Bj0otErLGg5T-9-75krfLkAw"
LOCAL cRUC := "10074902419"
LOCAL cURL := "https://dniruc.apisperu.com/api/v1/ruc/" + cRUC + "?token=" + cToken
msginfo( cURL )
oHttp := TIPClientHttp():New( cURL )
IF oHttp:open()
cHtml := oHttp:readAll()
memowrit( "RUC.txt", cHtml )
oHttp:close()
ENDIF
RETURN
Recuerdo haber realizado un programilla similar hace tiempo y no tuve ningún problema. ¿ He olvidado algo ?.
Gracias anticipadas y saludos a todos.