Histórico da Página

#INCLUDE#include "totvsPROTHEUS.ch"

/*/{Protheus.doc} User Function FA401CMP()

Local cTitNF as Character
Local (PontocTitTX de entrada utilizado para gravar campos complementares do "SR4" - Itens DIRF/Informe Rendimento )as Character

If ParamIxb <> Nil

    cTitNF := ParamIxb[1] 
    @authorcTitTX Cassio S. Dias:= ParamIxb[2]

    @since 14/11/2023
    @version 12.1.2310
 If  !Empty(SRL->RL_PAIS)
   @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 NILReclock("SR4", .F.)
        
        SR4->R4_DTPGT := (cTitNF)->E2_BAIXA
        
        SR4->(MsUnlock())
    EndIf

Endif

Return