gerar datas baseadas em parcelas

[pcst]

ola pessoal

como faço pra gerar registro baseado em datas com referencia a quantidade de parcelas

preciso montar um esquema de pedidos de protudos

tipo

codigo descrição... data da venda quantidade valor

001 produto 15/06/2009 3 100,00

========== total geral 300,00

quando finalizar no pagamento preciso gerar um parcelamentos

tipo o valor deu R$ 300,00 --- vezes de parcelamento 3

data parcela valor

15/07/2009 1/3 100,00

15/08/2009 2/3 100,00

15/09/2009 3/3 100,00

Como eu faria o codigio em delphi ...

usando o Query e o data source no banco de dados paradox.

at..

obrigado

Editado Maio 10, 2009 por pcst

[Jhonas]

como faço pra gerar registro baseado em datas com referencia a quantidade de parcelas

Use um componente ComboBox para colocar a quantidade das parcelas

exemplo:

( parcelas )

2

3

4

OBS: Supondo que o primeiro pagamento é a vista e na data atual, nas demais parcelas basta acrescentar novos componentes de data para receber as demais datas em função da quantidade de meses

if ComboBox1.Text = '2' then
      DateEdit2.Date := DateEdit1.Date + 31; // 1 mes

   if ComboBox1.Text = '3' then
      begin
        DateEdit2.Date := DateEdit1.Date + 31; // 1 mes
        DateEdit3.Date := DateEdit1.Date + 62; // 2 meses
      end;

   if ComboBox1.Text = '4' then
      begin
        DateEdit2.Date := DateEdit1.Date + 31; // 1 mes
        DateEdit3.Date := DateEdit1.Date + 62; // 2 meses
        DateEdit4.Date := DateEdit1.Date + 92; // 3 meses
      end;

Com relação aos pagamentos

// pagamento em 2 parcelas
   if ComboBox1.Text = '2' then
      begin
         CurrencyEdit1.Value :=  CurrencyEdit1.Value / 2;  
         CurrencyEdit2.Value :=  CurrencyEdit1.Value; 
      end;

    // pagamento em 3 parcelas
    if ComboBox1.Text = '3' then
      begin
         CurrencyEdit1.Value :=  CurrencyEdit1.Value / 3;
         CurrencyEdit2.Value :=  CurrencyEdit1.Value;
         CurrencyEdit3.Value :=  CurrencyEdit1.Value;
      end;

   // pagamento em 4 parcelas  
   if ComboBox1.Text = '4' then
      begin
         CurrencyEdit1.Value :=  CurrencyEdit1.Value / 4;
         CurrencyEdit2.Value :=  CurrencyEdit1.Value;
         CurrencyEdit3.Value :=  CurrencyEdit1.Value;
         CurrencyEdit4.Value :=  CurrencyEdit1.Value;
      end;

OBS: Veja que estou usando componentes do RxLib ... o restante seria somente montar a sua janela para mostrar os dados

abraço