[WD 22] Create nested json May 05, 2019 08:13AM |
Registered: 5 years ago Posts: 2 |
Re: [WD 22] Create nested json May 05, 2019 03:57PM |
Registered: 5 years ago Posts: 151 |
nJsonOut is Variant HExecuteQuery(QRY_JSON_Header) IF HReadFirst(QRY_JSON_Header) THEN //Set error code and error message nJsonOut.ErrorCode = "N" nJsonOut.ErrorMessage = "Success" //This would be first level of the JSON nRecs is int = HNbRec(QRY_JSON_Header) FOR i = 1 TO nRecs nJsonOut.Orders.Header.PO_Number = QRY_JSON_Header.PONumber nJsonOut.Orders.Header.OrderNo = QRY_JSON_Header.SONumber nJsonOut.Orders.Header.SystemCode = "KCC" //Execute the nested query QRY_JSON_LineItems.P_SONumber= QRY_JSON_Header.SONumber HExecuteQuery(QRY_JSON_LineItems,hQueryDefault) nItems is int = HNbRec(QRY_JSON_LineItems) HReadFirst(QRY_JSON_LineItems) FOR n = 1 TO nItems nJsonOut.Orders.Header.LineItems.LineItem[n].Productcode = QRY_JSON_LineItems.ProductCode nJsonOut.Orders.Header.LineItems.LineItem[n].ProductDescription = QRY_JSON_LineItems.Description nJsonOut.Orders.Header.LineItems.LineItem[n].OrderLineNo = QRY_JSON_LineItems.OrderLineNumber nJsonOut.Orders.Header.LineItems.LineItem[n].OrderQty = QRY_JSON_LineItems.Qty nJsonOut.Orders.Header.LineItems.LineItem[n].LineType = QRY_JSON_LineItems.CabinetType //Read next record of Line Item query HReadNext(QRY_JSON_LineItems) END //Read next record of the of the header HReadNext(QRY_JSON_Header) END sJSONString is string = VariantToJSON(nJsonOut,psdFormatting) sPath is string = CompleteDir(fExeDir()) fSaveText("JSONFile.txt",sJSONString)