[firebase-br] Problema com select ao calcular juros !!!

Rodrigo - Winsoft rodrigo em netalfa.com.br
Qua Ago 3 12:43:21 -03 2005


Boa tarde galera, 

estou com o seguinte problema:
Tenho o select abaixo, ele está funcionando. (é uma afirmação)


select PR.DTEMISSAO, PR.DTVENC, PR.DTPAGREC, PR.DESCRICAO, PR.NUMDOC, PR.N_NUMERO,
PR.VALOR, PR.DESCONTO, PR.ACRESCIMO, PR.VR_FINAL, PR.PERDAS_LUCROS,
PR.CHEQUE, PR.CVENENT, PR.C_D, PR.OBS, PR.OBS2, PR.OBSERVACAO, PR.CCLIFOR, C.NCLIFOR, C.ENDER, C.BAIRRO, C.CEP,
C.DDDT1, C.TEL1, C.DDDF1, C.FAX1, C.CONTATO, C.CPFCGC, C.RGIE, C.EMAIL, C.DDDT2,
C.TEL2, C.DDD, C.CEL, C.DDDF2, C.FAX2, C.NFANT, CI.NCIDADE, E.UF, C.DDDC
from PAGREC PR
left join CLIFOR C on C.CCLIFOR = PR.CCLIFOR
left join CIDADE CI on C.CCIDADE = CI.CCIDADE
left join ESTADO E on CI.CUF = E.CUF
where PR.DTVENC < :DATA1
order by C.NCLIFOR, PR.DTVENC


preciso q neste select ele me calcule juros em cima dos registros q estiverem em atraso.

teria q acrescentar alguma coisa neste sentido, no select

aux_dia := Data do dia - data vencimento;
If (aux_dia > 30) Then { tem q estar vencido a partir de determinado dia q o cliente configure, neste caso 30 dias }
  multa := (valor * ( (juros/100) /30));
  multa := multa * aux_dia;
  juros.Text := FormatFloat('#,##0.00',multa); 
  Vr_juros.Text := FormatFloat('#,##0.00',(DVRecPagComp.FieldByName('valor').AsFloat + multa));
else
  Text34.Text := '0,00';
  Text35.Text := FormatFloat('#,##0.00',DVRecPagComp.FieldByName('valor').AsFloat);
end;     

Estou utilizando Firebird 1.5

Existe a possibilidade ?

Desde já agradeço.

Obrigado.

Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
rodrigo em netalfa.com.br


Mais detalhes sobre a lista de discussão lista