[Forms] : enregistrement en double [Résolu]

[Aminos]

Bonjour,
Je suis tout nouveau dans ce forum et aussi je fais mes premiers pas avec forms 9ids.
Mon probleme c'est que j'essai d'inserer un enregistrement dans une table a travers un canevas empilé via un bouton, au debut j'avais integré des contraintes de clé primaire dans ma table et tout le temps je recevais un message de violation de contrainte, quand j'ai enlevé cette contrainte l'enregistrement passe bien mais j'ai le meme enregistrement deux fois inserer.
Voici mon code qui est assez simple:

Code :

1
2
3
4
INSERT INTO absence VALUES(:majabs.matricule,:majabs.datejour,:majabs.seance,:majabs.duree);
go_item('etudiant.matricule');
commit;
hide_view('absence');

ce code se trouve sur un bouton de commande dans le trigger when-button-pressed.
est ce que quelqu'un peut m'eclairer sur l'erreur que j'ai pu faire et merci pour votre aide.

[Kast]

Salut,
J'aimerais savoir si ton block majabs est basé ?
Si oui,alors c'est normal que ton enr. soit en double
le premier fait par forms vu que tu insère un enr. dans un block basé donc forms fait un insert dans la base
et le deuxieme fait par ton INSERT de ton declencheur "WHEN-BUTTON-RESSED"

[Aeternus]

Oui, tu ne dois pas faire d'instruction INSERT car Forms s'en charge lui meme lors du commit

[Aminos]

Excellent, c'etait ça mon erreur merci infiniment.
Mais maintenant l'enregistrement meme s'il est enregistrer dans la barre des taches de l'applet apres une insertion j'ai le message suivant:

Code :

FRM-40401:Aucune modification à enregistrer.

alors que qand je consulte via sqlplus j'ai mon enregistrement creé

[Kast]

Ce message veux dire que tu as fais un commit ou un commit_form alors qu'aucun de tes champs basé n'as changé.
Pour que ce message ne s'affiche tu peux soit changer la vairable SYSTEM.MESSAGE_LEVEL avant de faire ton commit

Code :

1
2
3
4
5
6
7
8
9
10
 
-- Dans ce cas tu peux mettre la variable à 5,10,15,20,25
DECLARE
  nMesLevel := :System.Message_Level;
BEGIN
  :System.Message_Level := 5;
  Commit;
  -- on remet comme c'etait avant
  :System.Message_Level := nMesLevel;
END;

ou tu peux faire un

Code :

1
2
 
Forms_Ddl('Commit');

à la place de ton commit; si tu veux valider seulement les ordres Ddl que tu as mis dans ton Forms

[Aminos]

Merci beaucoup cela marche tres bien maintenant.