Merge pull request #41 from Irwin1985/version_9

Preserve cursor character fields size

Author: Irwin1985

jsonfox.app

@@ -37,7 +37,7 @@ define class CursorToArray as session
 					lcValue  = evaluate(.CurName + "." + aColumns[i, 1])
 					if vartype(lcValue) = 'X'
 						lcValue = "null"
-						lcOutput = lcOutput + alltrim(lcValue)
+						lcOutput = lcOutput + lcValue
 					else
 						do case
 						case aColumns[i, 2] $ "CDTBGMQVW"
@@ -54,10 +54,16 @@ define class CursorToArray as session
 								else
 									lcValue = 'null'
 								endif
-							otherwise
-								lcValue = JSONUtils.GetString(alltrim(lcValue))
+							Otherwise
+								&& IRODG 08/08/2023 Inicio
+								*lcValue = JSONUtils.GetString(alltrim(lcValue))
+								lcValue = JSONUtils.GetString(lcValue)
+								&& IRODG 08/08/2023 Fin
 							endcase
-							lcOutput = lcOutput + alltrim(lcValue)
+							&& IRODG 08/08/2023 Inicio
+							*lcOutput = lcOutput + alltrim(lcValue)
+							lcOutput = lcOutput + lcValue
+							&& IRODG 08/08/2023 Fin
 						case aColumns[i, 2] $ "YFIN"
 							lcOutput = lcOutput + transform(lcValue)
 						case aColumns[i, 2] = "L"

src/cursortoarray.prg

@@ -4,7 +4,7 @@ define class JSONClass as session
 	LastErrorText 	= ""
 	lError 			= .f.
 	lShowErrors 	= .t.
-	version 		= "9.7"
+	version 		= "9.8"
 	hidden lInternal
 	hidden lTablePrompt
 	Dimension aCustomArray[1]