Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de entrada acionado no momento em que o usuário clica no botão resgatar.

Localização:

Atualizações > Aplicações/Empréstimos > Resgate/Pagamentos Empréstimos

Eventos:

Após clicar no Botão Resgate

Programa Fonte:

FINA181

Função:

a181ResgApl

Retorno:

Nil

 

 Obs. As variáveis disponíveis:

  • nA181VlAtu - Valor atualizado do título;
  • nA181VlIRF - Valor do IR;
  • nA181VlCrd  - Valor do Crédito

 

Exemplo:

#Include 'Protheus.ch'

User Function F181RGBL()

Local _nopc

_nopc := AVISO("PE.F1s81RGBL","Deseja Recalcular valores do Resgate?",{"SIM","NAO"})

If _nopc == 1

nA181VlIRF := Round(nA181VlAtu * 0.0250,2)//Valor IR
nA181VlCrd := nA181VlAtu - nA181VlIRF //Valor do Crédito

Endif

Return