Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function FA405CMP

    (Ponto de entrada utilizado para gravar campos complementares do "SR4" - Itens DIRF/Informe Rendimento )
    @author Cassio S. Dias
    @since 14/11/2023
    @version 12.1.2310
    @return Nil
    @see (https://tdn.totvs.com/x/o20KM)
    /*/
User Function FA401CMPFA405CMP()

	//Posicionado na tabela "SR4 - Movimentos do caixinha"
	Local cAno :="2020"

//Gravando o campo país para os registros com ano superior ao ano de 2020
	if SR4->R4_ANO > cAno
		Reclock("SR4",.F.)
		SR4->R4_PAIS  := "105"
		MsUnlock()
	Endif

Return NIL