#INCLUDE 'TOTVS.CH' #INCLUDE 'TLPP-CORE.TH' User Function FTLPP Local aList As Array Local jRet As Object Local nLenght As Numeric Local cJson As Character aList := {} jRet := JsonObject():New() // Adiciona um Json ao array aAdd(aList, JsonObject():New()) nLenght := Len(aList) aList[nLenght, 'letras'] := 'ABCDE' aList[nLenght, 'numeros'] := '12345' // Adiciona o array no Json jRet:Set(aList) // Obtém o primeiro array do Json cJson := jRet[1]:ToJson() Return