Fórum recalcular valor das parcelas #267371

vc tera que dar um while na tabela e fazer o recalculo
pegar o valor total das pacelas e dividir pelo que ele ja pagou, dai vc tera o restante que ainda nao foi pago

vc tera que pegar esse valor que nao foi pago e dividir entre as parcelas que ficaram pedendtes

entaum a lógica da coisa eu até entendo como deve ser mas to com dificuldade na hora de montar isso no delphi qq ajuda eh valida

Uma outra forma que você pode fazer é o seguinte ex.:
Digamos que um cliente tenha 3 parcelas de 100,00 e ele venha pagar em vez de 100,00 pague 150,00, o que eu faria é o seguinte, pagaria uma normal de 100,00 e pegaria a segunda parcela e pagaria somente 50,00, gerando uma nova para o mesmo vencimento e tudo no valor de 50,00.

olha o que eu fiz aki eh o seguinte:

procedure TF_Fechamento.SpeedButton3Click(Sender: TObject);
var
total,conta,valordasoutrasparcelas,valordigitado,valorfuturo:real;
parcelasrestantes,totalparcelas,parcelaatual:integer;
begin
//***************************************************************************************************
//Efetua o calculo das parcelas restantes
total:=DM.T_Vendas_CSubtotal.Value;
totalparcelas:=DM.T_Vendas_CQtde_Parcelas.Value;
valordigitado:=strtofloat(DBEdit9.Text);
parcelaatual:=strtoint(DBEdit8.Text);
parcelasrestantes:=totalparcelas-parcelaatual;
valorfuturo:=total-valordigitado;

DM.T_Receber.Next;
while not DM.T_Receber.Eof do
begin
DM.T_Receber.Edit;
DM.T_Receber.FieldByName(´Receber´).AsFloat:=valorfuturo/parcelasrestantes;
DM.T_Receber.Next;
end;

//***************************************************************************************************
end;

o problema eh q ele recalcula o valor certinho qdo vc muda o valor da primeira parcela mas qdo muda da segunda pra frente ele fica loko o valor eh totalmente diferente do esperado. alguem ve alguma coisa q pode melhorar o código????