Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function WFFIN667
    (Ponto de entrada Envia Solicitação de Aprovação para o Fluig.)
    @type  Function
    @author Cassio S Dias
    @since 13/12/2023
    @version 12
    @param param_name, param_type, param_descr
    @param Paramixb[1] Codigo da viagem       
	@param Paramixb[4] Codigo Usuario Siga          
	@param Paramixb[2] Codigo do participante 
	@param Paramixb[3] Codigo do Adiantamento 
	@param Paramixb[5] Aprovadores do participante 
    @return Nil
    @see (links_or_references)
    /*/
User Function WFFIN667(Paramixb)
//Posicionado nas tabelas
//FLD - Adiantamento de Viagem        
//FLM - Liberação do Adiantamento          
//RD0 - Pessoas/Participantes         

	Local aDados  as array
	local aUsers  as array
	local cAdiant as character
	local cPartic as character
	local cUser   as character
	local cViagem as character

	aDados 	:= Paramixb
	cViagem := aDados[1] //Codigo da viagem             FL5_VIAGEM | FLM->FLM_VIAGEM
	cPartic := aDados[2] //Codigo do participante       FLU_PARTIC FLM->FLM_PARTIC
	cAdiant := aDados[3] //Codigo do Adiantamento       FLD_ADIANT FLM->FLM_ADIANT
	cUser   := aDados[4] //Codigo Usuario Siga          RD0->RD0_USER
	aUsers  := aDados[5] //Aprovadores do participante  FLM->FLM_APROV, RD0_APROPC','RD0_APSUBS

	if !EMPTY(aDados[4]) .AND. aDados[4] != 00000

		MSGINFO( "Passou pelo P.E WFFIN667", "WFFIN667" )

	endif

Return NIL