Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA271 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46748 |
Entry Point AF271TP is activated during the call of routine ATFA271 (Asset Group Register) and allows the customer to implement additional adjustments or validations that meet the specific needs of their company. This entry point offers the flexibility needed for adapting the asset group registration process, ensuring that the data entered are compliant with internal policies and rules.
With the AF271TP, the customer can set validation criteria to make sure that all data related to the asset group register are consistent and appropriate to their organization's business context, contributing to greater accuracy and control of records.
ExecBlock("AF271TP",.F.,.F.) |
#Include 'protheus.ch'
#Include 'parmtype.ch'
User Function AF271TP()
//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
// This example allows editing the field X3_CBOX to make sure type 12 (FNG_TIPO) is available in the asset group register.
//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SX3->(DbSetOrder(2))
If SX3->(DbSeek("FNG_TIPO"))
If ALLTRIM(SX3->X3_CBOX) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
RecLock("SX3", .F.)
SX3->X3_CBOX := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})'
MsUnLock()
EndIf
If ALLTRIM(SX3->X3_CBOXSPA) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
RecLock("SX3", .F.)
SX3->X3_CBOXSPA := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})'
MsUnLock()
EndIf
If ALLTRIM(SX3->X3_CBOXENG) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
RecLock("SX3", .F.)
SX3->X3_CBOXENG := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})'
MsUnLock()
EndIf
EndIf
Return |
|