EP AF010TOK

01. GENERAL DATA

02. DESCRIPTION

Entry point AF010TOK is responsible for validating the data entered before their recording in the asset register process.

Operation:

• • It is immediately enabled before confirmation and activation of the recording of registered data.
  • It allows the developer to implement specific rules to validate the data provided by the user, ensuring data consistency and integrity.

Benefits:

• • Quality Control Ensures that the data entered meet previously set criteria before being recorded.
  • Flexibility: It allows companies to customize the default behavior, adapting it to their specific needs.

This entry point is ideal for ensuring that the asset register meets customized validation standards before being finalized.

03. OTHER INFORMATION

If lRet .AND. ExistBlock("AF010TOK")
      lRet := ExecBlock("AF010TOK",.F.,.F.)
Endif

#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 := "Registration Number does not comply with the digit standard."
                  Help("ATFA010",1,"HELP","VALCHAPA",cMensagem,1,0)
                  lRet := .F.
            Endif
      Endif

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

Return lRet

04. RELATED SUBJECTS

• Not Applicable.