- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de Entrada SA1 Inscrição municipal
×
Linguagem de Programação ADVPL
Perguntas Ponto de Entrada SA1 Inscrição municipal
- pabloleite
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 30
- Obrigados Recebidos: 0
10 anos 11 meses atrás #14607
por pabloleite
Ponto de Entrada SA1 Inscrição municipal foi criado por pabloleite
Boa tarde,
Criei a seguinte função
USER FUNCTION VALSA1
LOCAL LRET := .T.
If M->A1_PESSOA == "J"
if EMPTY(M->A1_INSCRM)
alerta:= MsgAlert("Preencher Incrição Municipal!")
LRET:= .f.
ENDIF
ENDIF
RETURN (alerta)
Fiz um gatilho no campo A1_CGC para após ele passar por esse campo fazer EXECBLOCK(U_VALSA1) para validar se o cliente é PF ou PJ e então dar o alerta para preencher a inscrição municipal. Só que isso não impede que o usuario termine o cadastro sem deixar o campo em branco caso seja cliente Pj.
Qual o modo de fazer esta validação?
Criei a seguinte função
USER FUNCTION VALSA1
LOCAL LRET := .T.
If M->A1_PESSOA == "J"
if EMPTY(M->A1_INSCRM)
alerta:= MsgAlert("Preencher Incrição Municipal!")
LRET:= .f.
ENDIF
ENDIF
RETURN (alerta)
Fiz um gatilho no campo A1_CGC para após ele passar por esse campo fazer EXECBLOCK(U_VALSA1) para validar se o cliente é PF ou PJ e então dar o alerta para preencher a inscrição municipal. Só que isso não impede que o usuario termine o cadastro sem deixar o campo em branco caso seja cliente Pj.
Qual o modo de fazer esta validação?
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #14608
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Ponto de Entrada SA1 Inscrição municipal
User Function MA030TOK()
Local aArea := GetArea()
LOCAL LRET := .T.
If Inclui .Or. Altera
If M->A1_PESSOA == "J"
if EMPTY(M->A1_INSCRM)
alerta:= MsgAlert("Preencher Incrição Municipal!")
LRET:= .f.
ENDIF
ENDIF
Endif
RETURN (lRET)
Local aArea := GetArea()
LOCAL LRET := .T.
If Inclui .Or. Altera
If M->A1_PESSOA == "J"
if EMPTY(M->A1_INSCRM)
alerta:= MsgAlert("Preencher Incrição Municipal!")
LRET:= .f.
ENDIF
ENDIF
Endif
RETURN (lRET)
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- pabloleite
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 30
- Obrigados Recebidos: 0
10 anos 11 meses atrás #14611
por pabloleite
Respondido por pabloleite no tópico Ponto de Entrada SA1 Inscrição municipal
Ficou ótimo! Muito obrigado
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de Entrada SA1 Inscrição municipal
Tempo para a criação da página:0.111 segundos