× Linguagem de Programação ADVPL

Perguntas Validação Nota de Entrada

Mais
8 anos 5 meses atrás #30677 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)

Por favor Acessar ou Registrar para participar da conversa.

Mais
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)

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.102 segundos
Joomla templates by a4joomla