01. GENERAL DATA
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 |
02. DESCRIPTION
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