Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 15

changes.mady.by.user Douglas de Oliveira Homem

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:

Brasil

02. DESCRIÇÃO

O Ponto de Entrada FA401CMP 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).

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.

...

Bloco de código
languagecpp
themeMidnight
firstline1
titleFA401CMP
linenumberstrue
#include "PROTHEUS.ch"
User Function FA401CMPFA401GRV()

Local cTitNF as Character
Local cTitTX as Character

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

    cTitNF := ParamIxb[1] // Título Principal
    cTitTX := ParamIxb[2] // Título de Imposto

    If  !Empty(SRL->RL_PAIS)
        Reclock("SR4", .F.)
        
        SR4->R4_DTPGT := (cTitNF)->E2_BAIXA
        
        SR4->(MsUnlock())
    EndIf

Endif

Return

...