Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function F80GRVFK()

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

Local cConteudo := "Campo customcustomizado."

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