Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 aApro01 cStatus as character Local nValor as numeric Local nLimite as logical aApro01numeric 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 Return aApro01 nValor > nLimite // Status = 2 - Aprovado aAprv[1]:= .T. aAprv[2]:= .F. aAprv[3]:= .F. endif Return aAprv |
Parametro | Tipo | Descrição | Valor |
---|---|---|---|
aAprv | Array[1] | Paramixb[1] - Aprovação de Solicitação (.T. or .F.) | Logical |
aAprv | Array[2] | Paramixb[2] - Avaliação do Gestor (.T. or .F.) | Logical |
aAprv | Array[3] | Paramixb[3] - Lib. do Pagamento (.T. or .F.) | Logical |
Retorno | Tipo | Retorno |
---|---|---|
aAprv | Array | Retorna informa o array com processos de aprovação para exceções |
04. DEMAIS INFORMAÇÕES
Não há
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas