Bonjour bonsoir !!!!
Voila, j'ai une BD oracle et je veux faire un site intranet pour l'explotation de cette base.
J'ai fais un rad à partir de cette BD. Pour que les informations soient en "fonction de" l'utilisateur, j'ai intégré le composant login. Du coup ma premiere page (page d'initialisation) ressemble à ceci [1]. Toutefois, je me rends compte que la page d'initialisation n'arrive pas a me retourner la valeur dans gsRenvoyerPseudo. Pour cause, il me renvois rien, car la fonction est appelée avant que la page du formulaire ne soit affichée. Donc forcement ca plante l'appel à hdecritconnexion()... à cause de ca [2] je ne penses pas que je puisses faire ma declaration (hdecritconnexion()) apres... nan ?
Une p'tite idée parceque la... moi j'en ai plus :o)
Amicalement
Seb
[1]//----------------- Composant LOGIN -------------------
gDéfinirPremièrePage("Menu")
gSeConnecter()
//----------------Fin Login ----------------------
//----------------- R A D W e b D e v 7---------------
//------------------ Connexion base ---------------------
//Test de connexion a la base de donnée en fonction des parametres saisis dans le
// composant "login"
// On peut recuperer le login par : gsRenvoyerPseudo
passe est une chaîne = "xxxxxxxxxxxxxxxxxxxxxx"
serveur est un chaîne
userL est une chaîne
NomConnexion est une chaîne = "xXxXxXxXx"
userL = gsRenvoyerPseudo()
SI userL = "" ALORS
SINON
userL = "ops$" + userL
// userL="ops$grillot" userL
FIN
HDécritConnexion(NomConnexion,userL,passe,NomConnexion,"",hAccèsNatifOracle)
SI PAS HOuvreConnexion(NomConnexion) ALORS
Erreur("Ouverture de la connexion impossible" + HErreurInfo())
FinProgramme()
FIN
// Gestion des erreurs
HSurErreur("*",hErrTout,GestionErreurs)
// initialisation du RAD
RADProjetInit()
// Création et ouverture des fichiers
SI HCréationSiInexistant(PAYS,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : PAYS",HErreurInfo())
SI HCréationSiInexistant(CLIENT,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : CLIENT",HErreurInfo())
SI HCréationSiInexistant(INTERVENANT,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : INTERVENANT",HErreurInfo())
SI HCréationSiInexistant(ZONE,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : ZONE",HErreurInfo())
SI HCréationSiInexistant(SOCIETE,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : SOCIETE",HErreurInfo())
SI HCréationSiInexistant(TARIF_VENTE,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : TARIF_VENTE",HErreurInfo())
SI HCréationSiInexistant(PRIX,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : PRIX",HErreurInfo())
SI HCréationSiInexistant(CESSION_CLIENT,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : CESSION_CLIENT",HErreurInfo())
//------------------------ R A D ------------------------
[2]SI HCréationSiInexistant(PAYS,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : PAYS",HErreurInfo())
SI HCréationSiInexistant(CLIENT,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : CLIENT",HErreurInfo())
SI HCréationSiInexistant(INTERVENANT,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : INTERVENANT",HErreurInfo())
SI HCréationSiInexistant(ZONE,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : ZONE",HErreurInfo())
SI HCréationSiInexistant(SOCIETE,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : SOCIETE",HErreurInfo())
SI HCréationSiInexistant(TARIF_VENTE,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : TARIF_VENTE",HErreurInfo())
SI HCréationSiInexistant(PRIX,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : PRIX",HErreurInfo())
SI HCréationSiInexistant(CESSION_CLIENT,hOuvertureDifférée)=Faux ALORS Info("Impossible de créer ou d'initialiser l'accès au fichier : CESSION_CLIENT",HErreurInfo()) |