Saisie d'une note

Préparation de la saisie d'une note :
En création :
Note_Chargement (10 , 0)
En modification :
Note_Chargement(10, CA.NOTE) ; 1 = DCPT, 0 = premier RTF
Note_Chargement est une fonction. Elle renvoie true lorsque le chargement a réussi et false lorsqu'il a échoué.
CA est l'enregistrement du dossier DCPT, pour exemple. Dans un fichier, un enregistrement qui contient des notes doit contenir deux champs :
CENOTE1,0; 1= Pas de note, 2=note attachée
NOTE8,0; Numéro de note attachée ou 0 si pas de note.
La saisie d'une note est réalisée par le code suivant :
Note_Saisie(10)
Dans un programme Diva utilisant les fonctions de saisie du module 000 (saisie_page, …) il suffit d'indiquer le point d'arrêt dans les champs (10010 pour DCPT et premier RTF).
Lorsque l'on valide la création ou la modification d'un enregistrement, il faut également enregistrer les éventuels changements des notes :
En création :
CA.NOTE = Note_Creation(10); DCPT, premier RTF
if CA.NOTE = 0