Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function WFFIN667WFFIN677
    (Ponto de entrada permite Enviavalida Solicitação de Aprovação para o Fluig. apos o recebimento do paramentro)
    @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       //Chave de prestação de contas 	FLF->( FLF_FILIAL + FLF_TIPO + FLF_PRESTA + FLF_PARTIC )
	@param Paramixb[42] //Codigo Usuario Siga  	        	RD0->RD0_USER
	@param Paramixb[23] Codigo//Código do participanteAprovadores 
	@param Paramixb[3] Codigo do Adiantamento 
	@param Paramixb[5] Aprovadores do participante  	FLN->FLN_APROV /
    @return Nil
    @see (links_or_referenceshttps://tdn.totvs.com/x/WPGMM)
    /*/
User Function WFFIN667WFFIN677(Paramixb)
//Posicionado nas tabelas
//FLDFLF -	Prestação de Contas Adiantamento de Viagem        
//FLMFLN -	Aprovação LiberaçãoPrestação dode Adiantamento          Contas 
//RD0 - 	Pessoas/Participantes         

	Local aDados  as array 
	local aUsers  as array
	local cAdiantcUser   as character
	local cParticcChvFLF as character
	local cUseraUsers   as character
	local cViagem as characterarray


	aDados 	:= Paramixb
	cViagem := aDados[1] //Codigo da viagem             FL5_VIAGEM | FLM->FLM_VIAGEM
	cPartic{cChvFLF, cUser, aUsers}
	cChvFLF := aDados[21] //CodigoChave dode participanteprestação de contas 	FLF->( FLF_FILIAL +  FLU_PARTIC FLM->FLM_PARTIC
	cAdiant := aDados[3] //Codigo do Adiantamento       FLD_ADIANT FLM->FLM_ADIANTFLF_TIPO + FLF_PRESTA + FLF_PARTIC )
	cUser   	:= aDados[42] //Codigo Usuario Siga  	        	RD0->RD0_USER
	aUsers  	:= aDados[53] //Código do Aprovadores do     participante  FLM	FLN->FLM>FLN_APROV, RD0_APROPC','RD0_APSUBS /


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

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

	endif

Return NIL