Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function F667STRAPR
    (Manipula os processos de aprovação para exceções)
    @type  Function
    @author Cássio S Dias
    @since 04/12/2023
    @version 12.1.2310
    @param aAprv, array
    @return aApro01, array
    @see (https://tdn.totvs.com/x/6TA6M)
    /*/
User Function F667STRAPR(aAprv) AS ARRAY  	
	
	Local cStatus as character
	Local nValor  as numeric
	Local nLimite as numeric

	cStatus := FLD->FLD_STATUS
	nValor  := FLD->FLD_VALAPR
	nLimite := 5000
	aAprv 	:= Paramixb   	//Paramixb[1] - Aprovação de Solicitação (.T. or .F.)
							//Paramixb[2] - Avaliação do Gestor (.T. or .F.)
							//Paramixb[3] - Lib. do Pagamento (.T. or .F.)


	if cStatus == '2' .AND. nValor > nLimite // Status = 2 - Aprovado

		aAprv[1]:= .T.
		aAprv[2]:= .F.
		aAprv[3]:= .F.

	endif  

Return aApro01  aAprv