CalcularValoresCR

Esta função visa calcular os valores multimoeda dos títulos: juros, multa, encargos, correção monetária (positiva), encargos, outros acréscimos, descontos, outros descontos e o valor líquido.

Sintaxe: Função CalcularValoresCR(Alfa Cursor, Data DatBas, Numero TipVct, Numero ConDbc, Numero end VlrJrs, Numero end VlrMul, Numero end VlrCor, Numero end VlrEnc, Numero end VlrOac, Numero end VlrDsc, Numero end VlrOde, Numero end VlrLiq);

Parâmetros de entrada:

Parâmetros de saída:

Exemplo:

MontaData(31, 12, 2020, xVencimentoMaximo);

xVlrLiquidoTotal = 0;

DataHoje(xDataBase);

Definir Cursor Cur_E301TCR;

Cur_E301TCR.Sql "SELECT E301TCR.CODEMP, E301TCR.CODFIL, E301TCR.NUMTIT, E301TCR.CODTPT, E301TCR.CODTNS, E301TCR.VCTORI, \

E301TCR.VCTPRO, E301TCR.DATDSC, E301TCR.VLRDSC, E301TCR.PERDSC, E301TCR.TOLMUL, E301TCR.PERMUL, E301TCR.VLRABE, E301TCR.PERJRS, E301TCR.JRSDIA, E301TCR.TIPJRS, \

E301TCR.TOLJRS, E301TCR.DATCJM, E301TCR.VLRORI, E301TCR.DATEMI, E301TCR.CODMOE, E301TCR.COTEMI, E301TCR.DATNEG, E301TCR.MULNEG, E301TCR.JRSNEG, E301TCR.DSCNEG, \

E301TCR.ANTDSC, E301TCR.COTNEG, E301TCR.DATNEG, E301TCR.OUTNEG, E301TCR.DATPPT, E301TCR.VLRABE, E301TCR.PRDDSC, E301TCR.COTFRJ, E301TCR.CODFRJ, E301TCR.DSCPON, \

E085CLI.INICOB, E085CLI.CEPINI \

FROM E301TCR, E085CLI WHERE \

E301TCR.CODCLI = E085CLI.CODCLI AND \

E301TCR.VLRABE > 0 AND E301TCR.VCTPRO <= :xVencimentoMaximo \

ORDER BY E301TCR.CODEMP";

Cur_E301TCR.AbrirCursor();

Enquanto(Cur_E301TCR.Achou) {

CalcularValoresCR("Cur_E301TCR", xDataBase,

2, @1 - Vencimento Prorrogado ou 2 - Provável pagamento@

0, @Considera data base na correção monetária: 1 - Sim ou 0 - Não@

VlrJrs, VlrMul, VlrCor, VlrEnc, VlrOac, VlrDsc, VlrOde, VlrLiq);

xVlrLiquidoTotal = xVlrLiquidoTotal + VlrLiq;

Cur_E301TCR.Proximo();

}

Cur_E301TCR.FecharCursor();

Definir Alfa xStrValor;

FormatarN(xVlrLiquidoTotal, "%3.2f", ",", xStrValor);

xStrValor = "Valor Total a Receber: " + xStrValor;

mensagem(retorna, xStrValor);

Utilização: Esta função utiliza os dados dos títulos disponíveis no SQL dos cursores para calcular os valores multimoeda de cada título. Assim, alguns campos dos títulos obrigatoriamente devem existir no SQL de um cursor para ser possível utilizar as novas funções (as funções irão consistir que esses campos existam no SQL):

CODEMP, CODFIL, NUMTIT, CODTPT, CODTNS, VCTORI, VCTPRO, DATDSC, VLRDSC, PERDSC, TOLMUL, PERMUL, VLRABE, PERJRS, JRSDIA, TIPJRS, TOLJRS, DATCJM, VLRORI, DATEMI, CODMOE, COTEMI, DATNEG, MULNEG, JRSNEG, DSCNEG, ANTDSC, COTNEG, DATNEG, OUTNEG, DATPPT, VLRABE, PRDDSC, COTFRJ, CODFRJ, DSCPON.

Observações:

• Para o contas a receber também serão exigidos os campos INICOB e CEPINI da tabela de clientes (E085CLI).
• Caso o identificador de regra CRE-301INVCR01 esteja ativo, será necessário garantir que todos os campos do título utilizados pela regra também estejam presentes no SQL do cursor, visto que não é possível criar uma consistência automática disso.
• Esta função utiliza os dados disponíveis no SQL dos cursores. Ou seja, quando executada, ela utiliza os dados do registro posicionado no cursor, de forma que as funções devem ser chamadas enquanto os registros do cursor são percorridos, retornando os valores calculados para cada registro do cursor.