FwUserContext

Contexto do usuario logado: codigo, nome, filial, empresa. Substitui acesso direto a variaveis cFilAnt, cEmpAnt.

Assinatura: FwUserContext():GetUserCode() // :GetUserName(), :GetFilialCode(), :GetCompanyCode()

Retorna: FwUserContext

API moderna pra obter contexto do usuario logado. Alternativa elegante a variaveis globais cFilAnt, cEmpAnt e RetCodUsr().

#include "tlpp-core.th"

User Function QuemSouEu()
    Local oCtx := FwUserContext():New()

    ConOut("Usuario:  " + oCtx:GetUserCode())
    ConOut("Nome:     " + oCtx:GetUserName())
    ConOut("Filial:   " + oCtx:GetFilialCode())
    ConOut("Empresa:  " + oCtx:GetCompanyCode())
Return

Pegadinhas

Em job/RPC, precisa setar contexto via RpcSetEnv antes — senao retorna vazio.
Equivalencia direta: GetUserCode=RetCodUsr, GetFilialCode=cFilAnt, GetCompanyCode=cEmpAnt.
Preferir Context em codigo novo TLPP — escopo + tipagem melhor que variaveis globais.

Veja também

retcodusr
fwsession