Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function FINGRVALC
    (Ponto de entrada para validar gravacao do arquivo FRT)
    @type  Function
    @author Cassio S Dias
    @since 06/12/2023
    @version 12.1.2310
    @param param_name, param_type, param_descr
    @return return_var, return_type, return_description
    @see (links_or_referenceshttps://tdn.totvs.com/x/2AlAM)
    /*/
User Function FINGRVALC(paramixb) as logical

    Local aValid  as array
	Local lGrvOk  as logical
	Local nValLim as numeric

	lGrvOk :=.T.
	nValLim:= 50000
    aValid := paramixb 

	//paramixb[1]COD USER	
	//paramixb[2]COD GESTOR
	//paramixb[3]TIPO DE MOV	
	//paramixb[4]MOEDA	
	//paramixb[5]DATA	
	//paramixb[6]SEQ 	
	//paramixb[7]SALDO	

	If FRT->(DbSeek(xFilial("FRT")+aValid[1]+aValid[2]+aValid[4]+aValid[3]+DTOS(aValid[5])+aValid[6]))
		if aValid[7]> nValLim
			if MSGYESNO( "Identificado valor maior que valor limite. Confirma Gravação?", "FINGRVALC - Confirmação" )
				lGrvOk :=.T.
			else
				lGrvOk :=.F.
			ENDIF
		ENDIF
	Endif

Return lGrvOk