Discussion :

[tunis71187]

Bonjour à tous;

j'ai un problème de clear_form après enregistrement.
J'utilise seulement un mennu à partir duquel je peux enregistrer, le problème c'est que je veux après l'enregistrement la forme soit vide. si je mets le code clear_form dans le menu donc ça sera appliqué à tous les autres formes ayant ce menu or je veux juste une forme bien particulier.

Des idées s'il vous plait.

[tunis71187]

Il me reste ce problème que je n'ai trouvé aucune solution. J'ai essayé avec clear bolock mais....

[SheikYerbouti]

Si c'est juste pour une forme, alors il faut déplacer le Clear_Form() dans un trigger de niveau form dans la forms en question.

[SheikYerbouti]

Sinon vous pouvez laisser dans le menu et tester le nom de la forme en cours, mais ça me semble moins propre

Code :

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

1
2
3
4
 
If Name_In('SYSTEM.CURRENT_FORM') = 'XXXX' Then
  Clear_Form ;
End if ;

[tunis71187]

Mr Yerbouti,

j'ai essayé avec le trigger key_commit mais pas d'effet.

pour plus d'éclairsissement: dans cette forme j'ai 4 block de données basés et 1 non basé à partir duquel l'utilisateur choisit un numéro à travers un LOV et ensuite il y aura affichage des données liées à ce numéro, dans ce cas pas de problème puisque suite au choix le second block réagit. le problème c'est pour les 3 autres : 1 block parent et 2 fils indépendants. Suite à un commit et le choix d'un autre numéro seulement les deux premiers se changent les autres restent inchangés sauf si l'utilisateur les supprimé.

[SheikYerbouti]

j'ai essayé avec le trigger key_commit mais pas d'effet.

Interressant comme info, mais qu'avez-vous mis dans ce trigger ?

[tunis71187]

Dans le trigger key_commit j'écris:

Code :

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

1
2
3
4
5
6
7
commit;
go_block('test1');
clear_block;
go_block('test2');
clear_block;
go_block('test3');
clear_block;

au niveau de forme, mais ça marche pas, je le fais au niveau des 3 blocks encore pas de nouvelle.

j'ai essayé de même

Code :

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

1
2
3
IF Name_In('SYSTEM.CURRENT_FORM') = 'TEST' Then
  Clear_Form ;
End IF ;

ça marche plus.