update MasterDetailToJson()

Author: Irwin1985

JSONFox.PJT

@@ -41,6 +41,7 @@ define class CursorToJsonObject as session
 		lnRecno = Recno()
 		Scan
 			Scatter memo name loRow
+			laDetail = .null.
 			* Filter detail
 			lcCursor = Sys(2015)
 			try

JSONFox.pjx

@@ -4,7 +4,7 @@ define class JSONClass as session
 	LastErrorText 	= ""
 	lError 			= .f.
 	lShowErrors 	= .t.
-	version 		= "9.24"
+	version 		= "9.25"
 	hidden lInternal
 	hidden lTablePrompt
 	Dimension aCustomArray[1]
@@ -320,7 +320,7 @@ define class JSONClass as session
 
 	Function MasterDetailToJSON(tcMaster as String, tcDetail as String, tcExpr as String, tcDetailAttribute as String, tnSessionID as Integer)
 		local loClass, loResult, lcResult
-		try
+		Try
 			this.ResetError()
 			tnSessionID = evl(tnSessionID, set("Datasession"))
 			set datasession to tnSessionID

jsonfox.app

@@ -42,6 +42,4 @@ Endif
 If Type("_Screen.Toml") != "U"
 	=Removeproperty(_Screen, 'Toml')
 Endif
-=AddProperty(_Screen, "Toml", Createobject("TomlClass"))
-
-Return
+=AddProperty(_Screen, "Toml", Createobject("TomlClass"))