salut,
(Oracle Forms 9i)
je déclare une variable globale mais lorsque j'essaie d'affecter son contenue à un autre champs ça ne marche pas
un message d'erreur s'affiche(exception non traité)
code (intialisation )
Code :
declare v_exist number(1); Al_id ALERT ; LI$Bouton pls_integer ; begin SELECT 1 INTO v_exist FROM super_utilisateur WHERE login1 = :connexion.LOGIN2 AND mot_passe1 = :connexion.mot_passe2; go_block ('menu_super'); exception when no_data_found then begin SELECT 1 INTO v_exist FROM utilisateur WHERE login = :connexion.login2 AND mot_passe = :connexion.MOT_PASSE2; :GLOBAL.code := :connexion.code_actel; go_block ('menu_util'); exception when no_data_found then BEGIN Clear_Form(No_Validate); END; Al_id := Find_Alert( 'AL_OUI_NON' ) ; If Id_Null( Al_id ) Then Message('la boite d''alerte mon_alerte n''existe pas dans la forme'); Raise Form_Trigger_Failure ; Else LI$Bouton := Show_Alert( 'AL_OUI_NON' ) ; If LI$Bouton = ALERT_BUTTON1 Then begin GO_BLOCK('Connexion'); end; Else DO_KEY('EXIT_FORM'); End if ; end if; end loop; End ;
utilisation du variable globale
code
INSERT INTO non_table(..,code_actel) VALUES (...,:non_bloc.code_act= :global.code) commit;
Partager