Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function F667APROP
    (Monta validação customizada para desligar a aprovação do próprio viajante)
    @type  Function
    @author Cassio S Dias
    @since 04/12/2023
    @version 12.1.2310
    @return lRet, logical
    @see (links_or_referenceshttps://tdn.totvs.com/x/7SE6M)
    /*/
User Function F667APROP() as logical

	Local lRet      as logical
	Local cPartic   as Character
	Local nValor    as numeric
	Local nCota     as numeric

    lRet    := .F.
	cPartic := Paramixb
	nValor  := Paramixb
    nCota   := Paramixb

	//Busca na RD0 se o participante é aprovador dele mesmo.
    
	RD0->(dbSeek( xFilial('RD0') + cPartic))
	If (cPartic == RD0->RD0_APROPC .OR. cPartic == RD0->RD0_APSUBS) .AND. nValor > nCota
		
        lRet := MsgYesNo("O participante é aprovador dele mesmo - Confirma? ", "Confirmação")

		if lRet
			FLD->FLD_STATUS := '2' //Aprovado.
			FLD->FLD_APROV  := cPartic
			FLD->FLD_DTAPRO := dDataBase
			FLD->FLD_VALAPR := nValor
		else
			FLD->FLD_STATUS := '1' //Solicitado.
			FLD->FLD_APROV  := cPartic
			FLD->FLD_DTAPRO := dDataBase
			FLD->FLD_VALAPR := nValor
		EndIf

	EndIf

Return lRet