Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro
Rotina:FINA080 - Baixa a Pagar Manual 


02. DESCRIÇÃO

O ponto de entrada F80GRVFK será executado para gravar dados complementares nas tabelas FK5 e FK6. 

Ele será executado em dois momentos:

  1. Para carregar os dados complementares no registro principal da baixa - quando receber como parâmetro o Sub-model de Id FK2DETAIL
  2. Para carregar os dados complementares nos registros auxiliares da baixa - quando receber como parâmetro o Sub-model de Id FK6DETAIL

Observação: o ponto de entrada F80GRVFK foi criado para a versão Protheus12 e pode ser utilizado em conjunto com o ponto de entrada SE5FI080, conforme documentação no link abaixo.

...

Bloco de código
languagejava
themeMidnight
titleFI050POS
#INCLUDE "PROTHEUS.CH"

User Function F80GRVFK()

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

Local cConteudo := "Campo custom."

If nOpc == 1 //Baixa 
    //--Recebe Submodel FK5 - Movimentos Bancários
    oObj:SetValue( "FK5_CUSTOM" , cConteudo )

Else 
    //--Recebe Submodel FK6 - Valores Assesórios
    If nOpc == 2 // Desconto
        cConteudo +=  '- DC'
    ElseIf nOpc == 3 // Juros
        cConteudo +=  '- JR'
    ElseIf nOpc == 4 // Multa
        cConteudo +=  '- MT'
    ElseIf nOpc == 5 // Correcao Monetaria
        cConteudo +=  '- CM'
    ElseIf nOpc == 6 // Imposto Substituicao
        cConteudo += ' - IS'
    ElseIf nOpc == 7 // Valor acessório
        cConteudo += ' - VA'        
    EndIf

    oObj:SetValue( "FK6_CUSTOM" , cConteudo )

Endif

Return oObj


04. DEMAIS INFORMAÇÕES

Não háSE5FI080 - Ponto de entrada para gravação de dados complementares da baixa 

05. ASSUNTOS RELACIONADOS

...