FWSFALLUSERS com FWSFUser

Salve salve, blz?

Abaixo segue exemplo de como consultar todos os usuários junto de propriedade especifica. 

//Retornar todos os usuários _ Consultar propriedade especifica
Local cSuper            := ''
Local aSuper            := {}
Local nI                := 00
Local nX                := 00
Local nTamArray         := 00
Local aAllusers         := {}
Local jUsers            := JsonObject():New()

aAllusers       := FWSFALLUSERS() 
nTamArray       := Len(aAllusers)
For nI := 01 To nTamArray
    cSuper  := FWSFUser(aAllusers[nI,02],"DATASUPER","USR_SUPER",.T.)
    aSuper  := StrTokArr(cSuper,";")
    For nX := 01 To Len(aSuper)
        If Empty(aSuper[nX])
            Loop
        Endif
        If ValType(jUsers[ aSuper[nX] ]) == 'U'
            jUsers[ aSuper[nX] ] := {}
        Endif
        aAdd( jUsers[ aSuper[nX] ], aAllusers[nI,02] )
    Next nX
Next nI                                             

 

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

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