I need to get JSON file with multiple values in a single text file through code unit . As my code I'm getting a single value in a text file as JSON . Can anyone suggest answers? I'm using Nav 2018 version as i checked google 2016 codes are available I referred 2016 code and it's work a bit but I got single value only.
MY CODE.
CreateSimpleJsonFile(jsonresponse);
LOCAL CreateSimpleJsonFile(JSONresponse : DotNet "Newtonsoft.Json.Linq.JObject")
JSONresponse := JSONresponse.JObject();
JsonTxtWriter:= JSONresponse.CreateWriter();
IF jsontable.FINDSET THEN BEGIN
REPEAT
JsonTxtWriter.WritePropertyName('No');
JsonTxtWriter.WriteValue(jsontable.No);
JsonTxtWriter.WritePropertyName('Name');
JsonTxtWriter.WriteValue(jsontable.Name);
MESSAGE('No: %1; Name: %2',FORMAT(JSONresponse.GetValue('No')), FORMAT(JSONresponse.GetValue('Name')),jsonstring);
UNTIL jsontable.NEXT=0;
END ;
IF jsontable.FINDSET THEN BEGIN
jsonstring:= JSONresponse.ToString();
Myfile.CREATE('D:\Jsontext1.txt');
Myfile.CREATEOUTSTREAM(Outstr);
REPEAT
noofchar:= Outstr.WRITETEXT(FORMAT(jsontable));
UNTIL jsontable.NEXT=0;
END;
Kindly anyone refer a good answer .
Thanks & Regards
Vijay
