AF010TOK - Validação dos dados digitados na inclusão do ativo

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

#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

Português(Brasil)

Microsiga_Protheus10_e_Microsiga_Protheus11

Todos

Todas

lRet

ATFA010A.PRW