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
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
