Merge pull request #43 from Irwin1985/version_9

do not alter blank spaces

Author: Irwin1985

.gitignore

@@ -4,3 +4,30 @@ src/jsonstringify.ERR
 *.zip
 *.PJT
 *.pjx
+src/arraytocursor.BAK
+JSONFoxHelper/obj/x86/Release/JSONFoxHelper.pdb
+JSONFoxHelper/obj/x86/Release/JSONFoxHelper.dll
+jsonfox_ref.FPT
+jsonfox_ref.DBF
+jsonfox_ref.CDX
+JSONFoxHelper/.vs/JSONFoxHelper/FileContentIndex/ce6bbe6c-b547-4029-a444-eb439cf20c46.vsidx
+JSONFoxHelper/.vs/JSONFoxHelper/FileContentIndex/read.lock
+JSONFoxHelper/.vs/JSONFoxHelper/v16/.suo
+JSONFoxHelper/.vs/JSONFoxHelper/v17/.suo
+JSONFoxHelper/bin/Debug/JSONFoxHelper.dll
+JSONFoxHelper/bin/Debug/JSONFoxHelper.pdb
+JSONFoxHelper/bin/Debug/JSONFoxHelper.tlb
+JSONFoxHelper/bin/Release/JSONFoxHelper.dll
+JSONFoxHelper/bin/Release/JSONFoxHelper.pdb
+JSONFoxHelper/bin/x86/Debug/JSONFoxHelper.dll
+JSONFoxHelper/bin/x86/Debug/JSONFoxHelper.pdb
+JSONFoxHelper/bin/x86/Debug/JSONFoxHelper.tlb
+JSONFoxHelper/bin/x86/Release/JSONFoxHelper.dll
+JSONFoxHelper/bin/x86/Release/JSONFoxHelper.pdb
+JSONFoxHelper/obj/x86/Release/DesignTimeResolveAssemblyReferences.cache
+JSONFoxHelper/obj/x86/Release/DesignTimeResolveAssemblyReferencesInput.cache
+JSONFoxHelper/obj/x86/Release/JSONFoxHelper.csproj.AssemblyReference.cache
+JSONFoxHelper/obj/x86/Release/JSONFoxHelper.csproj.CoreCompileInputs.cache
+JSONFoxHelper/obj/x86/Release/JSONFoxHelper.csproj.FileListAbsolute.txt
+*.BAK
+*.FXP

src/jsonclass.prg

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

src/jsonutils.prg

@@ -44,7 +44,9 @@ define class jsonutils as custom
 			Otherwise
 				tcvalue = this.getstring(tcvalue)
 			endcase
-			tcvalue = alltrim(tcvalue)
+			&& IRODG 08/08/2023 Inicio
+			*tcvalue = alltrim(tcValue)
+			&& IRODG 08/08/2023 Fin
 		case tctype $ "YFIN"
 			tcvalue = strtran(transform(tcvalue), ',', '.')
 		case tctype == 'L'
@@ -132,7 +134,9 @@ define class jsonutils as custom
 	&& ======================================================================== &&
 	function getstring as string
 		lparameters tcString as string, tlParseUtf8 as Boolean
-		tcString = allt(tcString)
+		&& IRODG 08/08/2023 Inicio
+		*tcString = Alltrim(tcString)
+		&& IRODG 08/08/2023 Fin		
 		tcString = strtran(tcString, '\', '\\' )		
 		tcString = strtran(tcString, chr(9),  '\t' )
 		tcString = strtran(tcString, chr(10), '\n' )