01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:

FA280FBW 


02. DESCRIÇÃO


Ponto de entrada FA280FBW permite tratar a validade da natureza

Tabela posicionada:

No momento da chamada estará posicionado na tabela.


03. EXEMPLO DE UTILIZAÇÃO

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function FIN280NAT
    (Ponto de entrada para tratar a validade da natureza)
    @type  logical
    @author Cássio S. Dias
    @since 14/11/2023
    @version 12.12310
    @return lRet, logical
    @see ()
    /*/
User Function FIN280NAT()
	Local lRet:=.T.
	Local cCodNat:= PARAMIXB

	dbSelectArea("SED")
	dbSetOrder(1) //ED_FILIAL+ED_CODIGO
	if dbseek(xFilial("SED")+cCodNat)
		// Valida naturezas com mais de 5 anos e nao bloqueadas
		IF DateDiffYear( DATABASE , SED->ED_DTINCLU )  > 1825 .AND. SED->ED_MSBLQL<>'1'
			Reclock("SED",.F.)
			SED->ED_MSBLQL  :='1' // Efetua bloqueio da natureza
			MsUnlock()
			MSGALERT( "Natureza com mais de 5 anos inclusão, não poderá ser utilizada nessa operação", "Sem permissão" )
			lRet:=.F.
		ENDIF
	ENDIF


Return lRet