Boa tarde, estou analisando os códigos para fazer a migração do dicionário quando esta em aparecendo Bug o que posso substituir.
Grato
UsrFullName(SAL->AL_USER)
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
2 respostas
-
Amigo pode usar a função FwGetUserName(cCodUsr) que retorna o nome completo do usuário. Não achei a documentação dela no TDN mas pode usar que está funcionando. Tem também FwUserName(cCodUsr) que retorna o nome reduzido, porém esta dá errolog se o código passado não existir no cadastro.
-
-
Bom dia, @Cirilo!
Agradeço demais a sua ajuda então substituirei pelo FWGETUSERNAME()
Grato
-
Não funcionou ele continua trazendo o mesmo erro
— ALEXANDRO DE OLIVEIRA 29 de Sep de 2022 -
Esta função esta assim While SAL->(!EOF()) .AND. cGrupoApv == SAL->AL_COD .AND. SAL->AL_FILIAL == xFilial("SAL") //LISTA OS APROVADORES DO GRUPO DO COMPRADOR cAp := SAL->AL_USER//cNome := UPPER(UsrFullName(SAL->AL_USER)) cNome := UPPER(FwGetUserName(SAL->AL_USER)) AAdd(_aLstBox, { cAp , cNome } )SAL->(dbSkip()) Enddo
— ALEXANDRO DE OLIVEIRA 29 de Sep de 2022
-
Alexandro, ele mostra o porque do erro, exibe sugestão, alguma coisa?
— Daniel Mendes 15 de Sep de 2022