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 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:
PE SE5FI080 - Exemplo |
---|
#INCLUDE "PROTHEUS.CH" User Function SE5FI080() cCamposE5 := ParamIxbcCamposE5 +=",{ ParamIxb[1] oSubModel := ParamIxb[2] 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
onto |
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: | F080GRV() | ||||||||||||||||
Retorno: |
|
PE FA080GRV() - Exemplo |
---|
#INCLUDE"PROTHEUS.CH" UserFunctionF80GRVFK() Local oObj := ParamIxb[1] Local nOpc := ParamIxb[2] Local cHistMov :="F80GRVFK" Alert("Executando PE F80GRVFK") If nOpc ==1//Baixa 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 |