Bonjour,
Concernant l'événement Afterpost:
Est ce qu'il est possible de différencier si il est appelé par un Edit ou un Insert ?
Dans le code qui suit, je voudrais que le code identifié "bloc" ne soit exécuté que dans le cas d'une insertion, mais pas en cas de modification.
J'ai essayé avec les événement "on before insert" ou "on new record" mais sans succes, ce qui est logique puisque il faut que l'enregistrement soit commité pour que le code du bloc fonctionne.
cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 procedure TForm14.IBQuery11AfterPost(DataSet: TDataSet); begin ibtransaction1.CommitRetaining; //bloc ibtransaction3.Active:=true; IBSQL100.Close; IBSQL100.SQL.Clear; IBSQL100.SQL.Add('INSERT INTO TJ_CLIADR (TJAIDCLI, TJAIDCLIADR) VALUES (:idcli,:idadr)'); IBSQL100.ParamByName('idcli').AsInteger:=ibquery1CLIDCLI.Value; IBSQL100.ParamByName('idadr').AsInteger:=ibquery11ADIDADRESS.Value; IBSQL100.ExecQuery; ibtransaction3.Commit; //finbloc end;
Partager