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" UserFunctionSE5FI080() Local cCamposE5 := ParamIxb[1] Local cTeste :="SE5FI080" 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
onto 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: | FA080GRVF080GRV() | ||||||||||||||||
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 |