Exemple de gestion des notes dans un zoom

ZoomDebut contient :
Note_Init(10)
Uniquement si la modification en mode liste est possible.
ZoomCreationRes contient :
Note_Chargement (10 , 0)
ZoomAvantWrite contient :
CA.NOTE = Note_Creation(10)
if CA.NOTE = 0
CA.CENOTE = 1
else
CA.CENOTE = 2
endif
ZoomModificationRes contient :
Note_Chargement (10 , CA.NOTE)
ZoomAvantRewrite contient :
CA.NOTE = Note_Modification (10 , CA.NOTE)
if CA.NOTE = 0
CA.CENOTE = 1
else
CA.CENOTE = 2
endif
ZoomAvantDelete contient :
Note_Suppression (10, CA.NOTE)
ZoomArret contient :
switch system.statin
case C_F8; Appel de zoom
Zoom_Call(harmony.arret)
case C_SF6; Saisie d'une note
Note_Saisie(harmony.arret - 10000)
endswitch
ZoomConsultFiche et ZoomConsultListe contiennent :
if system.statin = C_SF6
Note_Consultation (10 , CA.NOTE )
endif