RetCodUsr

Retorna o codigo do usuario corrente conectado (campo PsW_*). Util pra auditoria, validacoes de permissao, gravacao de quem fez a operacao.

Assinatura: RetCodUsr() -> cCodigo

Retorna: Character

RetCodUsr retorna o codigo identificador unico do usuario na sessao Protheus (geralmente 6 chars). Diferente de cUserName que retorna o login.

Sintaxe

cCod := RetCodUsr()

Exemplo

// Gravar quem alterou o registro:
RecLock("SA1", .F.)
SA1->A1_USRMOD := RetCodUsr()
SA1->A1_DATMOD := Date()
SA1->(MsUnlock())

// Validar admin:
If RetCodUsr() == "000000"  // admin tipico
    // permite operacao restrita
EndIf

// Combinado com UsrFullName:
cQuem := AllTrim(UsrFullName(RetCodUsr()))

Funcoes relacionadas

cUserName — variavel publica com o login (ex: "mayco.costa")
UsrFullName(cCod) — nome completo do user (ex: "Mayco Costa")
cFilAnt — filial corrente
cEmpAnt — empresa corrente

Exemplos

Auditoria

SA1->A1_USRMOD := RetCodUsr()

Veja também

xfilial