Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function WFFIN677
    (Ponto de entrada permite valida 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] //Chave de prestação de contas 	FLF->( FLF_FILIAL + FLF_TIPO + FLF_PRESTA + FLF_PARTIC )
	@param Paramixb[2] //Codigo Usuario Siga  	    	RD0->RD0_USER
	@param Paramixb[3] //Código do Aprovadores        	FLN->FLN_APROV /
    @return Nil
    @see (https://tdn.totvs.com/x/WPGMM)
    /*/
User Function WFFIN677(Paramixb)
//Posicionado nas tabelas
//FLF -	Prestação de Contas           
//FLN -	Aprovação Prestação de Contas 
//RD0 -	Pessoas/Participantes     

	Local aDados  as array 
	local cUser   as character
	local cChvFLF as character
	local aUsers  as array


	aDados 	:= Paramixb  //{cChvFLF, cUser, aUsers}
	cChvFLF := aDados[1] //Chave de prestação de contas 	FLF->( FLF_FILIAL + FLF_TIPO + FLF_PRESTA + FLF_PARTIC )
	cUser 	:= aDados[2] //Codigo Usuario Siga  	    	RD0->RD0_USER
	aUsers 	:= aDados[3] //Código do Aprovadores        	FLN->FLN_APROV /


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

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

	endif

Return NIL