conseil pour "after post"

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.

Code:

---

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;

---

cordialement

Tu peux jouer avec le BeforePost et une variable booléenne.

Code:

---

1 2 3

// dans le before FINSERTMODE := (Dataset.State = dsInsert);

---

Code:

---

1 2 3 4

// Dans le after post If FINSERTMODE Then // ton code

---

Salut

Tu as la solution de Rayek, ou bien celle de confier cette tâche au SGDB via un trigger after insert. Ce que je privilegierais.

@+ Claudius.

Citation:

---

Envoyé par Cl@udius

Salut

Tu as la solution de Rayek, ou bien celle de confier cette tâche au SGDB via un trigger after insert. Ce que je privilegierais.

@+ Claudius.

---

Ne connaissant pas son modèle de données et les sources de sa 2em requête venant aussi d'une autre requête (Ibquery1 et pas IbQuery11 comme celle appelant le afterpost .... au passage super les noms des composants ....:roll:) il est peut être plus difficile de mettre en place un Trigger.

Citation:

---

Envoyé par Rayek

Ibquery1 et pas IbQuery11 comme celle appelant le afterpost ....

---

Arrf je n'avais pas remarqué. :aie:

Citation:

---

Envoyé par Rayek

au passage super les noms des composants

---

CQFD :mrgreen: