Help Using hb_JsonEncode

[Milan Mehta]

I wish to generate a Json file like this. 

How can I ?

TIA

Milan

---------------------------------------

{

"fp": "072017",

"b2b": [{

"ctin": "111",

"inv": [{

"inum": "TI1002",

"idt": "24-07-2017",

}]

}]

}

---------------------------------------

[Teo Fonrouge]

Hi Milan,

hb_jsonEncode( <string|numeric|logical|date|timeStamp|array|hash|nil>, [<.humanReadable.>], [<codePage>] ) -> jsonString

* requieres any of above harbour types, returns a json string

hb_jsonDecode( <jsonString>, nil, [<codePage>] ) -> Harbour value
hb_jsonDecode( <jsonString>, @var, [<codePage>] ) ->  length of decoded <jsonString>, var will contain the resulting Harbour value

* require a properly jsonString and returns a Harbour value representing the jsonString

To properly create a jsonString which is contained in curly braces "{ ... }" you need

pass to the hb_jsonEncode() function a Harbour Hash whose items has string keys

h :={"name"=>"Milan","first"=>"Mehta","age"=>35}
hb_jsonEncode(h,.t.)

will return:

{
 "name":"Milan",
 "first":"Mehta",
 "age":35
}

( and if you hb_jsonDecode it, you'll get a Harbour Hash representation of it )

So, if you want to get:

{

"fp": "072017",

"b2b": [{

"ctin": "111",

"inv": [{

"inum": "TI1002",

"idt": "24-07-2017",

}]

}]

}

then you can do the following (two methods are used for clarity):

PROCEDURE main()

    j1()

    

    WAIT

    

    j2()

    

    WAIT

    

RETURN

PROCEDURE j1()

    LOCAL h

    

    h := { => }

    

    h[ "fp" ] := "072017"

    h[ "b2b" ] := ;

{ ;

   { ;

"ctin" => "111", ;

"inv" => ;

   { ;

{ ;

   "inum" => "TI1002", ;

   "idt" => "24-07-2017" ;

} ;

   } ;

   } ;

}

    

    ? hb_jsonEncode( h, .t. )

    

RETURN

PROCEDURE j2()

    LOCAL h

    LOCAL a1

    LOCAL a2

    

    a2 := { "inum" => "TI1002", "idt" => "24-07-2017" }

    a1 := { { "ctin" => "111", "inv" => { a2 } } }

    

    h := { => }

    

    h[ "fp" ] := "072017"

    h[ "b2b" ] := a1

    

    ? hb_jsonEncode( h, .t. )

    

RETURN

HTH,

best regards,

Teo

[Milan Mehta]

It worked Great !!!!

I preferred the Second Method you suggested.

Thanks a lot again.

Milan.

[Milan Mehta]

[Vikram Chhajer]

HELLO
 MILLAN  MEHTA   TAJNKS IN ADVANCE

CAN U SEND ME THE PRG I M ALSO SEARCHING FOR GST JSON FILE , IT WILL BE NICE IF SEND ME THE PRG  AND YOUR CONCAT NUMBER  ON MAIL ID
MY MAIL ID IS VIKRAM...@GMAIL.COM

[A Santos]

Hello!

I've been trying to use the 3rd parameter (codePage) No success yet. It accepts numbers only, otherwise RTE Error BASE/1302  Argument error: HB_JSONDECODE occurs. I need to use code page "PTISO" or "PT850"...

Any ideas?

TIA

[A Santos]

Solved adding following lines:

   REQUEST HB_LANG_PT

   REQUEST HB_CODEPAGE_PTISO

   HB_CDPSELECT( "PTISO" )

.

.

.hb_jsonDecode( cRet @hRet, "PTISO" )

Thanks.