ActiveDelphi

[claudemir-vaz]

Olá boa tarde tenho um sistema de venda consegui fazer o parcelamento onde escolho por exemplo ENTRADA/30/60 ele gera 3 parcelas certinho o esquema que preciso é o seguinte c tenho 3 parcelas de 200,00 reais imagine a situação onde o cliente que dar uma entrada maior de 300 por exemplo ai as outras duas vai mudar para 150 nao to sabendo onde coloco isso

[tiagofelipebones]

Ola amigo claudemir, conseguiu solucionar seu problema?

tenho um codigo que talvez possa usar, as variaveis são publicas:

procedure TfrmGerarParcelas.calcula_parcela;
begin
if(edNumParcelas.Text = '')then
begin
edNumParcelas.Text:='1';
end;
valor_total_venda:=dm.tbVenda.FieldByName('valor').AsFloat;

if (valor_recebeu < 1 )then
begin
edValorRestante.Text:=edValorVenda.Text;

//Recebe o numero de parcelas
num_parcelas:=StrToFloat(edNumParcelas.Text);

//Calcula o valor da parcela
valor_parcela:=valor_total_venda / num_parcelas;

//Mostra o valor da parcela
edValorParcela.Text:=FloatToStr(valor_parcela);
end
else
begin
//Calcula o restante a receber
parcial := valor_total_venda - valor_recebeu;

//Mostra quanto falta a receber
edValorRestante.Text:=FloatToStr(parcial);

//Recebe o numero de parcelas
num_parcelas:=StrToFloat(edNumParcelas.Text);

//Calcula o valor da parcela
valor_parcela:= parcial / num_parcelas;

//Mostra o valor da parcela
edValorParcela.Text:=FloatToStr(valor_parcela);
end;

end;