Linha Microsiga Protheus

Árvore de páginas

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 := ParamIxb[1] 
Local oSubModel := ParamIxb[2]

If oSubModel:cID == "FK2DETAIL" 
    If "NOR" $ oSubModel:GetValue("FK2_MOTBX") 
        cCamposE5 += ",{" 
        cCamposE5 += " 'E5_HISTOR','Baixa Normal Teste' " 
        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:

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





 

PE FA080GRV() - Exemplo

#INCLUDE "PROTHEUS.CH"


User Function F80GRVFK()

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