vhLib.Macro 1 APPS.P2L.Core.PickToLightClient 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 XML = $Extract(XML,0,32000) // Voorkomen dat we over de maximum length van een String gaan. Set Body = Body_"Het commando:
"_XML_"" Do SendMiniMail^vhLib($$$SystemMail("Pick To Light Admin"),$ListBuild("ICT_SysOp@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