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()
// Variáveis recebidas via PARAMIXB
Local aCols := PARAMIXB[1] // Array contendo os registros de itens
Local nCnt := PARAMIXB[2] // Número de registros no array
Local lRet := .F.
// Exemplo de uso
If SN3->N3_IDBAIXA = "2"
// validação do cliente
lRet := .T.
EndIf
Return lRet |
|