Gerar Pagamentos

[Marostegan 0]

olá!

 

poxa, cara nao consigo de jeito nenhum fazer isso!

 

=//

[bdexterholland 0]

Camarada, você está esperando soluções prontas, estude mais o exemplo que passei e tente ajustar o seu source. Atenção: não é ajustar meu source ao seu e sim ajustar seu source...

[jpevangelista 0]

Veja se este codigo vai funcionar em sua lista.

Gerando Parcela//Codigos no botao 'gerar'

Var

Data: TDateTime;

ParcVenc, ValorParc: String;

i: Integer;

Parcela, Resto: Currency;

DTDaysParcelas: Array [1 .. 500] of String;

Total: Currency;

begin

Data := DateTimePicker1.DateTime;

ParcVenc := DBEdit1.Text; // 3

Total := StrToCurr(DBEdit3.Text);

for i := 1 to StrToInt(ParcVenc) do

DTDaysParcelas := IntToStr(i * 30);

Parcela := Total / StrToInt(ParcVenc);

Resto := Total - (Parcela * StrToInt(ParcVenc));

for i := 1 to StrToInt(ParcVenc) do

begin

Data := Date + StrToInt(DTDaysParcelas);

ValorParc := FloatToStr(Parcela);

if i < StrToInt(ParcVenc) then

begin

ValorParc := FloatToStr(Parcela);

ListBox1.Items.Add(FormatFloat('0.00', Parcela) + ' - ' + DateToStr(Data) + ' - ' +

DTDaysParcelas + ' Dias');

Dm.TbParcela.Append;

Dm.TbParcelaparcela.AsInteger := StrToInt(DTDaysParcelas);

Dm.TbParcelavencimento.AsDateTime := Data;

Dm.TbParcelavalor_parcela.AsFloat := Parcela;

Dm.TbParcelan_parcela.AsString := IntToStr(i) + 'º';

Dm.TbParcela.Post;

end

else

begin

Parcela := Parcela + Resto;

ListBox1.Items.Add(FormatFloat('0.00', Parcela) + ' - ' + DateToStr(Data) + ' - ' +

DTDaysParcelas + ' Dias');

Dm.TbParcela.Append;

Dm.TbParcelaparcela.AsInteger := StrToInt(DTDaysParcelas);

Dm.TbParcelavencimento.AsDateTime := Data;

Dm.TbParcelavalor_parcela.AsFloat := Parcela;

Dm.TbParcelan_parcela.AsString := IntToStr(i) + 'º';

Dm.TbParcela.Post;

end;

end;

ListBox1.Items.Add(ParcVenc + ' Parcelas');

end;