Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA060 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46748 |
You can use the entry point AF060DES to perform specific validations related to the target branch selected during the asset transfer process.
The call of this entry point stops the validation of the user access permissions control.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
lRet := ExecBlock("AF060DES",.F.,.F.,{cFilDes,dUltDeprOr,dUltDeprDs}) |
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
User Function AF060DES()
Local lRetorno := .T.
Local cFil := ParamIXB[1] // Target Branch
Local dUltdOrig := ParamIXB[2] // Last depreciation date Source
Local dUltdOrig := ParamIXB[3] // Last depreciation date Target
If MsgYesNo('AF060DES - Confirm the branch ' + cFil + ' as target branch?')
lRetorno := .T.
Else
lRetorno := .F.
EndIf
Return lRetorno |
...