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
Não há.