WDForge.org - Forums

Re: btn appliquer

Sujet: Re: btn appliquer
par Elodou sur 17/4/2008 10:58:06

Code

Déclarations globales de Benoit_Prian_taches_en_cours

// Ouverture de la fenêtre de type Fiche
// Entrée: ModeOuverture=mode d'ouverture de la fenêtre :
// - "Parcours" Visualisation de tous les enregistrements
// grâce aux boutons de parcours
// - "Modif" Modification de l'enregistrement en cours
// - "Création" Création d'un nouvel enregistrement
// - "ParcoursLié" Parcours du fichier en liaison avec la fenêtre mère
// (avec suppression et création)

PROCEDURE FicheRAD(ModeOuverture="Parcours")

GLOBAL
gnNumEnr est un entier = 0 // enregistrement en cours dans le fichier
gsModeFenetre est une chaîne // mode de la fenêtre
gbFenetreModifiee est un booléen = Faux // Est-ce qu'un enregistrement a été modifié ?
gsModeAppel est une chaîne = ModeOuverture // Mode d'appel de la fenêtre

// Gestion des erreurs d'accès à la base de données
// Les messages d'erreurs renvoyés par la base sont affichés
// Vous pouvez traiter ici les compte-rendu d'erreurs de votre base
QUAND EXCEPTION
Erreur("Une erreur est survenue dans la fenêtre",ExceptionInfo(errMessage))
// On réactive les exceptions
ExceptionActive()
// On reprend le traitement
RepriseSaisie()
FIN

Initialisation de Benoit_Prian_taches_en_cours

// si la fiche est ouverte en mode parcours
// mais que le fichier n'a aucun enregistrement
// passe automatiquement en mode création
SI (ModeOuverture="Parcours" OU ModeOuverture~="ParcoursLié") ET HNbEnr(EN_COURS)=0 ALORS
// ouvre une boite de dialogue pour informer l'utilisateur
Info("Le fichier ne contient aucun enregistrement.","La fiche va passer en mode 'Création'.")
// changement de mode d'ouverture
ModeOuverture="Création"
FIN

// activation des champs selon le mode de la fenêtre
ModifModeFenetre(ModeOuverture)

Fermeture de Benoit_Prian_taches_en_cours

// vérification des modifications de la fiche
VerifModification()
Ferme("",gbFenetreModifiee)

A chaque modification de Benoit_Prian_taches_en_cours

// Si un champ a été modifié, on active le groupe de validation des modifications
SI ChampExiste("GP_APPLIQUER") ALORS GP_APPLIQUER..Etat = Actif

Ici il me met Warning : La déclaration de la variable globale 'gbFenetreModifiee' masque la procédure 'gbFenetreModifiee' de la fenêtre 'Benoit PRIAN T_en_Cours'.
Benoit PRIAN T_en_Cours, Déclarations globales, ligne 15, colonne 2

Cliq sur BTN_OK

// Selon le mode de la fenêtre
SELON Gauche(ExtraitChaîne(gsModeFenetre,1,"="),8)
// Mode création
CAS "Création"
// Mise en place de l'enregistrement et validation
SI RADEnregistre() ALORS
// Ajout de l'enregistrement
HAjoute(EN_COURS)
SI ErreurDétectée ALORS
Info("Impossible d'ajouter un enregistrement"+RC+HErreurInfo())
RETOUR
FIN

// Indique que la fiche n'est plus modifiée
gbFenetreModifiee = gbFenetreModifiee OU MaFenêtre..Modifié
MaFenêtre..Modifié=Faux

FIN
// Mode modification
CAS "Modif"
// Mise en place de l'enregistrement et validation
SI RADEnregistre() ALORS
// modification de l'enregistrement
HModifie(EN_COURS)
SI ErreurDétectée ALORS
Info("Impossible de modifier l'enregistrement"+RC+HErreurInfo())
RETOUR
FIN

// Indique que la fiche n'est plus modifiée
gbFenetreModifiee = gbFenetreModifiee OU MaFenêtre..Modifié
MaFenêtre..Modifié=Faux

FIN
FIN

// si la fenêtre a été ouverte en mode parcours
SI ModeOuverture="Parcours" OU ModeOuverture~="ParcoursLié" OU gsModeAppel~="Parcours" ALORS
// le nouvel enregistrement devient l'enregistrement en cours
gnNumEnr = HNumEnr(EN_COURS)

// Est-ce que le mode d'ouverture de la fenêtre a été changé ?
SI gsModeAppel ~= "Parcours" ALORS
// On se positionne sur l'enregistrement pour réinitialiser le parcours
SI gnNumEnr<>0 ALORS
HLitPremier(EN_COURS)
SINON
HLitPremier(EN_COURS,Numéro_PDCA)
FIN

// On rétablit le mdoe d'ouverture prévu
ModeOuverture = gsModeAppel
FIN

// retour dans le mode d'origine
ModifModeFenetre(ModeOuverture)
// dans les autres cas
SINON
// fermeture de la fenêtre
Ferme("",gbFenetreModifiee)
FIN

Il me met 2 erreurs
RADEnregistre() : Expression non booléenne