- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Validação Nota de Entrada
×
Linguagem de Programação ADVPL
Perguntas Validação Nota de Entrada
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
8 anos 5 meses atrás #30677
por diegoo_martins
Validação Nota de Entrada foi criado por diegoo_martins
Pessoal, bom dia.
Preciso fazer uma validação ao clicar na rotina de visualização de Nota fiscal de entrada.
Estou utilizando este PE MT103NFE, porém aparece a mensagem, mas consigo visualizar a Nota.
Como aparecer a mensagem e travar a visualização?
User Function MT103NFE()
Local _lRet := .t.
If l103Visual .and. (__cUserId $ '000074')
MsgBox ("Ação NÃO permitida.","ATENÇÃO","STOP")
_lRet:=.f.
Endif
Return(_lRet)
Preciso fazer uma validação ao clicar na rotina de visualização de Nota fiscal de entrada.
Estou utilizando este PE MT103NFE, porém aparece a mensagem, mas consigo visualizar a Nota.
Como aparecer a mensagem e travar a visualização?
User Function MT103NFE()
Local _lRet := .t.
If l103Visual .and. (__cUserId $ '000074')
MsgBox ("Ação NÃO permitida.","ATENÇÃO","STOP")
_lRet:=.f.
Endif
Return(_lRet)
Por favor Acessar ou Registrar para participar da conversa.
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
8 anos 5 meses atrás #30678
por diegoo_martins
Respondido por diegoo_martins no tópico Validação Nota de Entrada
Pessoal, bom dia.
Objetivo da validação é permitir que um determinado usuário visualize somente Notas Fiscais com Espécie Sped e NF.
Consegui colocar a validação através do PE M103FILB.
Porém, somente om 1 espécie....(SPED).
Inserindo 2 condições no filtro gera error.log.
Como colocar as 2 condições no filtro?
User Function M103FILB()
Local cFiltro := ""
Local cCod := ""
PswOrder(1)
cCod := PswRet()[1][1]
do case
case cCod == '000074'
cFiltro := "F1_ESPECIE = 'SPED'"
endcase
Return (cFiltro)
Objetivo da validação é permitir que um determinado usuário visualize somente Notas Fiscais com Espécie Sped e NF.
Consegui colocar a validação através do PE M103FILB.
Porém, somente om 1 espécie....(SPED).
Inserindo 2 condições no filtro gera error.log.
Como colocar as 2 condições no filtro?
User Function M103FILB()
Local cFiltro := ""
Local cCod := ""
PswOrder(1)
cCod := PswRet()[1][1]
do case
case cCod == '000074'
cFiltro := "F1_ESPECIE = 'SPED'"
endcase
Return (cFiltro)
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Validação Nota de Entrada
Tempo para a criação da página:0.102 segundos