Lancer un report depuis une présentation

28-03-2012

Voici le code d’un bouton à inclure dans une présentation pour lancer un report ou état dans Meta4 Peoplenet

Code: Tout sélectionner

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

« »