| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Financeiro |
| Rotina: | FINA080 - Baixa a Pagar Manual |
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 da tabela FK5 - quando receber como parâmetro o código de operação 1.
2 - Para carregar os dados complementares nos registros auxiliares da baixa da tabela FK6 - quando receber como parâmetro os códigos de operação de 2 até 7.
Observação: o ponto de entrada F80GRVFK foi criado para a versão Protheus12 e pode ser utilizado em conjunto com os pontos de entradas citados abaixo, em Demais Informações.
| Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Objeto | Sub-model para adicionar dados complementares no registro da tabela FK5 ou FK6 (conforme o ponto de execução). |
| PARAMIXB[2] | Numérico | Código da operação, indicando qual registro auxiliar está sendo tratado no momento da execução do ponto de entrada. |
| Tipo | Descrição |
|---|---|
| Objeto | Sub-model do PARAMIXB[1] com os dados complementares informados. |
#INCLUDE "PROTHEUS.CH"
User Function F80GRVFK()
Local oObj := ParamIxb[1]
Local nOpc := ParamIxb[2]
Local cConteudo := "Campo customizado."
If nOpc == 1 //Baixa
//--Recebe Submodel FK5 - Movimentos Bancários
oObj:SetValue( "FK5_CUSTOM" , cConteudo )
Else
//--Recebe Submodel FK6 - Valores Acessórios
If nOpc == 2 // Desconto
cConteudo += '- DC'
ElseIf nOpc == 3 // Juros
cConteudo += '- JR'
ElseIf nOpc == 4 // Multa
cConteudo += '- MT'
ElseIf nOpc == 5 // Correção Monetária
cConteudo += '- CM'
ElseIf nOpc == 6 // Imposto Substituição
cConteudo += ' - IS'
ElseIf nOpc == 7 // Valor acessório
cConteudo += ' - VA'
EndIf
oObj:SetValue( "FK6_CUSTOM" , cConteudo )
Endif
Return oObj |
06. DEMAIS INFORMAÇÕES
SE5FI080 - Ponto de entrada para gravação de dados complementares da baixa
F080ACONT - Complemento de baixa a pagar