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 aApro01nLimite as logical

	aApro01 numeric

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


	If aAPrv[2]
		FLD->FLD_STATUS :if cStatus == '1' //Solicitado
	ElseIf !aAPrv[2]2' .AND. aAprv[3]
		FLD->FLD_STATUS := '2' //Aprovado
	ElseIf !aAPrv[2] .AND. !aAprv[3] .AND. !aAprv[1]
		FLD->FLD_STATUS := '0' //Negado
	EndIf nValor > nLimite // Status = 2 - Aprovado

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

	endif  

Return aApro01