TRAITEMENT ZOOM

ZoomDebut contient :
Joint_Init(50)
Uniquement si la modification en mode liste est possible.
ZoomCreationRes contient :
Joint_Chargement (50 , 0)
ZoomAvantWrite contient :
MFLASH.JOINT = Joint_Creation(50,'MFLASH','MFLASH')
if MFLASH.JOINT = 0
MFLASH.CEJOINT= 1
else
MFLASH.CEJOINT = 2
endif
ZoomModificationRes contient :
Joint_Chargement (50 , MFLASH.JOINT)
ZoomAvantRewrite contient :
MFLASH.JOINT = Joint_Modification (50 , MFLASH.JOINT, 'MFLASH','MFLASH')
if MFLASH.JOINT= 0
MFLASH.CEJOINT = 1
else
MFLASH.CEJOINT = 2
endif
ZoomAvantDelete contient :
Joint_Suppression (50, MFLASH.JOINT)
ZoomArret contient :
switch system.statin
case K_F8; Appel de zoom
Zoom_Call(harmony.arret)
case K_CTRL_F6
Joint_Saisie(harmony.arret – 10300,Nature='MFLASH')
endswitch
ZoomConsultFiche et ZoomConsultListe contiennent :
if system.statin = C_SF6
Joint_Consultation (50 , MFLASH.JOINT )
endif

MASQUE ECRAN ZOOM

Dans le masque écran, sur chaque champ offrant l'accès aux notes, placer un point d'arrêt 10300 + code dans les touches en case F7 Contrôlé. 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).