Amigos, estou desenvolvendo um programa em delphi seatle, e me deparei com um erro onde crie um proecesso para gera parcelas automaticamente, mais quando execulto o comando clicando no botão gerar parcelas, os registros não são gerados.
segue o procedimento que estou usando.
procedure Tform_teste.DBEdit3Exit(Sender: TObject);
begin
Dm.Tb_Parcelatotal_parc.Value :=
Dm.Tb_parcelavalor_parc.Value /
Dm.Tb_parcelaquant_parc.Value;
end;
procedure Tform_teste.btn_gerarClick(Sender: TObject);
var parc:integer;
begin
DBEdit3Exit (sender);
if dm.Tb_Parcela.State in [dsinsert] then
begin
dm.Tb_Parcela.Insert;
parc := 1;
while parc <= dm.Tb_ParcelaID.Value do
begin
dm.Tb_Parcela.Insert;
dm.Sql_parcelaID.Value:= parc;
dm.Tb_parcelavalor_parc.Value := Dm.Tb_Parcelaquant_parc.Value;
dm.Tb_Parcelavenc_parc.Value := date;
dm.Sql_parcela.Post;
inc (parc);
dm.Tb_parcela.ApplyUpdates(1);
end;
end;
tenho um dbgrid que mostra as parcelas geradas, o que ta acontecendo é que nao registra as parcelas no banco de dados, so registra 1uma, uso o banco de dados Mysql.
Me ajudem ai por favor!!