Tutoriel Oracle Forms : manipulations dynamiques 2ème partie


précédentsommairesuivant

5. Le paquetage PKG_GESTION_LOV

Il est constitué des variables globales et fonctions publiques suivantes CREATE OR REPLACE PACKAGE Pkg_Gestion_Lov AUTHID CURRENT_USER IS /*----------------------------------------*/ /* TYPES */ /*----------------------------------------*/ -- based-block record type TYPE TYPE_REC_LOV IS RECORD ( col1 VARCHAR2(512), col2 VARCHAR2(512), col3 VARCHAR2(512), col4 VARCHAR2(512), col5 VARCHAR2(512), col6 VARCHAR2(512), col7 VARCHAR2(512), col8 VARCHAR2(512), col9 VARCHAR2(512) ); -- records collection TYPE TYPE_TAB_LOV IS TABLE OF TYPE_REC_LOV INDEX BY BINARY_INTEGER; -- return values record -- GR_COL_LOV TYPE_REC_LOV ; -- Record type LOV -- TYPE TYPE_COL_LOV IS RECORD ( LOV_ID LOV_ELEMENT_COLONNE.ID%TYPE, LOV_ITEM LOV_ELEMENT_COLONNE.NOM_ITEM%TYPE, LOV_COD_UTIL LOV_ELEMENT_COLONNE.UTL_ID%TYPE, LOV_COL_TAB LOV_ELEMENT_COLONNE.NOM_COLONNE%TYPE, LOV_POS LOV_ELEMENT_COLONNE.ORDRE%TYPE, LOV_POS_INIT LOV_ELEMENT_COLONNE.ORDRE_INIT%TYPE, LOV_PRECEDENT LOV_ELEMENT_COLONNE.NOM_ITEM_P%TYPE, LOV_SUIVANT LOV_ELEMENT_COLONNE.NOM_ITEM_S%TYPE, LOV_RECH LOV_ELEMENT_COLONNE.FL_RECH%TYPE, LOV_TAILLE LOV_ELEMENT_COLONNE.TAILLE%TYPE ); -- table de record type LOV -- TYPE TYPE_TAB_COL_LOV IS TABLE OF TYPE_COL_LOV INDEX BY BINARY_INTEGER; -- Durée d'attente du timer en millisecondes -- GN$Duree_timer NUMBER(5) := 800 ; -- Help screens path -- -- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -- -- Replace with your own machine/port/virtual directory -- -- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -- GC$Help_Path VARCHAR2(256) := 'http://machine:port/forms90/html' ; -- procedure d enregistrement des colonnes LOV -- PROCEDURE P_Sauv_Col_LOV( PT_COL_LOV IN TYPE_TAB_COL_LOV ) ; -- Procedure de RAZ des valeurs de reception LOV -- PROCEDURE RAZ_Valeurs_LOV ; -- Procedure de MAJ des valeurs de reception LOV -- PROCEDURE MAJ_Valeurs_LOV( PR_COL_LOV IN TYPE_REC_LOV ) ; -- Fonction de recuperation des valeurs de reception LOV -- FUNCTION GET_Valeurs_LOV RETURN TYPE_REC_LOV ; -- Test de l'existance d'une valeur pour la validation par LOV -- FUNCTION Controle_valeur ( PC$Select IN VARCHAR2 ) RETURN PLS_INTEGER ; FUNCTION Get_Duree_Timer RETURN NUMBER ; FUNCTION Get_Help_Path RETURN VARCHAR2 ; END; Le type TYPE_TAB_LOV défini une table d'enregistrements composés de 9 champs de type Varchar2(512) qui alimentera l'écran GEN_LOV

La procédure P_Sauv_col_Lov permet d'enregistrer les préférences utilisateur

La procédure RAZ_Valeurs_Lov efface le tableau des valeurs de retour

La procédure MAJ_Valeurs_LOV renseigne le tableau des valeurs de retour

La procédure GET_Valeurs_LOV lit le tableau des valeurs de retour

La fonction Controle_Valeur permet de valider un item en vérifiant que la valeur de celui-ci appartient bien à la LOV

La fonction Get_Duree_Timer permet à l'écran GEN_LOV de récupérer le temps d'attente en millisecondes pour le timer.( Vous pouvez donc régler ce délai en fonction de votre environnement dans les spécifications du package sans intervenir dans l'écran GEN_LOV)

La fonction Get_Help_Path permet à l'écran GEN_LOV de récupérer le chemin d'accès aux fichiers d'aide en ligne


précédentsommairesuivant

Vous avez aimé ce tutoriel ? Alors partagez-le en cliquant sur les boutons suivants : Viadeo Twitter Facebook Share on Google+   

Cet article s'applique à la version 9i et 10g d'Oracle Forms