Vous êtes sur le site Web historique de la documentation de 4D. Les documentations sont progressivement déplacées vers developer.4d.com |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v19.8
ON ERR CALL
|
ON ERR CALL ( méthodErreur ) | ||||||||
Paramètre | Type | Description | ||||||
méthodErreur | Chaîne |
![]() |
Méthode de gestion d'erreur à appeler ou Chaîne vide pour désinstaller la méthode | |||||
ON ERR CALL installe la méthode projet dont le nom est passé dans méthodErreur comme méthode d'interception des erreurs — aussi appelée méthode de gestion des erreurs.
Après l'installation, 4D appelle cette méthode lorsqu'une erreur se produit lors de l'exécution d'une commande du langage 4D.
La portée de cette commande est le process courant. Il ne peut y avoir qu'une seule méthode de gestion des erreurs par process, mais il peut exister différentes méthodes de gestions d'erreurs pour plusieurs process.
Notes :
Pour désinstaller une méthode de gestion des erreurs, appelez de nouveau ON ERR CALL et passez une chaîne vide dans méthodErreur.
Vous pouvez identifier les erreurs en lisant la variable système Error, qui contient le code de l'erreur. Les codes d'erreurs retournés par 4D sont traités dans les sections Codes d'erreurs. Reportez-vous par exemple à la section Erreurs de syntaxe (1 -> 81). La variable Error n'est définie qu'à l'intérieur de la méthode de gestion des erreurs ; si vous souhaitez que le code soit accessible dans la méthode ayant provoqué l'erreur, copiez la variable Error dans votre propre variable process. Vous pouvez également accéder aux variables système Error method, Error line et Error formula contenant respectivement le nom de la méthode, le numéro de ligne et le texte de la formule à l'origine de l'erreur (cf. paragraphe Error, Error method, Error line).
Vous pouvez obtenir la séquence d'erreurs à l'origine de l'interruption (la "pile" d'erreurs) à l'aide de la commande GET LAST ERROR STACK.
La méthode de gestion des erreurs doit généralement traiter les erreurs de manière appropriée ou afficher un message d'erreur à l'utilisateur. Les erreurs peuvent être générées lors de traitements effectués sur :
La commande ABORT peut être utilisée pour stopper le traitement. Si vous n'appelez pas ABORT dans la méthode installée, 4D retourne à la méthode interrompue et reprend son exécution. Utilisez la commande ABORT lorsque l'exécution ne peut se poursuivre.
Si une erreur se produit dans la méthode de gestion d'erreurs elle-même, 4D reprend le contrôle de la gestion des erreurs. En conséquence, assurez-vous que la méthode de gestion des erreurs installée ne puisse pas elle-même générer d'erreur. Aussi, vous ne pouvez pas utiliser la commande ON ERR CALL dans une méthode de gestion des erreurs.
La méthode projet suivante tente de créer un document dont le nom est reçu en paramètre et retourne 0 (zéro) ou un code d'erreur si le document n'a pas pu être créé :
` Méthode projet Créer doc
` Créer doc ( Chaîne ; Pointeur ) -> Entier long
` Créer doc ( NomDoc ; ->DocRef ) -> Code d'erreur résultant
gError:=0
ON ERR CALL("IO TRAITEMENT ERREURS")
$2->:=Create document($1)
ON ERR CALL("")
$0:=gError
La méthode projet IO TRAITEMENT ERREURS est la suivante :
` Méthode projet IO TRAITEMENT ERREURS
gError:=Error ` Simple copie du code d'erreur dans la variable process gError
Notez l'utilisation de la variable process gError pour récupérer le code d'erreur dans la méthode en train de s'exécuter. Une fois que ces méthodes sont présentes dans votre base, vous pouvez écrire par exemple :
` ...
C_TIME(vhDocRef)
$vlErrCode:=Créer doc($vsDocumentNom;->vhDocRef)
If($vlErrCode=0)
`...
CLOSE DOCUMENT($vlErrCode)
Else
ALERT("Le document n'a pas pu être créé, erreur d'E/S "+String($vlErrCode))
End if
Reportez-vous à l'exemple de la section Tableaux et mémoire.
Alors que vous implémentez un ensemble complexe d'opérations, vous pouvez terminer avec de multiples sous-routines qui nécessitent différentes méthodes de gestion des erreurs. Comme ne pouvez avoir qu'une seule méthode à la fois de gestion des erreurs par process, vous devez soit repérer la méthode courante à chaque fois que vous appelez ON ERR CALL, soit utiliser une variable tableau process (ici tabErrorMethod) pour “empiler” les méthodes de gestion d'erreur ainsi qu'une méthode projet (ici APPEL SUR ERR) pour les installer et les désinstaller. Le tableau doit être initialisé au tout début de l'exécution du process :
// N'oubliez pas d'initialiser le tableau au début
// de la méthode de gestion du process
ARRAY STRING(63;tabErrorMethod;0)
Voici la méthode personnalisée APPEL SUR ERR :
// Méthode projet APPEL SUR ERR
// APPEL SUR ERR { ( Chaîne ) }
// APPEL SUR ERR { ( Nom de la méthode ) }
C_STRING(63;$1;$ErrorMethod)
C_LONGINT($vlElem)
If(Count parameters>0)
$ErrorMethod:=$1
Else
$ErrorMethod:=""
End if
If($ErrorMethod#"")
C_LONGINT(gError)
gError:=0
$vlElem:=1+Size of array(tabErrorMethod)
INSERT IN ARRAY(tabErrorMethod;$vlElem)
tabErrorMethod{$vlElem}:=$1
ON ERR CALL($1)
Else
ON ERR CALL("")
$vlElem:=Size of array(tabErrorMethod)
If($vlElem>0)
DELETE FROM ARRAY(tabErrorMethod;$vlElem)
If($vlElem>1)
ON ERR CALL(tabErrorMethod{$vlElem-1})
End if
End if
End if
Vous pouvez alors l'appeler de la manière suivante :
gError:=0
APPEL SUR ERR("ERREURS ES") //Installe la méthode de gestion d'erreurs ERREURS ES
// ...
APPEL SUR ERR("TOUTES ERREURS") //Installe la méthode de gestion d'erreurs TOUTES ERREURS
// ...
APPEL SUR ERR //Désinstalle la méthode de gestion d'erreurs TOUTES ERREURS et réinstalle ERREURS ES
// ...
APPEL SUR ERR //Désinstalle la méthode de gestion d'erreurs ERREURS ES
// ...
La méthode de gestion d'erreurs suivante ignore les interruptions de l'utilisateur et affiche le texte de l'erreur :
//Méthode projet Montrer_seulement_erreurs
If(Error#1006) //ce n'est pas une interruption utilisateur
ALERT("L'erreur "+String(Error)+" s'est produite. Le code en cause est : \""+Error formula+"\"")
End if
ABORT
GET LAST ERROR STACK
Method called on error
Variables système
Produit : 4D
Thème : Interruptions
Numéro :
155
Créé : < 4D v6
Modifié : 4D v12
Modifié : 4D v15 R5
4D - Langage ( 4D v19)
4D - Langage ( 4D v19.1)
4D - Langage ( 4D v19.4)
4D - Langage ( 4D v19.5)
4D - Langage ( 4D v19.6)
4D - Langage ( 4D v19.7)
4D - Langage ( 4D v19.8)