MaClasse est une classe
... les membres
// des constantes publiques
/(visibles dans le code du projet)
PUBLIC CONSTANT
CST_CRE = 1
CST_MOD = 2
CST_SUP = 3
FIN
FIN
// méthode avec CST CRE par défaut
// les constantes sont disponible via ::<NomConstante>
PROCEDURE ADroit(pParam=::CTS_CRE)
SELON pParam
CAS ::CST_CRE:
...traitement création...
CAS ::CST_MOD:
...traitement Modfication...
CAS ::CST_SUP:
...traitement suppression...
FIN
// Utilisation dans le projet
oClasse est un Maclasse
oClasse:aDroit(MaClasse::CST_MOD)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1557&post_id=6412