/*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, GETVALORCMACUMULADA('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, GETVALORCMACUMULADA('IGPM', 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 INDICEOs parâmetros poderão vir marcados/desmarcados por default de acordo com a parametrização realizada nos Parâmetros Gerais. |