Fonction Habilitation Optimiser(NulAbsorbant, PasDEffetDeBord) ImporterSecurite(NomDuFichier : Nul Ou Caractere,
EnvoyerErreur : Nul Ou Procedure (MessageEnvoye : Caractere, NumeroColonne : Entier, NumeroLigne : Entier, NomFichierSource : Nul Ou Caractere)=Nul) Retourner Nul Ou Booleen;
Le fichier NomDuFichier doit être formaté en Up ! 5GL pour Up ! Security Manager. Les conventions sont les suivantes :
Si une erreur survient, le message est envoyé à EnvoyerErreur. Les paramètres de cet appel sont les suivants :
Le résultat a pour valeur Vrai en cas de succès.
Variable
/*******/
B : Booleen;
/****************************************************************/
Procedure EnvoyerMessage(MessageEnvoye : Caractere, ? : Entier, ? : Entier, ? : Nul Ou Caractere)
/* Objet : Envoie un message. */
/****************************************************************/
Debut
Ecran.Ecrire(MessageEnvoye);
Fin Procedure
Principal
/*******/
Debut
...
B=ImporterSecurite("/tmp/ma-securite.upl", EnvoyerMessage);
...
Fin Principal
- | - | - | - | - | - | - | - | - |