PROCEDURE ConvertToJson@1240060005(VAR TempBlob@1240060000 : Record 99008535);
VAR
XmlDocument@1240060003 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlDocument";
JsonConvert@1240060002 : DotNet "'Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed'.Newtonsoft.Json.JsonConvert";
JsonText@1240060001 : Text;
JsonFormatting@1240060004 : DotNet "'Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed'.Newtonsoft.Json.Formatting";
InStr@1240060005 : InStream;
OutStr@1240060006 : OutStream;
BEGIN
TempBlob.Blob.CREATEINSTREAM(InStr);
XmlDocument := XmlDocument.XmlDocument;
XmlDocument.Load(InStr);
JsonText := JsonConvert.SerializeXmlNode(XmlDocument.DocumentElement,JsonFormatting.Indented,TRUE);
TempBlob.INIT;
TempBlob.Blob.CREATEOUTSTREAM(OutStr,TEXTENCODING::UTF8);
OutStr.WRITETEXT(JsonText);
//MESSAGE(JsonText);
END;
In that version, you don't have all the codeunits which handles Json, you need to copy that code from new versions, I did this for NAV 2013 R2. You can create Xml and then covert it to Json, something like above
