Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagecpp
themeMidnight
firstline1
titleFA401CMP
linenumberstrue
#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 :="2020"

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

Return NIL

...