Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Línea de producto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financiero

Función:

FINA401 – Genera datos para la Dirf

FINA403 - Genera DIRF Empresas públicas

02. DESCRIPCIÓN

El punto de entrada F401DCMP permite la grabación de datos complementarios en las tablas Ítems DIRF/Informe de ingresos (SR4) y DIRF / Informe de ingresos (SRL), después de la grabación de estas.

03. PARÁMETROS      

No se aplica.

04. DEVOLUCIÓN

No se aplica.

05. EJEMPLO DE UTILIZACIÓN


F401DCMP
#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 := "PUNTO DE ENTRADA"
    SRL->RL_ENDBENE := "DIRECCIÓ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