Querie para jSon - Retornar a querie para jSon

Salve salve, blz?

Abaixo segue exemplo de como retornar os dados de querie para jSon. Compartilhado por um amigo. Checar se a base está atualizada, dbAccess.

	Local cQuery 		:= "SELECT TOP 30 R_E_C_N_O_ AS RECNO, A2_NOME FROM "+ RetSqlName('SA2') +" WHERE D_E_L_E_T_='' "
    Local aReturn	 	:= {}
    Local aBinds 		:= {}
    Local aSetFields 	:= {}
    Local oObjJson 		:= JsonObject():new()
    Local cJsonResult	:=''
    Local nRet			:= 00


    aAdd(aSetFields,{"RECNO"	,"N",16,0})
    aAdd(aSetFields,{"A2_NOME"	,"C",TamSX3('A2_NOME')[01],0})

    nRet := TCSqlToArr(cQuery,@aReturn,aBinds,aSetFields)
    If nRet < 0  
        FWAlertError(TcSqlError(),"Falha ao executar a Query")
    Else
        //VarInfo("aReturn",aReturn)
        oObjJson:set(aReturn)
        cJsonResult :=  oObjJson:toJson()
    Endif                                       

 

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎

Um abraço, e até a próxima