AF060TOK PE ATFA060 Transfer - Inclusion of Validations with the data model in linhaOK of the routine

01. GENERAL DATA

Product:	TOTVS Backoffice
Product Line:	Microsiga Protheus Line
Industry:	Services
Module:	TOTVS Backoffice (Protheus Line) - Fixed Asset (SIGAFIS)
Function:	ATFA060 - Transfers / PE - AF060TOK
Country:	Brazil
Ticket:	Internal
Requirement/Story/Issue:	DSERCTR1-42087

02. STATUS/REQUIREMENT

This document aims to explain the entry point AF060TOK.

03. SOLUTION

The entry point (PE) AF060TOK aims to allow that the customer adds their own validations when performing actions in the transfer routine when transmitted by the saving validations in the rows based on the routine model data, counting on the tables involved in its database, thus allowing more specific rules according to the customer's needs.

Important

The changes performed to the entry point are the total responsibility of the customer that implements them.

Code and examples

Entry Point Example

#include 'totvs.ch'
#include "rwmake.ch"   

User Function AF060TOK()

    Local Modelo060 :=  PARAMIXB[1] 
    local cCheck    :=  Modelo060:GetValue("GridFNR",'FNR_LOCORI')
    Local lRetorno  :=  .T.
	
    If Empty(cCheck)
        If MsgYesNo("The asset does not have its location registered before performing the transfer." + CRLF + CRLF + "Continue?","")
            lRetorno    := .T.
        Else
            lRetorno    := .F.
        EndIf
    Else
        lRetorno    := .T.
    EndIf
    
Return lRetorno

PE Call in the System

If (lRet .AND. lAF060TOK)
	lAux := ExecBlock("AF060TOK",.F.,.F.,{oModel})
	If ValType(lAux) == "L"
		lRet := lAux
	EndIf
Endif

Important!!

The examples used in this documentation are merely illustrative.

04. OTHER INFORMATION

Parameters

Parameters	Type	Description
PARAIXB[1]	Object	Data model of the transfer routine.

Return

Name	Type	Description
lRetorno	Logical	The result expected from .T. or .F. based on the validations performed will allow or not the sequence of the process performed based on the rules implemented in the PE.

05. RELATED SUBJECTS

Not Applicable.

Páginas filhas