Android Question JSONGenerator Issue

[iCAB]

Hi All,

I am just wondering why the 2 cases below are different.

Case #1

    Dim ClosedByID As String = Null
    Dim ShiftEnd As String = Null
    
    Dim Map1 As Map = CreateMap(  "ClosedByToken": ClosedByID, _
                                  "ShiftEnd": ShiftEnd )
    

    Dim JSONGenerator As JSONGenerator
    JSONGenerator.Initialize(Map1)   
    Log( JSONGenerator.ToString )

output

{"ClosedByToken":"null","ShiftEnd":"null"}

Case #2:

    Dim Map2 As Map = CreateMap(  "ClosedByToken": Null, _
                                  "ShiftEnd": Null )
   
    Dim JSONGenerator2 As JSONGenerator
    JSONGenerator2.Initialize(Map2)   
    Log( JSONGenerator2.ToString )

output

{"ClosedByToken":null,"ShiftEnd":null}

I would like to see Case #1 output identical to Case#2

Thanks,
iCAB

 

[emexes]

Case #0 might give a clue

[CODE lang="b4x" highlight="1-2"]
Dim ClosedByID As Object = Null
Dim ShiftEnd As Object = Null.As(String)

Dim Map1 As Map = CreateMap( "ClosedByToken": ClosedByID, _
"ShiftEnd": ShiftEnd )

Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize(Map1)
Log( JSONGenerator.ToString )
[/CODE]

 

[iCAB]

Case #0 might give a clue

[CODE lang="b4x" highlight="1-2"]
Dim ClosedByID As Object = Null
Dim ShiftEnd As Object = Null.As(String)

Dim Map1 As Map = CreateMap( "ClosedByToken": ClosedByID, _
"ShiftEnd": ShiftEnd )

Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize(Map1)
Log( JSONGenerator.ToString )
[/CODE]

Thanks for your reply, but I am not sure I can use the above code for my actual code.
In the actual code ClosedByID and ShiftEnd are part of a defined type. Something like:

Type TRegisterShiftRecord( ClosedByID As String, ShiftEnd As String )

 

[emexes]

ClosedByID and ShiftEnd are part of a defined type.

If that is the case and you are only constructing the Map from those, and not directly like you have in Case #2, then you'll never have actual nulls like you have in Case #2.

You'd do better changing Case #1 to be = "" rather than = Null

When you say String variable = Null what it actually becomes behind the scenes is String variable = Null.As(String)

A String variable can only hold a string (or, at least, should only be able to hold a string... but I do remember an oddball case a few months back where a Null was passed via a function parameter, and it somehow retained its nullness and didn't act like a string - but it shouldn't do that... if a variable is a String, then it should be a String).

 

[emexes]

I do remember an oddball case a few months back where a Null was passed via a function parameter

Lol my memory is bitrotting bigtime lately.

Was 18 months back, not 3.

And function return value, not function parameter.

The return value from TextReader.ReadLine can be compared to Null,

 

[iCAB]

Hey Emexes,

I tried not to post the actual code to make it easier to see the issue. Here is the actual code:

[CODE lang="b4x" title="Original Code"]
Dim ClosedByID As String = Null
Dim ShiftEnd As String = Null


If TRegisterShiftRecord1.ClosedByID <> "" Then
ClosedByID = TRegisterShiftRecord1.ClosedByID
End If

If TRegisterShiftRecord1.ShiftEnd <> "" Then
ShiftEnd = TRegisterShiftRecord1.ShiftEnd
End If


Dim Map1 As Map = CreateMap( "TerminalToken": TRegisterShiftRecord1.ShiftTerminalID, _
"RegisterShiftID": TRegisterShiftRecord1.ShiftID, _
"BatchNumber": TRegisterShiftRecord1.iBatchNumber, _
"OpenedByToken": TRegisterShiftRecord1.OpenedByID, _
"ShiftStart": GeneralLib.GL_AIDTF_ConvertToHost_CheckValid( TRegisterShiftRecord1.ShiftStart, True ), _
"ClosedByToken": ClosedByID, _
"ShiftEnd": ShiftEnd, _
"ShiftStatus": TRegisterShiftRecord1.iStatus, _
"TerminalSyncCall": HTTPShared.CHTTP_TRUE, _
"LastUpdatedTicks": TRegisterShiftRecord1.lngLastUpdated )


Dim JSONGenerator As JSONGenerator
Dim JSONstring As String

JSONGenerator.Initialize(Map1)
JSONstring = JSONGenerator.ToString
[/CODE]

The above produces:

ClosedByToken:"null", ShiftEnd:"null"

The workaround is

[CODE lang="b4x" title="Workaround"] Dim Map1 As Map = CreateMap( "TerminalToken": TRegisterShiftRecord1.ShiftTerminalID, _
"RegisterShiftID": TRegisterShiftRecord1.ShiftID, _
"BatchNumber": TRegisterShiftRecord1.iBatchNumber, _
"OpenedByToken": TRegisterShiftRecord1.OpenedByID, _
"ShiftStart": GeneralLib.GL_AIDTF_ConvertToHost_CheckValid( TRegisterShiftRecord1.ShiftStart, True ), _
"ClosedByToken": TRegisterShiftRecord1.ClosedByID, _
"ShiftEnd": TRegisterShiftRecord1.ShiftEnd, _
"ShiftStatus": TRegisterShiftRecord1.iStatus, _
"TerminalSyncCall": HTTPShared.CHTTP_TRUE, _
"LastUpdatedTicks": TRegisterShiftRecord1.lngLastUpdated )



If TRegisterShiftRecord1.ClosedByID = "" Then
Map1.Put("ClosedByToken",Null)
End If

If TRegisterShiftRecord1.ShiftEnd = "" Then
Map1.Put("ShiftEnd", Null)
End If


Dim JSONGenerator As JSONGenerator
Dim JSONstring As String

JSONGenerator.Initialize(Map1)
JSONstring = JSONGenerator.ToString
[/CODE]

The workaround produces

ClosedByToken:null, ShiftEnd:null

Thanks for your help!!!