User cache 0 %CSP.Page %String 192.168.2.58 Om de x seconden zal de pagina zichzelf vernieuwen. Zet de waarde op 0 om niet automatisch te reloaden. 300 1 %Boolean 1 code %Status 1 code %Boolean ",! Write "",! #dim LedDisplays as %ListOfObjects=##class(APPS.Halux.Planning.impl.DisplayInfoGeproduceerd).GeefAlleLedDisplays() #dim DisplayLijn as APPS.Halux.Planning.impl.DisplayInfoGeproduceerd Set Key="" Set LedDisplay=LedDisplays.GetNext(.Key) While Key { Set DisplayLijn=##class(APPS.Halux.Planning.impl.DisplayInfoGeproduceerd).%New(LedDisplay,"HTML") Do DisplayLijn.RefreshDisplay(LedDisplay) Set LijnInfo=DisplayLijn.GeefDevice().GeefResult() Write "" Write "" Write "" Write "" Set LedDisplay=LedDisplays.GetNext(.Key) } Write "
" Write "

Lijn"_DisplayLijn.GeefProductieLijnOmschrijvingVoorLedDisplay(LedDisplay)_" :

" Write "		" Write LijnInfo,! Write "
",! Write "",! ;Quit $$$OK ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"Halux - ProductieLijnen",! If ..#PageReloadIntervalInSeconde>0 { Write !,$c(9)_"",! } Write !,"" ]]> 1 code %Boolean " Write ! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 %Boolean