Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA240 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46748 |
Entry point AF240CLA runs at the end of the Asset Classification process in the assets routine. It allows you to customize the process, as well as save additional data related to the classified asset.
You can use this entry point to meet specific data processing and storage needs not available in the default configuration of the system.
Handling of EP in the system
If ExistBlock("AF240CLA")
ExecBlock("AF240CLA",.F.,.F.)
EndIf
EP Example
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function AF240CLA()
Local dDtAquiN3 := SN3->N3_AQUISIC //Store in variable the content of SN3->N3_AQUISIC
Local dDtAquiN1 := SN1->N1_AQUISIC //Store in variable the content of SN1->N1_AQUISIC
If dDtAquiN1 <> dDtAquiN3 //If the dates are divergent I notify the user
lRet := MsgYesNo("Divergent acquisition dates (N1_AQUISIC/N3_AQUISIC), do you want to save with similar dates?","Acquisition Dates")
If lRet //If the user selects the option "yes" the system saves both fields with the same content
RecLock("SN3")
SN3->N3_AQUISIC := dDtAquiN1
EndIf
EndIf
Return .T. |
| Aviso | ||
|---|---|---|
| ||
|