Contrôle d'un opération élémentaire

La fonction CotOpel_Controle de COTM000 contrôle une opération élémentaire en saisie, avec éventuellement une date de validité.
En cas d'erreur, si 'err' est renseigné, le message 'err' s'affiche et provoque le retour en saisie (si ce paramètre 'err' est renseigné avec C_ERR_ADEFINIR alors le numéro du message d'erreur est récupéré dans cette fonction) .L'enregistrement lu est chargé dans COTOPEL. En cas d'échec dans la recherche COTOPEL est initialisé à espace.
Prototype de la fonction
CotOpel_Controle (OpelCod,err,HsDt)
OpelCod : Code opération élémentaire
Paramètre obligatoire
Err : Numéro du message d'erreur si on souhaite un affichage automatique(=0 par défaut)
HsDt : date de validité
Paramètres facultatifs

Retour de la fonction
0ok
2 Opération élémentaire fermée (date fin validité < hsdt)
9enregistrement non trouvé