Como faço para pegar os valores de um hash, no meu caso, vou baixar um arquivo de cotações, e dentro existem diversos itens, já tentei de todas as forma e não consigo pegar estes itens.
FUNCTION JSON_GTPLAN()
LOCAL hRet:=HB_Hash(), cRet:='', oELEMENTO, oELEMENTO1, a01, a02
cRET:=MEMOREAD( [C:\GTPLAN.TXT] )
hb_JsonDecode( cRet, @hRet )
If Len(hRet) != 0
If HB_HHasKey( hRet, 'bids' )
For EACH oElemento IN hRet['bids']
A01 := oElemento["id_bid"]
hwg_msginfo(a01)
IF HB_HHasKey( hRet, 'items' )
For EACH oElemento1 IN hRet['items']
A02 := oElemento1['id_bid_item']
hwg_msginfo(a02)
NEXT
ELSE
HWG_MSGINFO([Nao achei])
ENDIF
Next
Else
hwg_msginfo('ERRO: '+hb_UTF8ToStr(hRet['Msg']))
Endif
Else
hwg_msginfo('ERRO: Erro no Envio da Chave')
EndIf
RETURN
Baseado em exemplos aqui do site, montei esta rotina, mais infelizmente não consigo entender como pegar o que esta na segunda chave.
Agradeço a ajuda de como fazer esta captura.