DISABLE

"Disable"permet de griser 1 ou plusieurs boutons au bas de l'écran et / ou les menus dela barre de menus.

Syntaxe

Disable liste_status

Paramètres

Elément	Description	Restrictions
liste_status	Listede id_status séparées par lecaractère ','.	Aucune
id_status	Expressionentière	Pourles menus et boutons standard, utiliser les variables globales définies dansle traitement GLOBVAR.

Exemples

# grisage des boutons CREER ENREGISTRER et leurmenu associé dans le menu "fichier"
Disable GSTACRE, GSTAENR

# pourrait s'écrire (mais déconseillé lorsqu'ilexiste une variable globale pour le status à traiter)
Disable93, 92

# grisage des boutons particuliers à la fonction
Disable GSTABOU+1, GSTABOU+2
# appel d'une boîte de dialogue avec grisage oudégrisage des boutons particuliers
# en fonction d'une condition
Local Dlgbox Mask ABC button mess(15,198,1),mess(101,198,1)
coded GSTABOU+1, GSTABOU+2
Boxact [ABC]
If ... thenEnable GSTABOU+1, GSTABOU+2
else Disable GSTABOU+1, GSTABOU+2
Boxinp [ABC] using REPONS

Description et commentaires

"Disable"permet de griser 1 ou plusieurs boutons au bas de l'écran et / ou les menus dela barre de menus.
"Disable"s'utilise juste avant la saisie dans la boîte de dialogue.
Dans la gestion OBJet, "Disable" s'utilise principalement dans l'actionSETBOUT.
Les statutsutilisables par l'instruction "Disable"sont pour la plupart stockés chacun dansune variable globale définie dans le traitement GLOBVAR.
Il est possible d'utiliser le sous-programme SETBOUT du traitement GESECRANpour certains statuts seulement (voir exemple d'utilisation ci-dessous).

Remarques

# grisage des boutons CREER ENREGISTRER peut aussis'écrire de la façon suivante
# dans ce cas, c'est le sous-programme du superviseurSETBOUT qui exécute lesEnable et
#Disableen fonction du positionnement à 0 ou 1des postes de la variable ETABOU
Local Integer ETABOU(1..GNBBOU)
ETABOU (GCREE) = 0
ETABOU (GENRE) = 0
Call SETBOUT(ETABOU) From GESECRAN
# en gestion OBJet, dans l'action SETBOUT il faututiliser le sous-programme du superviseur # VIREBOUT pour griser les boutons etmenus
# exemple : grisage du menu Fichier/Changement de code
Call VIREBOUT(CHAINE,"H") From GOBJET

Mots-clés associés

Enable - Grizo - Actzo - Status

Sommaire