Clipper On Line • Ver Tópico - Erro HHash

Erro HHash

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Erro HHash

Mensagempor gilbertosilverio » 16 Out 2021 08:51

Ola Amigos,

Neste codigo estou tentado pegar o elemento message,

   IF oHttps:Status <> 200

      Arquivo_erro := HB_MEMOREAD( ArqXml )

      hb_JsonDecode( Arquivo_erro, @hRet_erro )   

      If Len(hRet_erro) != 0

         hwg_msginfo(str(Len(hRet_erro)))  // 1

         hwg_msginfo(valtoprg(hRet_erro))  // visualizar o todo o arquivo txt

         if HHasKey(hRet_erro,'message')
            E01 :=hRet_erro['message']
            xTE := 5000
            HWG_MSGTEMPO(E01, xTE)
         endif
      else
         HWG_MSGSTOP([Erro abertura JSON],[Erro do sistema])
      endif
   ELSE
      Hwg_msginfo([Status da remessa ]+ALLTRIM(vTXT01)+[ alterado para: ]+ALLTRIM(cSTATUS),[Aviso do sistema])
   ENDIF



so que da a msg de erro:


Error BASE/1123  Erro nos parâmetros: HHASKEY
Called from ->HHASKEY(0)
Called from ->EDITAR_REMESSA(1294)
Called from ->EDITAR_SULAMERICA(1150)
Called from ->ALTERAR_REMESSA(1889)



Por favor, como consigo pegar o retorno "message " desse json, já tentei de tudo e não passa. Onde estou errando.

Alguma dica?

Grato.
Anexos
T2.png
T1.png
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

Erro HHash

Mensagempor JoséQuintas » 16 Out 2021 09:46

REQUEST HB_CODEPAGE_PTISO

procedure main()

   LOCAL cTxtJson := '[ { "errorCode":"APEX_ERROR", "message":"SystemDmlExcep" } ]'
   LOCAL aTest

   Set( _SET_CODEPAGE, "PTISO" )
   SetMode(40,100)
   CLS

   aTest := hb_JsonDecode( cTxtJson )
   ? aTest[ 1 ][ "errorCode" ]
   ? aTest[ 1 ][ "message" ]

   Inkey(0)

   RETURN


"[" indica array, como pode ver na visualização que você mesmo postou, começou no elemento ZERO, que no Harbour começa no 1.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Erro HHash

Mensagempor gilbertosilverio » 16 Out 2021 10:47

Ola Quintas,

Só funciona se tirar o hHaskey, por isso não conseguia...

Declarando direto funciona, ate hoje ainda me confundo com matriz...

Obrigado pela ajuda.
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot], Google Adsense [Bot] e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro