Attention, cet exemple correspons aux version antérieures à infinty 10.3. L’introduction des objets métier simplifie la gestion des notes

TRAITEMENT 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

MASQUE ECRAN ZOOM

Dans le masque écran, sur chaque champ offrant l'accès aux notes, placer un point d'arrêt 10000 + code dans les touches en case F6 Shifté. Ceci est à faire sur les champs en saisie des pages du mode fiche ainsi que sur les champs en saisie des pages du mode liste (champ dans la liste).