Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Rafael Fernando Villanueva Alegre

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rafael Fernando Villanueva Alegre

Gravado em

Chave

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

01. 

...

DATOS GENERALES

Linha

Línea de

Produto

producto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financeiro

Financiero

Função

Función:

FINA401 –

Gera Dados Para a

Genera datos para la Dirf

FINA403 -

Gera Dirf Empresa Públicas

Genera DIRF Empresas públicas

02. 

...

DESCRIPCIÓN

O ponto El punto de entrada F401DCMP permite gravação de dados complementares nas tabelas Itens la grabación de datos complementarios en las tablas Ítems DIRF/Informe Rendimentode ingresos (SR4) e y DIRF / Informe Rendimentosde ingresos (SRL), após a gravação das mesmasdespués de la grabación de estas.

03. 

...

PARÁMETROS      

Não No se aplica.

04.

...

DEVOLUCIÓN

Não No se aplica.

05. 

...

EJEMPLO DE

...

UTILIZACIÓN


Bloco de código
themeMidnight
titleF401DCMP
#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 := "PONTOPUNTO DE ENTRADA"
    SRL->RL_ENDBENE := "ENDEREÇODIRECCIÓN 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

...