FWJsonSerialize - Serializa qualquer tipo de dado no formato JSON

Estrutura do JSON (http://json.org/):
object
{}
{ members }
members
  pair
   pair , members
pair
    string : value
array
    []
    [ elements ]
elements
    value
   value , elements
    value
   string
   number
    object
   array
   true
   false
   null
string
    " Any UNICODE character except " or \ or control character "
   \" quotation mark
   \\ reverse solidus
   \/ solidus
   \b backspace
   \f formfeed
   \n newline
   \r carriage return
   \t horizontal tab

Class Teste
data cData1
data dData2
data aArray1
Method New()
EndClass

Method New() Class Teste
self:cData1 := "Valor caracter"
self:dData2 := CTOD("01/01/01")
self:aArray1 :={ "Valor array1","Valor array2"}
Return

User Function tstled()
Local oObj := Teste():New()
Local cJson := FWJsonSerialize(oObj,.T.,.T.)
MsgStop(cJson)
Return

Todos

Todas Relacionais

uData - Qualquer tipo de dado
lClassName - Se .T. o nome do objeto ira constar no JSON gerado
lUTC - Se .T. campos do tipo DATA seram transformados no formato UTC, caso
seja .F. será utilizado o padrão de JavaScript