Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas