FiveTech Software tech support forums

by **Ari** » Wed May 10, 2023 2:08 pm

Hello friends !

I'm having trouble reading the json: I'd like to get the two records to play in the table. :oops:

Code: Select all Expand view RUN: { "total": 2, "rows": [ { "seunumero": 12345, "codcli": "3948", "qtde": 1, "descricao": "ANEL", "prodprincial": "14464080", "produto": "4J0522", "codfor": 274, "preco": 0.44, "ipi": 0 }, { "seunumero": 12345, "codcli": "3948", "qtde": 1, "descricao": "FILTRO", "prodprincial": "1P2299", "produto": "1P2299", "codfor": 14498, "preco": 37.93, "ipi": 0 } ] }

by **nageswaragunupudi** » Wed May 10, 2023 3:56 pm

Code: Select all Expand view RUN: #include "fivewin.ch" function Main() local cJson,hHash local aHead, aData TEXT INTO cJson { "total": 2, "rows": [ { "seunumero": 12345, "codcli": "3948", "qtde": 1, "descricao": "ANEL", "prodprincial": "14464080", "produto": "4J0522", "codfor": 274, "preco": 0.44, "ipi": 0 }, { "seunumero": 12345, "codcli": "3948", "qtde": 1, "descricao": "FILTRO", "prodprincial": "1P2299", "produto": "1P2299", "codfor": 14498, "preco": 37.93, "ipi": 0 } ] } ENDTEXT hHash := hb_jsonDecode( cJson ) aHead := HGetKeys( hHash[ "rows" ][ 1 ] ) aData := {} AEval( hHash[ "rows" ], { |hRow| AAdd( aData, HGetValues( hRow ) ) } ) XBRoWSER aData SETUP ( oBrw:cHeaders := aHead ) return nil

by **nageswaragunupudi** » Wed May 10, 2023 3:56 pm

Code: Select all Expand view RUN: #include "fivewin.ch" function Main() local cJson,hHash local aHead, aData TEXT INTO cJson { "total": 2, "rows": [ { "seunumero": 12345, "codcli": "3948", "qtde": 1, "descricao": "ANEL", "prodprincial": "14464080", "produto": "4J0522", "codfor": 274, "preco": 0.44, "ipi": 0 }, { "seunumero": 12345, "codcli": "3948", "qtde": 1, "descricao": "FILTRO", "prodprincial": "1P2299", "produto": "1P2299", "codfor": 14498, "preco": 37.93, "ipi": 0 } ] } ENDTEXT hHash := hb_jsonDecode( cJson ) aHead := HGetKeys( hHash[ "rows" ][ 1 ] ) aData := {} AEval( hHash[ "rows" ], { |hRow| AAdd( aData, HGetValues( hRow ) ) } ) XBRoWSER aData SETUP ( oBrw:cHeaders := aHead ) return nil

by **Ari** » Wed May 10, 2023 4:01 pm

Dear Rao,

God bless you you are the man.. when I posted I thought of Mr. !

Congratulations

Help in reading data from Hash