Histórico da Página

Descrição

O ponto de entrada F80GRVFK sera executado para gravar dados complementares das tabelas FK´s.

Obs: Ponto de Entrada F80GRVFK criado F80GRVFK foi criado para a versão Protheus12 em substituição do ponto de entrada SE5FI080.

Devido a reestruturação das tabelas do financeiro a sintaxe do ponto de entrada SE5FI080 foi alterada devendo ser seguida conforme exemplo abaixo:

#INCLUDE "PROTHEUS.CH"

User Function SE5FI080()

Local cCamposE5 := ParamIxb
Local cTeste := "TESTE"

cCamposE5 += ",{'E5_HISTOR' , '"+cTeste +"' }"

Return cCamposE5

Este ponto de entrada passa a grava para versão 12 somente campos da tabela SE5 que não tenham suas informações replicadas para as tabelas FK´s

Ponto de Entrada

Descrição:

Grava dados complementares no registro de baixa do titulo.

Localização:

Baixa a Pagar

Eventos:

Confirmar a baixa do titulo.

Programa Fonte:

FINA080

Função:

FA080GRV()

Retorno:

Nome	Tipo	Descrição	Obrigatório
oSubFK	Objeto	Estrutura das tabelas FK´s	Sim
nI	Numerico	1)manipula informações da tabela FK5 (SE5 do movimento bancário) 2) manipula informações da tabela FK6 (SE5 dos valores acessórios como: Desconto/Juros/Multa/Correção monetária/Imposto substituição)	Sim

Exemplo:

User Function F80GRVFK()

Local oObj := ParamIxb[1]
Local nOpc := ParamIxb[2]
Local cHistMov := ""

Alert("Executou PE F80GRVFK")

If nOpc == 1 //Baixa
cHistMov := "Teste"
oObj:SetValue( "FK5_HISTOR" , cHistMov )
Else // Valores Assesórios
If nOpc == 2 // Desconto
cHistMov := RTrim(cHistMov) + ' - Desconto'
ElseIf nOpc == 3 // Juros
cHistMov := RTrim(cHistMov) + ' - Juros'
ElseIf nOpc == 4 // Multa
cHistMov := RTrim(cHistMov) + ' - Multa'
ElseIf nOpc == 5 // Correcao Monetaria
cHistMov := RTrim(cHistMov) + ' - Correcao'
ElseIf nOpc == 6 // Imposto Substituicao
cHistMov := RTrim(cHistMov) + ' - Imposto Substituicao'
EndIf

oObj:SetValue( "FK6_HISTOR" , cHistMov )

Endif

Return oObj

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave

Ponto de Entrada