GPM550GR - Gravação de Dados na DIRF

CONTEÚDO

Visão Geral
Exemplo de utilização
Parâmetros
Variáveis

01. VISÃO GERAL

Este Ponto de Entrada permite gravar outros valores nos dados de Geração da DIRF.

Programa Fonte

GPEM550.PRX

Sintaxe

GPM550GR - Gravação Outros Valores na DIRF

Retorno

()

02. EXEMPLO DE UTILIZAÇÃO

User Function GPM550GR()
Local aDadosDIRF := {"1010","600040","14105799053","02","G","0561","50.85","2023","20230228"}
Local cChave := "1010600040141057990530561202304G"

// Gravação de Outros Valores na DIRF
// Garante que gravação de outros valores não conflita com dados gravados pela própria rotina GPEM550
dbSelectArea("SR4")
SR4->( dbSetOrder( 1 ) ) //R4_FILIAL+R4_MAT+R4_CPFCGC+R4_CODRET+R4_ANO+R4_MES+R4_TIPOREN+R4_PAIS+R4_NIFEX
If !SR4->( dbSeek( cChave ) )
RecLock("SR4",.T.)
SR4->R4_FILIAL := aDadosDIRF[1]
SR4->R4_MAT := aDadosDIRF[2]
SR4->R4_CPFCGC := aDadosDIRF[3]
SR4->R4_MES := aDadosDIRF[4]
SR4->R4_TIPOREN := aDadosDIRF[5]
SR4->R4_CODRET := aDadosDIRF[6]
SR4->R4_VALOR := Val(aDadosDIRF[7])
SR4->R4_ANO := aDadosDIRF[8]
SR4->R4_ORIGEM := "1"
SR4->R4_DTPGT := StoD(aDadosDIRF[9])
SR4->( MsUnLock() )
EndIf

Return()

03. PARÂMETROS

Não há.

04. VARIÁVEIS