Regra para retornar o valor de juros, multas e encargos da movimentação do título, nos títulos do contas a pagar que são de empréstimo.
Definir Numero CtlNTipCon;
Definir Alfa CtlAFilSQL;
Definir Alfa CtlACmpVal;
/*Expressão SQL para identificar os títulos de empréstimo através de um campo de usuário criado no tipo de titulo, quando o valor do campo
USU_ENELPR = 1, o tipo de título é de titulo de empréstimo*/
CtlAFilSQL = "COALESCE(E002TPT.USU_ENELPR, 0) = 1";
/*Quando o título for de empréstimo, identificado pela expressão anterior o valor do título será a soma dos campos VLRENC , VLRJRS e VLRMUL*/
CtlACmpVal = "E501MCP.VLRENC + E501MCP.VLRJRS + E501MCP.VLRMUL";
Regra para retornar o valor de juros, multas e encargos da movimentação do título, nos títulos do contas a pagar que são de empréstimo, somente para os títulos com pagamento normal (CtlNTipCon = 0).
Definir Numero CtlNTipCon;
Definir Alfa CtlAFilSQL;
Definir Alfa CtlACmpVal;
/*Expressão SQL para identificar os títulos de empréstimo através de um campo de usuário criado no tipo de titulo, quando o valor do campo
USU_ENELPR = 1, o tipo de título é de titulo de empréstimo*/
Se ((CtlNTipCon = 0)) {
CtlAFilSQL = "COALESCE(E002TPT.USU_ENELPR, 0) = 1";
/*Quando o título for de empréstimo, identificado pela expressão anterior o valor do título será
a soma dos campos VLRENC , VLRJRS e VLRMUL*/
CtlACmpVal = "E501MCP.VLRENC + E501MCP.VLRJRS + E501MCP.VLRMUL";
}