Histórico da Página
01. DADOS GERAIS
Produto: |
| ||||
---|---|---|---|---|---|
Linha de Produto: |
| ||||
Segmento: |
| ||||
Módulo: |
| ||||
Função: | Gera Dados para a Dirf (FINA401) | ||||
País: | Brasil |
02. DESCRIÇÃO
O Ponto de Entrada
...
FA401GRV utilizado para gravar campos
...
da tabela "SR4" - Itens DIRF/Informe Rendimento
...
, referente aos tipos de rendimento "A"(Título principal) e "D"(Título de imposto).
Tabelas posicionadas:
No momento da chamada do ponto de entrada será posicionado na tabela.
- SR4 - Itens DIRF/Informe Rendimento
02. PARÂMETROS
Nome | Tipo | Descrição |
---|
ParamIxb[1] | Caracter | Contém tabela temporária com informações do título principal. |
ParamIxb[2] | Caracter | Contém tabela temporária com informações do título de imposto. |
03. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 @seeIf (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 NIL Reclock("SR4", .F.) SR4->R4_DTPGT := (cTitNF)->E2_BAIXA SR4->(MsUnlock()) EndIf Endif Return |
Templatedocumentos |
---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas