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()

Local

cCamposE5 cCamposE5 += ",{

cCamposE5 :=

ParamIxb
Local cTeste := "TESTE"

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

ParamIxb[1]
Local oSubModel := ParamIxb[2]

If oSubModel:cID == "FK2DETAIL"
    If "NOR" $ oSubModel:GetValue("FK2_MOTBX")
        cCamposE5 += ",{"
        cCamposE5 += " 'E5_HISTOR','Baixa Normal Teste' "

+cTeste +"' }"
Return cCamposE5

        cCamposE5 += "} "
        oSubModel:SetValue("FK2_HISTOR","Baixa Normal Teste")
    EndIf
EndIf

Return cCamposE5

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

F080GRV()

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:

PE FA080GRV() - Exemplo
#INCLUDE"PROTHEUS.CH"

UserFunctionF80GRVFK()

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

Alert("

Executou

Executando PE F80GRVFK")

If nOpc ==1//Baixa

cHistMov := "Teste"

oObj:SetValue( "FK5_HISTOR" , cHistMov )
Else// Valores Assesórios
If nOpc ==2// Desconto

cHistMov

cHistMov :=RTrim(cHistMov) +' - Desconto'
ElseIf nOpc ==3// Juros

cHistMov

cHistMov :=RTrim(cHistMov) +' - Juros'
ElseIf nOpc ==4// Multa

cHistMov

cHistMov :=RTrim(cHistMov) +' - Multa'
ElseIf nOpc ==5// Correcao Monetaria

cHistMov

cHistMov :=RTrim(cHistMov) +' - Correcao'
ElseIf nOpc ==6// Imposto Substituicao

cHistMov

      cHistMov :=RTrim(cHistMov) +' - Imposto Substituicao'
  EndIf
  oObj:SetValue( "FK6_HISTOR" , cHistMov )
Endif

Return oObj

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão Atual

Chave

Ponto de Entrada