Contrôle d'une unité de mesure

La fonction CotUnite_Controle de COTM000 contrôle une unité de mesure 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 COTUNITE. En cas d'échec dans la recherche COTUNITE est initialisé à espace.
Prototype de la fonction
CotUnite_Controle (UnCod,err,HsDt)
UnCod : Code unité
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 Unité fermée (date fin validité < hsdt)
9enregistrement non trouvé