Nota por favor, la estructura de mapas incrustados en mapas, y la colcación de la List.
[CODE lang="b4x" highlight="4,29,30,32,34"]
Sub DoJson
Private root As Map
Private data As Map
Private languages As List
Private pivot As Map
Private JS As String
root.Initialize
data.Initialize
data.Put("id", 61)
data.Put("user_id", 61)
data.Put("profession_id", Null)
data.Put("ocupation", Null)
data.Put("province_id", Null)
data.Put("work_hour_id", Null)
data.Put("working_term_id", Null)
data.Put("computing_level", 0)
data.Put("salary", 0)
data.Put("travel", 0)
data.Put("gender", Null)
data.Put("created_at", "2020-03-04 19,43,06")
data.Put("updated_at", "2020-03-04 19,43,06")
languages.Initialize
pivot.Initialize
languages.Add(CreateMap("id": 1, "name": "Inglés", "state": "Active", "created_at": Null, "updated_at": Null, "pivot" : CreateMap("candidate_id": 61, "language_id": 1)))
languages.Add(CreateMap("id": 2, "name": "Frances", "state": "Active", "created_at": Null, "updated_at": Null, "pivot" : CreateMap("candidate_id": 61, "language_id": 2)))
data.Put("languages",languages)
root.Put("data",data)
Private JSONGenerator As JSONGenerator
JSONGenerator.Initialize(root)
Log("MiJSON")
JS = JSONGenerator.ToPrettyString(2)
Log(JS)
End Sub[/CODE]
Spoiler: Salida
Waiting for debugger to connect...
Program started.
MiJSON
{
"data": {
"ocupation": null,
"gender": null,
"languages": [
{
"updated_at": null,
"name": "Inglés",
"created_at": null,
"pivot": {
"candidate_id": 61,
"language_id": 1
},
"id": 1,
"state": "Active"
},
{
"updated_at": null,
"name": "Frances",
"created_at": null,
"pivot": {
"candidate_id": 61,
"language_id": 2
},
"id": 2,
"state": "Active"
}
],
"created_at": "2020-03-04 19,43,06",
"salary": 0,
"updated_at": "2020-03-04 19,43,06",
"user_id": 61,
"profession_id": null,
"province_id": null,
"id": 61,
"work_hour_id": null,
"working_term_id": null,
"travel": 0,
"computing_level": 0
}
}