01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:Financeiro
Função:

FINA401 – Gera Dados Para a Dirf

FINA403 - Gera Dirf Empresa Públicas

02. DESCRIÇÃO

O ponto de entrada F401DCMP permite gravação de dados complementares nas tabelas Itens DIRF/Informe Rendimento (SR4) e DIRF / Informe Rendimentos (SRL), após a gravação das mesmas.

03. PARÂMETROS      

Não se aplica.

04. RETORNO

Não se aplica.

05. EXEMPLO DE UTILIZAÇÃO


#INCLUDE "TOTVS.CH"

User function F401dcmp()
Local aPEArea       := GetArea() as array
Local aPEAreaSR4    := SR4->(GetArea()) as array
Local aPEAreaSRL    := SRL->(GetArea()) as array

FWAlertInfo("Ponto de entrada F401DCMP")

If Reclock("SR4", .T.)
    SR4->R4_FILIAL  := "01"
    SR4->R4_MAT     := "900000"
    SR4->R4_CPFCGC  := "69440722037"
    SR4->R4_MES     := "01"
    SR4->R4_TIPOREN := "A"
    SR4->R4_CODRET  := "1708"
    SR4->R4_ANO  := "2011"
    SR4->R4_ORIGEM := "2"
    SR4->R4_VALOR := 10000			
    SR4->(MsUnlock())
EndIf

If Reclock("SRL", .T.)                
    SRL->RL_FILIAL  := "01"
    SRL->RL_MAT     := "900000"
    SRL->RL_CODRET  := "1708"
    SRL->RL_TIPOFJ  := "1"
    SRL->RL_CPFCGC  := "69440722037"
    SRL->RL_BENEFIC := "PONTO DE ENTRADA"
    SRL->RL_ENDBENE := "ENDEREÇO PE"
    SRL->RL_UFBENEF := "SP"
    SRL->RL_CGCFONT := SM0->M0_CGC
    SRL->RL_NOMFONT := SM0->M0_NOMECOM
    SRL->(MsUnlock())
EndIf

RestArea(aPEAreaSRL)
RestArea(aPEAreaSR4)
RestArea(aPEArea)

Return nil