Histórico da Página

/*Se a periodicidade for o seu aniversário utilizo o índice anual, limitado a 10% ao ano,
*se não for o aniversário e for para aplicar a proporcionalização do CM, utilizo o índice mensal */
DECL INDICE;

/*Se for o aniversário do contrato, reajuste de ano em ano, então:*/
Se EANIVERSARIOPERIODICIDADE = 1 Entao
     /* Busca o índice anual */
     SETVAR(INDICE, GETVALORCMACUMULADAGETVALORCMMENSAL('IGPM_ANUAL', ADICIONAMESES(DATREAJUSTE,-1), DATREAJUSTE, 0));
     /*Se índice maior que 10% ao ano, usa 10%, se não usa o da tabela*/
     Se INDICE > 0.10 Entao
           SETVAR(INDICE, 0.10)
      FimSe
Senao
      /*Se desejar cobrar o CM proporcional antes do aniversário e estiver configurado para isso, então*/
      Se CALCULARJUROSCMPROPORCIONALANTECIPACAO = 1 Entao
             /*busco o índice mensal acumulado do IGPM desde o último aniverário até a data do boleto*/
            SETVAR(INDICE, GETVALORCMACUMULADAGETVALORCMMENSAL('IGPM-M', DATAULTIMOANIVERSARIOPERIODICIDADE, DATREAJUSTE, 0))
       Senao
             /*se não estiver configurado o CM proporcional, então não calcula a correção monetária deste período*/
            SETVAR(INDICE, 0);
        FimSe
FimSe

INDICE

/* Se for aniversário do reajsute ou o cliente está antecipando as parcelas, então reajsuta*/
SE EANIVERSARIOPERIODICIDADE = 1 OU
     CALCULARJUROSCMPROPORCIONALANTECIPACAO = 1 ENTAO
  1
SENAO
  0
FIMSE

/*Buscar o saldo devedor do componente principal para calcular a correção monetária */
TABPARCELA('SALDOPRINCIPAL','V')