🚀 Retornando dados de Query em JSON no ADVPL 🚀

Salve salve, blz? 😄

Abaixo segue um exemplo prático de como retornar dados de uma query SQL em formato JSON utilizando ADVPL. 💻✨
Esse conteúdo foi compartilhado por um amigo e pode servir como base para diversas integrações.
Antes de testar, não esqueça de verificar se a base está atualizada e se o dbAccess está devidamente configurado. ⚙️

	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 do conteúdo? 😎
Compartilhe com seus amigos, salve para referência futura e deixe um comentário com dúvidas ou sugestões!

Um abraço 🤝 e até a próxima!

#ADVPL #TOTVS #Protheus #SQL #JSON #DbAccess #Desenvolvimento #Programacao #ERP #BackEnd #Tecnologia #DevLife