Présentation : fermer l’écran suite à un test
09-02-2013Le code OBL suivant permet de fermer la présentation si le test n’est pas concluant avant de lancer la sauvegarde des données de l’écran.
BEGIN Evclick tlbbttnSave_evcSave
BEGIN Action_script as1
Code = "if CFR_VERIFY_DOUBLON_HR() = -1 Then return(1) else return(0)"
Ontrue = "Action_Call_Unload"
Onfalse = "asSaveOrNot"
END
BEGIN Action_call Action_Call_Unload
Sentence = "*O*/Pres2/FormMain.Unload (END_PRESENTATION)"
END
BEGIN Action_dataprops tlbbttnSave_dataSave
Action = "Save"
END
END
Lancer un report depuis une présentation
28-03-2012Voici le code d’un bouton à inclure dans une présentation pour lancer un report ou état dans Meta4 Peoplenet
BEGIN Button Button1
Idchannel = "DISNEY_CHANNEL"
Idnode = "DOUBLE_NOEUD"
Left = 167
Top = 267
Width = 221
Height = 36
Text = "Lance l'etat steuplé"
Image = "REPORT"
BEGIN Evclick Evaluate_Ok_Connect
BEGIN Action_set set1
Set = "*C*#SYS_BLOCK_CONTEXT_VAL# :=(ISOSTR)SetConstStr ID_REPORT, "ZE_REPORT"; SetConstInt ID_EXECUTION_TYPE, 1; SetConstStr ID_CHANNEL, "ZE_CHANNEL"; SetConstBool ASKDATAPARAM,False; SetConstBool ASKCONFIGPARAM, True; SetParamConcatString ZE_NODE,PARAM_ID_HR,[DOUBLE_NOEUD.SFR_ID_HR];SetParamConcatString ZE_NODE,PARAM_ID_EVALUATEUR,[DOUBLE_NOEUD.SFR_ID_EVAL];SetParamConcatString ZE_NODE,PARAM_DT_START_CAMP,[DOUBLE_NOEUD.CFR_DT_START];SetParamConcatString ZE_NODE,LOAD_MANY,0;"
END
BEGIN Action_set set2
Set = "*C*#SYS_META_OBJECT_KEY# := [#Idchannelkey]"
END
BEGIN Action_task task1
Class = "M4setval.setcontextval"
END
BEGIN Action_task task2
Class = "M4throw.CMFThrowProcess"
BEGIN Evnotify END_OK
BEGIN Action_notify notif1
Idevent = "END_OK"
END
END
BEGIN Evnotify END_CANCEL
BEGIN Action_notify notif2
Idevent = "END_CANCEL"
END
END
END
END
END
Ne le cherchez plus !
23-01-2012Vous perdez des minutes à chercher le code Windows pour lancer une présentation peoplenet dans une tâche meta4. Le voici :
StForm.PTCMFTASK
SetConstStr #SYS_IDINSTANCE#,"CFR_EVOLUTION_CAMAPAGNE"
😉
