topic-43175

Board index FiveWin for Harbour/xHarbour Help in reading data from Hash

Posts: 253

Joined: Fri Feb 03, 2006 04:21 PM

Help in reading data from Hash
Posted: Wed May 10, 2023 02: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:

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

Thanks,
Ari

FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Help in reading data from Hash
Posted: Wed May 10, 2023 03:56 PM

Code (fw): Select all Collapse

#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

Regards

G. N. Rao.

Hyderabad, India

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Help in reading data from Hash
Posted: Wed May 10, 2023 03:56 PM

Code (fw): Select all Collapse

#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

Regards

G. N. Rao.

Hyderabad, India

Ari

Posts: 253

Joined: Fri Feb 03, 2006 04:21 PM

Re: Help in reading data from Hash
Posted: Wed May 10, 2023 04:01 PM

Dear Rao,

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

Congratulations :D

Thanks,
Ari

FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br

FiveTech Support Forums

Continue the discussion