Android Question Error Map Parser

[joaomoraes83]

Hello everybody!
When running the code below,

ProgressDialogShow2("Carregando Dados...",False)
    Dim GetAddressJob As HttpJob
    GetAddressJob.Initialize("GetAddress", Me)
    
    GetAddressJob.Download("https://api.portaldatransparencia.gov.br/api-de-dados/ceis?codigoSancionado=09743631895&pagina=1")
    GetAddressJob.GetRequest.SetHeader("chave-api-dados",API_KEY)
    
    Wait For (GetAddressJob) JobDone(GetAddressJob As HttpJob)
    ProgressDialogHide
    If GetAddressJob.Success Then
    
        Dim parser As JSONParser
        parser.Initialize(GetAddressJob.GetString)
        Dim root As List = parser.NextArray
        For Each colroot As Map In root
            Dim dataInicioSancao As String = colroot.Get("dataInicioSancao")
            Dim numeroProcesso As String = colroot.Get("numeroProcesso")
            Dim pessoa As Map = colroot.Get("pessoa")
            Dim cnae As Map = pessoa.Get("cnae")
            Dim grupo As String = cnae.Get("grupo")
            Dim razaoSocialReceita As String = pessoa.Get("razaoSocialReceita")
            Dim dataFimSancao As String = colroot.Get("dataFimSancao")
            Dim orgaoSancionador As Map = colroot.Get("orgaoSancionador")
            Dim nome As String = orgaoSancionador.Get("nome")
        Next

        Log($"razaoSocialReceita: ${razaoSocialReceita}"$)
        Log($"grupo: ${grupo}"$)
        Log($"dataInicioSancao: ${dataInicioSancao}"$)
        Log($"dataFimSancao: ${dataFimSancao}"$)
        '        Log($"orgaoSancionador: ${nome}"$)
        Log($"numeroProcesso: ${numeroProcesso}"$)
    
    End If

I get the following error:

java.lang.RuntimeException: Object should first be initialized (Map).

where can i be wrong?

 

[DonManfred]

What is the result you get from the Api? Hard to see the problem not knowing the details.

 

[joaomoraes83]

thanks for the feedback, the detail is exposed, when running the code I have this error.

 

[DonManfred]

I can not run the code. I´m out; good luck

 

[Sagenut]

Can you post the JSON string obtained from the request?

 

[Rubsanpe]

Hi. Are you sure the code

Dim pessoa As Map = colroot.Get("pessoa")
Dim cnae As Map = pessoa.Get("cnae")
Dim grupo As String = cnae.Get("grupo")
Dim razaoSocialReceita As String = pessoa.Get("razaoSocialReceita")
Dim dataFimSancao As String = colroot.Get("dataFimSancao")
Dim orgaoSancionador As Map = colroot.Get("orgaoSancionador")

return a Map in each data? I think "pessoa", "cnae" and "orgaoSancionador" are strings like the other data.

Rubén

 

[Andrew (Digitwell)]

put a log on line 11, log(GetAddressJob.GetString) and post the output here.

 

[joaomoraes83]

Hi. Are you sure the code

Dim pessoa As Map = colroot.Get("pessoa")
Dim cnae As Map = pessoa.Get("cnae")
Dim grupo As String = cnae.Get("grupo")
Dim razaoSocialReceita As String = pessoa.Get("razaoSocialReceita")
Dim dataFimSancao As String = colroot.Get("dataFimSancao")
Dim orgaoSancionador As Map = colroot.Get("orgaoSancionador")

return a Map in each data? I think "pessoa", "cnae" and "orgaoSancionador" are strings like the other data.

Rubén

my friend you are correct, I changed from map to string and it ran without problem.

thank you all

 

[joaomoraes83]

Can you post the JSON string obtained from the request?

as it has an api key, I couldn't use the tool: https://www.b4x.com:51041/json/index.html

how can i use this tool using api key in header?

 

[Sagenut]

as it has an api key, I couldn't use the tool: https://www.b4x.com:51041/json/index.html

how can i use this tool using api key in header?

You can log the JSON string that you obtain from your call with

Log (GetAddressJob.GetString)

and then copy it from the Log Window and paste it into the tool.

 

[DonManfred]

how can i use this tool using api key in header?

you CAN´T. Get the json by yourself and paste it there