Fórum Tabela temporária e gerar parcelas #365819

procedure TEntradaProd.GeraParcelasClick(Sender: TObject);
var
  i, parcelas, parcela : integer;
  valor, total : currency;
  data : Tdatetime;

begin
  inherited;
  cdsParcelas.CreateDataSet;
  cdsParcelas.Open;
  IBDataset1.Open;
  // ** aqui cada variavel vai receber um valor ** //

  data     := IBDataSet1DATA_EMISSAO.Value; // recebe a data
  parcelas := JvSpinEdit1.AsInteger; // aqui recebe as parcelas
  valor    := IBDataSet1TOTAL_NOTA.Value; // aqui o valor total
  total    := valor / parcelas;     // aqui eu divido o valor total pelo nº de parcelas
  parcela  := 0;
  // ** agora vem a operação ** //

  for i:= 1 to parcelas do // vai adicionar no banco a qtd de registros referente ao nº de parcelas
  begin
     parcela := parcela + 1;  // aqui vai sair a qtd de parcela vou mostrar no grid
     data  := IncMonth(date,1); // aqui a data acrescida de um mes
     total := valor / parcelas;
     cdsParcelas.Append;
     cdsParcelasnumDoc.Value := IBDataSet1NOTAFISCAL.Value;
     cdsParcelasDataEmissao.Value := IBDataSet1DATA_EMISSAO.Value;
     cdsParcelasvalorTotal.Value := IBDataSet1TOTAL_NOTA.Value;
     cdsParcelasvalorParc.Value   := total;
     cdsParcelasDataVenc.Value    := data;
     cdsParcelasnumParc.Value := i;
     cdsParcelas.Active:= true;
     cdsParcelas.Post;
   end;
end;