Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAFIS) |
Function: | ATFA250 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46030 |
You can use this entry point to perform user validations at cancellation.
To first call the record, it must first have gone through all default system validations.
If lCancela .AND. ExistBlock("AF250CAN")
lCancela := Execblock("AF250CAN",.F.,.F.,{aCols,nCnt})
lCancela := IIF(ValType(lCancela) == "L",lCancela,.T.)
EndIf
User Function AF250CAN()
// Variables received via PARAMIXB
Local aCols := PARAMIXB[1] // Array containing all item records
Local nCnt := PARAMIXB[2] // Number of records in array
Local lRet := .F.
// Example of use
If SN3->N3_IDBAIXA = "2"
// customer validation
lRet := .T.
EndIf
Return lRet
Important !!