Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function FA401CMP

    (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/EwQKM)
    /*/
User Function FA401CMP()

	//Posicionado na tabela "SR4 - Movimentos do caixinha"
	Local cAno  as character
	Local cPais as character
	
 	cAno 	:= Paramixb
	cPais 	:= Paramixb


  //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  := cPais
   	MsUnlock()
	Endif

Return NIL