×
Linguagem de Programação ADVPL
Perguntas Ajuda urgente
- Kaleb Correa
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24109
por Kaleb Correa
Ajuda urgente foi criado por Kaleb Correa
Galera boa tarde,
Peço uma ajuda urgente por favor..
Desenvolvi o relatório em anexo, porem estou com dificuldade p imprimir o campo RA_USERLGI poderiam me ajudar por gentileza?
Desde já obrigado.
Peço uma ajuda urgente por favor..
Desenvolvi o relatório em anexo, porem estou com dificuldade p imprimir o campo RA_USERLGI poderiam me ajudar por gentileza?
Desde já obrigado.
Por favor Acessar ou Registrar para participar da conversa.
- AndersonBR
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 108
- Obrigados Recebidos: 0
10 anos 3 meses atrás - 10 anos 3 meses atrás #24110
por AndersonBR
Respondido por AndersonBR no tópico Ajuda urgente
E aí Kaleb, blz?
Bom vamos lá esse campo está criptografado (cagada de quem desenvolveu, só pode), mas tenta assim:
//Pega o nome de usuário
cUsr := Alltrim(Left(Embaralha(??_USERLGI,1),15)
Se servir só o usuário para aqui, se não:
// Pesquisa por usuário
PswOrder(2)
//Faz o Seek
PswSeek(cUsr),.T.)
//Pego os dados do usuário
aUser := PswRet(1)
// ID do usuario.
cIDUsr := aUser[1][1]
// Retorna o nome completo do usuário
UsrFullName(cIDUsr)
P.S.: Usei isso a bastante tempo, então não testei aqui OK, veja se resolve.
Bom vamos lá esse campo está criptografado (cagada de quem desenvolveu, só pode), mas tenta assim:
//Pega o nome de usuário
cUsr := Alltrim(Left(Embaralha(??_USERLGI,1),15)
Se servir só o usuário para aqui, se não:
// Pesquisa por usuário
PswOrder(2)
//Faz o Seek
PswSeek(cUsr),.T.)
//Pego os dados do usuário
aUser := PswRet(1)
// ID do usuario.
cIDUsr := aUser[1][1]
// Retorna o nome completo do usuário
UsrFullName(cIDUsr)
P.S.: Usei isso a bastante tempo, então não testei aqui OK, veja se resolve.
Ultima edição: 10 anos 3 meses atrás por AndersonBR.
Por favor Acessar ou Registrar para participar da conversa.
- brunosoaress
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 3
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24111
por brunosoaress
Respondido por brunosoaress no tópico Ajuda urgente
Boa tarde.
Pode ser utilizado essa função.
UserInclusao := FWLeUserlg("A1_USERLGI")
UserAlteração := FWLeUserlg("A1_USERLGA")
Se quiser saber a data.
cDataInclusao := FWLeUserlg("A1_USERLGI", 2)
Pode ser utilizado essa função.
UserInclusao := FWLeUserlg("A1_USERLGI")
UserAlteração := FWLeUserlg("A1_USERLGA")
Se quiser saber a data.
cDataInclusao := FWLeUserlg("A1_USERLGI", 2)
Por favor Acessar ou Registrar para participar da conversa.
- Kaleb Correa
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24115
por Kaleb Correa
Respondido por Kaleb Correa no tópico Ajuda urgente
Muito obrigado Bruno !
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.130 segundos