diff --git a/jsonfox.app b/jsonfox.app index fdf41a8..17475ea 100644 Binary files a/jsonfox.app and b/jsonfox.app differ diff --git a/src/jsonclass.prg b/src/jsonclass.prg index 5d542dd..6944a40 100644 --- a/src/jsonclass.prg +++ b/src/jsonclass.prg @@ -4,7 +4,7 @@ define class JSONClass as session LastErrorText = "" lError = .f. lShowErrors = .t. - version = "9.10" + version = "9.11" hidden lInternal hidden lTablePrompt Dimension aCustomArray[1] diff --git a/src/objecttojson.prg b/src/objecttojson.prg index 35dbbaa..900fdd7 100644 --- a/src/objecttojson.prg +++ b/src/objecttojson.prg @@ -95,7 +95,7 @@ define class ObjectToJSON as session *local array aCopia(alen(tValue. &gaMembers[j])) local array laLista[1] =acopy(tValue. &gaMembers[j], laLista) - lcJSONStr = lcJSONStr + this.AnyToJson(@aCopia) + lcJSONStr = lcJSONStr + this.AnyToJson(@laLista) catch try lcJSONStr = lcJSONStr + this.AnyToJson(tValue. &gaMembers[j])