new boolean property ParseUTF8 in JsonToCursor() method.

Author: Irwin1985

JSONFox.PJT

@@ -2,14 +2,27 @@
 define class CursorToArray as session
 	nSessionID = 0
 	CurName    = ""
+	&& IRODG 07/10/2023 Inicio
+	ParseUTF8 = .f.
+	&& IRODG 07/10/2023 Fin
 	* Function CursorToArray
 	function CursorToArray as memo
 		if !empty(this.nSessionID)
 			set datasession to this.nSessionID
 		endif
 		private JSONUtils
 		JSONUtils = _screen.JSONUtils
-		local lcOutput as memo, i as Integer
+		local lcOutput as memo, ;
+			i as Integer, ;
+			lcValue as Variant, ;
+			llCentury as Boolean, ;
+			llDeleted as Boolean, ;
+			lcDateAct as string, ;
+			nCounter as Integer, ;
+			lnTotField as Integer, ;
+			lnTotal as Integer, ;
+			lnRecNo as Integer
+
 		lcOutput = "["
 		llCentury = set("Century") == "OFF"
 		llDeleted = set("Deleted") == "OFF"
@@ -57,7 +70,10 @@ define class CursorToArray as session
 							Otherwise
 								&& IRODG 08/08/2023 Inicio
 								*lcValue = JSONUtils.GetString(alltrim(lcValue))
-								lcValue = JSONUtils.GetString(lcValue)
+								&& IRODG 07/10/2023 Inicio
+*!*									lcValue = JSONUtils.GetString(lcValue)
+								lcValue = JSONUtils.GetString(lcValue, this.ParseUTF8)
+								&& IRODG 07/10/2023 Fin
 								&& IRODG 08/08/2023 Fin
 							endcase
 							&& IRODG 08/08/2023 Inicio

JSONFox.pjx

@@ -4,7 +4,7 @@ define class JSONClass as session
 	LastErrorText 	= ""
 	lError 			= .f.
 	lShowErrors 	= .t.
-	version 		= "9.16"
+	version 		= "9.17"
 	hidden lInternal
 	hidden lTablePrompt
 	Dimension aCustomArray[1]
@@ -244,7 +244,7 @@ define class JSONClass as session
 	endfunc
 	* CursorToJSON
 	function CursorToJSON as memo
-		lparameters tcCursor as string, tbCurrentRow as Boolean, tnDataSession as integer, tlJustArray as Boolean
+		lparameters tcCursor as string, tbCurrentRow as Boolean, tnDataSession as integer, tlJustArray as Boolean, tlParseUTF8 as Boolean
 		local lcJsonXML as memo, loParser, lcCursor
 		lcJsonXML = ''
 		lcCursor  = SYS(2015)
@@ -262,6 +262,9 @@ define class JSONClass as session
 			loParser = createobject("CursorToArray")
 			loParser.CurName 	 = lcCursor
 			loParser.nSessionID  = tnDataSession
+			&& IRODG 07/10/2023 Inicio
+			loParser.ParseUTF8 = tlParseUTF8
+			&& IRODG 07/10/2023 Fin
 			lcJsonXML = loParser.CursorToArray()
 		catch to loEx
 			this.ShowExceptionError(loEx)