Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Fabio Henrique Zanchim Barbosa

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Douglas de Oliveira Homem

Gravado em

Chave

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

...

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 abaixoos pontos de entradas citados abaixo, em Demais Informações.


Informações
titleImportante

Parâmetros:

ParamIXB[1] - Sub-model para adicionar dados complementares no registro da tabela FK5 ou FK6 (conforme o ponto de execução)
ParamIXB[2] - Código da operação, indicando qual registro auxiliar está sendo tratado no momento da execução do ponto de entrada.


Retorno:

Deverá ser do tipo numérico representando a taxa da moeda:

NomeTipoDescriçãoObrigatório
oObjObjetoSub-model do ParamIXB[1] com os dados complementares informados.Sim

...

Bloco de código
languagejava
themeMidnight
titleFI050POSF80GRVFK
#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 AssesóriosAcessórios
    If nOpc == 2 // Desconto
        cConteudo +=  '- DC'
    ElseIf nOpc == 3 // Juros
        cConteudo +=  '- JR'
    ElseIf nOpc == 4 // Multa
        cConteudo +=  '- MT'
    ElseIf nOpc == 5 // CorrecaoCorreção MonetariaMonetária
        cConteudo +=  '- CM'
    ElseIf nOpc == 6 // Imposto SubstituicaoSubstituição
        cConteudo += ' - IS'
    ElseIf nOpc == 7 // Valor acessório
        cConteudo += ' - VA'        
    EndIf

    oObj:SetValue( "FK6_CUSTOM" , cConteudo )

Endif

Return oObj

...