Exibir origem

01. GENERAL DATA

Product:	TOTVS Backoffice
Product Line:	Protheus Line
Industry:	Services
Module:	TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF)
Function:	ATFA012
Country:	Brazil
Ticket:	Internal
Requisite/Story/Issue	DSERCTR1-46748

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

It is noteworthy that the customer is responsible for EP utilization and its impacts on the system.
The examples used in this documentation are for demonstration purposes only. Each customer must check what behavior they want to perform according to the scope of the entry point.

04. RELATED SUBJECTS

Not Applicable.