نسخ جدید رو دریافت کنید. به شکل زیر...
Dim pj2 As PersianJSONOBject
pj2.initialaizJsonObject
pj2.putToJSON("amount","1000")
pj2.putToJSON("traceNumber","01")
Dim ar As PersianJSONArray
ar.initializeDefault
Dim prj3 As PersianJSONOBject
prj3.initialaizJsonObject
prj3.putToJSON("id",72)
prj3.putToJSON("amount",501)
ar.putToJSON(prj3.DefaultJsonObject)
pj2.putToJSON("settlements",ar.DefaultJsonArray)
pj2.putToJSON("sourceCard","1235468594664")
pj2.putToJSON("pin","123456")