Page 1 of 1

Help in reading data from Hash

PostPosted: Wed May 10, 2023 2:08 pm
by Ari
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

{
  "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
    }
  ]
}
 

Re: Help in reading data from Hash

PostPosted: Wed May 10, 2023 3:56 pm
by nageswaragunupudi
Code: Select all  Expand view
#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
 


Image

Re: Help in reading data from Hash

PostPosted: Wed May 10, 2023 3:56 pm
by nageswaragunupudi
Code: Select all  Expand view
#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
 


Image

Re: Help in reading data from Hash

PostPosted: Wed May 10, 2023 4:01 pm
by Ari
Dear Rao,

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

Congratulations :D