Montei um gerador de pagamentos que pega vários dados e salva em uma tabela do banco, o problema é que usei o evento OnActivate do Form, então cada vez que volta para o form inicial, o procedimento é executado novamente, sendo que esses dados só devem ser inseridos uma vez ao dia(pagamento referente ao dia atual). Alguma dica de como executar isso somente quando o programa for inicializado pela primeira vez ao dia(levando em conta que o usuário pode fechar e abrir novamente)?
procedure TForm3.FormActivate(Sender: TObject);
var
dataa,dataontem,datatrunc : TdateTime;
year,month,day :word;
mm,dd ,a,btext,datatext:string;
b,c,i:integer;
valorMens:real;
Soma:Double;
begin
datatrunc:=Trunc(dataa);
//-------------------------------------------------------------------
// Gerar Pagamento Mensalidade
// ------------------------------------------------------------------
i:=0;
a:=stringgrid2.RowCount.ToString();
c:=strtoint(a);
edit5.Text:=inttostr(c);
datatext:=datetimetostr(datatrunc);
Form1.ADOQueryMens.Close;
Form1.ADOQueryMens.Filter:=('Data='+ QuotedStr(datatext));
Form1.ADOQueryMens.Filtered:=true;
Form1.ADOQueryMens.open;
if Form1.ADOQueryMens.FieldByName('Data').IsNull then
begin
if c>0 then
begin
while i<c do
begin
b:=strtoint(stringgrid2.Cells[0,i]);
btext:=inttostr(b);
adoQueryAluno.Close;
adoQueryAluno.Filter:=('Código='+ QuotedStr(btext));
adoQueryAluno.Filtered:=true;
adoQueryAluno.open;
Soma:= 0;
ADOQueryAluno.First;
while not ADOQueryAluno.Eof do
begin
Soma:= Soma + AdoqueryAlunoValor.Value;
ADOQueryAluno.Next;
end;
valorMens:=Soma;
Form1.AdoTableMensalidade.Open;
Form1.AdoTableMensalidade.Insert;
Form1.AdoTableMensalidade.FieldValues['CodAluno']:=b;
Form1.AdoTableMensalidade.FieldValues['Valor']:=valorMens;
Form1.AdoTableMensalidade.FieldValues['Data']:=Trunc(dataa);
Form1.AdoTableMensalidade.FieldValues['Pago']:=false;
Form1.ADOTableMensalidade.Post;
Form1.ADOTableMensalidade.Close;
Form1.ADOTableMensalidade.Open;
i:=i+1;
end;
end;
Form1.ADOQueryMens.Filtered:=false;
end;
end;
Isso executa no OnActivate do Form, e faz a inserção dos valores na Tabela Mensalidade, quanto a isso está tudo ok e ele insere certinho... Mas ele executa toda vez que volta no form inicial, o que é o problema.