AF010TOK - Validation of the data entered when adding the asset

The entry point AF010TOK validates the data typed before saving.

#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 := "Plaque number is not in the digit standard."        

Help("ATFA010",1,"HELP","VALCHAPA",cMensagem,1,0)        

lRet := .F.    

Endif

Endif

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

Return lRet

Portuguese(Brazil)

Microsiga_Protheus10_e_Microsiga_Protheus11

All

All

lRet

ATFA010A.PRW