Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Cassio Silveira Dias

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Douglas de Oliveira Homem

Gravado em

Chave

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

01. DADOS GERAIS

Produto:

Solucoes_totvs_cross
SolucaoCrossTOTVS Backoffice

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoBackoffice

Módulo:

Modulos_cross_segmentos
ModulosCrossSegmentosTOTVS Backoffice (Linha Protheus) - Financeiro (SIGAFIN)

Função:

Gera Dados para a Dirf (FINA401)

País:

BrasilFA401CMP 

02. DESCRIÇÃO

O Ponto de Entrada

...

FA401GRV utilizado para gravar campos

...

da tabela "SR4" - Itens DIRF/Informe Rendimento

...

Tabelas posicionadas:

No momento da chamada do ponto de entrada será posicionado na tabela.

, referente aos tipos de rendimento "A"(Título principal) e "D"(Título de imposto).

02. PARÂMETROS

NomeTipoDescrição

ParamIxb[1] 

CaracterContém tabela temporária com informações do título principal.

ParamIxb[2] 

CaracterContém tabela temporária com informações do título de imposto.

...


03. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagecpp
themeMidnight
firstline1
titleFA401CMP
linenumberstrue
#INCLUDE#include "totvsPROTHEUS.ch"

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

Local cTitNF as Character
Local (PontocTitTX de entrada utilizado para gravar campos complementares do "SR4" - Itens DIRF/Informe Rendimento )
    @author Cassio S. Dias
    @since 14/11/2023as Character

If ParamIxb <> Nil // Uso obrigatório para verificar que o ParamIxb terá conteúdo.

    cTitNF := ParamIxb[1] // Título Principal
    @version 12.1.2310
    @return NilcTitTX := ParamIxb[2] // Título de Imposto

    If @see (https://tdn.totvs.com/x/EwQKM)
!Empty(SRL->RL_PAIS)
     /*/
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





Templatedocumentos