Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAFIS) |
Function: | AF010ATXT,ATFA012 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46030 |
Use Entry Point ATLIBGRP in routine AF010ATAXA/AF012ATAXA to validate specific fields when comparing records of tables SN3 (Balances and Values) and SNG (Asset Groups). Its main goal is to ensure that the fields of an asset group comply with the definitions of the group to which they belong, especially during record editing operations.
This entry point allows the developer to implement additional validation logic
If ExistBlock("ATLIBGRP") lRet:= ExecBlock("ATLIBGRP",.F.,.F.,{FunName()}) EndIf
User Function ATLIBGRP() // Receive the name of the function calling the entry point Local cFunName := PARAMIXB[1] Local lRet := .T. // Implement a custom validation logic If cFunName == "AF010ATAXA" // Perform specific validations for the rates routine // For example, check whether the rate values are within an allowed range If SomeValidationFails() // Return .F. to indicate that the validation has failed lRet := .F. EndIf EndIf // Return .T. if all validations are approved Return lRet
Important !!