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

[Ton]

   Use um Case...

   Case (CurrentDate - Data)
   When faz os cálculo
   Else Retorna o valor normal...

        Ton
Analista de Sistemas
 DotCom Informática

"A informação não é um produto,
mas sim a matéria prima." (Ton)

-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Rodrigo - Winsoft
Enviada em: quarta-feira, 3 de agosto de 2005 12:43
Para: Lista - FireBase
Assunto: [firebase-br] Problema com select ao calcular juros !!!
Prioridade: Alta

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
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.9.7/60 - Release Date: 28/7/2005
 

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.9.7/60 - Release Date: 28/7/2005