Histórico da Página
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
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#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 |
Ponto-de-Entrada: F401DCMP para gravação de dados complementares
...
Descrição:
F401DCMP para gravação de dados complementares na SR4 e SRL, após a gravação das mesmas.Programa Fonte: FINA401
Sintaxe:
F401DCMP( )
Exemplos
...
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas