Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

O ponto de entrada AF010TOK faz a validação dos valida os dados digitados antes da gravação.

Exemplos

#include "rwmake.ch"

User function AF010TOK()
Local aArea := GetArea()
Local cMensagem := ""
Local lRet := .T.
Local cChapa := AllTrim(M->N1_CHAPA)

If !Empty(cChapa)
    If Len(cChapa) <> 6
        cMensagem := "Numero da Plaqueta nao esta no padrao de digitos."
        Help("ATFA010",1,"HELP","VALCHAPA",cMensagem,1,0)
        lRet := .F.
    Endif
Endif

RestArea(aArea)
SN1->(DbSetOrder(1))

Return lRet

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10_e_Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

lRet

Programa Fonte

ATFA010aATFA010A.PRW