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 (links_or_referenceshttps://tdn.totvs.com/x/6TA6M)
    /*/
User Function F667STRAPR(aAprv) AS ARRAY

	Local aApro01 as logical

	aApro01 := aAprv    //aAprv[1] - Aprovação de Solicitação (.T. or .F.)
	                    //aAprv[2] - Avaliação do Gestor (.T. or .F.)
	                    //aAprv[3] - Lib. do Pagamento (.T. or .F.)

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

Return aApro01