Histórico da Página
Descrição
O ponto de entrada F80GRVFK sera executado para gravar dados complementares das tabelas FK´s.
Obs: Ponto de Entrada criado para a versão Protheus12
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: | FA080GRV() | ||||||||||||||||
Retorno: |
|
Exemplo:
User Function F80GRVFK()
Local oObj := ParamIxb[1]
Local nOpc := ParamIxb[2]
Local cHistMov := ""
Alert("Executou PE F80GRVFK")
If nOpc == 1 //Baixa
cHistMov := "Teste"
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