(SX3) FWSX3Util e seu uso

Salve salve, blz?

Segue exemplo de como utilizar a classe FWSX3Util para carregar aHeaders para grids e uso para SX3, não utilizando diretamente a tabela.

Exemplo

#INCLUDE "TOTVS.CH"
 
User Function uDesenv()

aAllADB := FWSX3Util():GetAllFields( 'SC5' )


For nI := 01 to Len(aAllADB)
	If X3USO( GetSX3Cache(aAllADB[nI], "X3_USADO") .And. cNivel >= GetSX3Cache(aAllADB[nI], "X3_NIVEL")  )
		nUsado++
		Aadd(aHeader,{ AllTrim(X3Titulo()),;
			GetSX3Cache(aAllADB[nI], "X3_CAMPO") 	,;
			GetSX3Cache(aAllADB[nI], "X3_PICTURE")  ,;
			GetSX3Cache(aAllADB[nI], "X3_TAMANHO")  ,;
			GetSX3Cache(aAllADB[nI], "X3_DECIMAL") 	,;
			GetSX3Cache(aAllADB[nI], "X3_VALID") 	,;
			GetSX3Cache(aAllADB[nI], "X3_USADO") 	,;
			GetSX3Cache(aAllADB[nI], "X3_TIPO") 	,;
			GetSX3Cache(aAllADB[nI], "X3_ARQUIVO") ,;
			GetSX3Cache(aAllADB[nI], "X3_CONTEXT") } )
	EndIf
Next nI

Return( Nil )

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