Discussion :

[looping]

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 :

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;

cordialement

[Rayek]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
// Dans le after post
If FINSERTMODE Then
 // ton code

[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.

[Rayek]

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 ....) il est peut être plus difficile de mettre en place un Trigger.

[Cl@udius]

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

Arrf je n'avais pas remarqué.

au passage super les noms des composants

CQFD