Exemple de gestion des notes dans un zoom0

ZoomDebut contient :
Note_Debut
Uniquement si la modification en mode liste est possible.
ZoomCreationRes contient :
Note_Reinit ()
ZoomAvantWrite contient :
CA.NOTE = Note_Creation_('DCPT','CA')
if CA.NOTE = 0
CA.CENOTE = 1
else
CA.CENOTE = 2
endif
ZoomModificationRes contient :
Note_Chargement_ ('DCPT' , CA.NOTE)
Seulement si la note est saisie directement dans le zoom
ZoomAvantRewrite contient :
CA.NOTE = Note_Modification_ ('DCPT' , CA.NOTE,'CA')
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('DCPT',CA.NOTE,'CA')
endswitch
ZoomConsultFiche et ZoomConsultListe contiennent :
if system.statin = C_SF6
Note_Consultation- ('DCPT' , CA.NOTE )
endif
ZoomApresRead contient :
Note_Reinit