Contrôle d'un contrat

La fonction Contrat_Controle de GMTMCONT contrôle un contrat en saisie.
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).
Si une date est renseignée, elle sera comparée à la date de fin validité du contrat trouvé. Si cette dernière est antérieure, un message sera alors affiché et le contrat refusé.
Le record SQL lu est chargé dans ContratCea. En cas d'échec dans la recherche Contratcea est initialisé à espace
Prototype de la fonction
Contrat_Controle (ContratNo,err,dt)
ContratNo: Numéro contrat
Err : Numéro du message d'erreur si on souhaite un affichage automatique.
(facultatif, par défaut 0)
Dt : Date de fin validité à tester (facultatif, par défaut ' ')

Retour de la fonction
0ok
2 contrat fermé
9enregistrement non trouvé