Contrôle d'un mode de surveillance

La fonction CotMsurv_Controle de COTM000 contrôle un mode de surveillance 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 COTMSURV. En cas d'échec dans la recherche COTMSURV est initialisé à espace.
Prototype de la fonction
CotMsurv_Controle (SurvCod,err,HsDt)
SurvCod : Code mode surveillance
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 Mode de surveillance fermé (date fin validité < hsdt)
9enregistrement non trouvé