vhLib.Macro 1 APPS.P2L.Core.PickToLightClient 0 APPS.P2L.Webservice.BasicHttpBindingIDisplayService APPS.P2L.Webservice.q1.DeviceCommand APPS.P2L.Webservice.q1.DeviceHub 1 1 %Status Display:APPS.P2L.Display.P2LDisplay "_$$ParseStatus^vhLib($Get(%objlasterror))_"

" Set XML = "" Do ..Commando.XMLExportToString(.XML,,"literal,indent") Set Body = Body_"Het commando:
"_XML_"" Do SendMiniMail^vhLib($$$SystemMail("Pick To Light Admin"),$ListBuild("csc@vanhoecke.be"),"Error bij het verzenden van commando",Body,0,1) ]]> Display:APPS.P2L.Display.P2LDisplay,Tekst:%String Display:APPS.P2L.Display.P2LDisplay,Intensiteit:%Integer Display:APPS.P2L.Display.P2LDisplay,Kleur:%Integer Display:APPS.P2L.Display.P2LDisplay,Snelheid:%Integer