×
Linguagem de Programação ADVPL
Perguntas Erro PE MT100TOK
- augusto_almeida
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
9 anos 9 meses atrás #26765
por augusto_almeida
Erro PE MT100TOK foi criado por augusto_almeida
Bom dia,
Estou criando uma validação para que o usuário não possa digitar menos que 6 dígitos no campo Numero da NF.
Porem está dando um erro no meu fonte, se alguém puder ajudar.
#Include 'Protheus.ch'
User Function MT100TOK()
Local lRet := .T.
nqtdcarac:= Len(M->F1_DOC)
If nqtdcarac < 11
MSGINFO ("Numero da NF esta com menos de 6 digitos")
Endif
Return(lRet)
Att,
Estou criando uma validação para que o usuário não possa digitar menos que 6 dígitos no campo Numero da NF.
Porem está dando um erro no meu fonte, se alguém puder ajudar.
#Include 'Protheus.ch'
User Function MT100TOK()
Local lRet := .T.
nqtdcarac:= Len(M->F1_DOC)
If nqtdcarac < 11
MSGINFO ("Numero da NF esta com menos de 6 digitos")
Endif
Return(lRet)
Att,
Por favor Acessar ou Registrar para participar da conversa.
- saulorv
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 28
- Obrigados Recebidos: 0
9 anos 9 meses atrás #26770
por saulorv
Respondido por saulorv no tópico Erro PE MT100TOK
Bom dia Augusto! Tenta assim;
User Function MT100TOK()
Local lRet := .T.
Local nqtdcarac := "Len(M->F1_DOC)"
If nqtdcarac < 11
lRet := .F.
MSGINFO("Numero da NF esta com menos de 6 digitos")
Endif
Return(lRet)
User Function MT100TOK()
Local lRet := .T.
Local nqtdcarac := "Len(M->F1_DOC)"
If nqtdcarac < 11
lRet := .F.
MSGINFO("Numero da NF esta com menos de 6 digitos")
Endif
Return(lRet)
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.080 segundos