Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function F677VLDCF
    (Ponto de entrada permite o cliente criar validação de usuário para liberar a conferencia da prestação de contas)
    @type  Function
    @author Cassio S Dias
    @since 07/12/2023
    @version 12.1.2310
    @return vlRet,logical
    @see (links_or_referenceshttps://tdn.totvs.com/x/XCBAM)
    /*/
User Function F677VLDCF() as logical
	//Posicionado na tabela "FLF" - Prestação de Contas
	Local lRet      as logical
	Local cStatus   as character
	Local cCCusto   as character

	lRet    := .T.
	cStatus := FLF->FLF_STATUS
	cCCusto := FLF->FLF_CC

	IF !(FLF->FLF_STATUS $ '2/3' ).AND. EMPTY( cCCusto )
		MSGINFO( "Necessário informar Centro de Custa para liberação da conferência da prestação de contas.", "Conferência Prestação" )
		lRet := .F.
	ENDIF

Return lRet