Dit is de hoofdklasse voor pick to light van Keller ruggen. Functionaliteit: - Deze klasse construeert de nodige objecten in een initiele toestand en persisteert ze. - Printen van de exotenlijst vhLib.Macro 1 %RegisteredObject 0 1 Controller 1 %ListOfDataTypes Maakt alle objecten aan en persisteert ze. Do ##class(APPS.P2L.P2LRuggen).InitialiseerAlles() 1 ControllerNaam:%String="" %Status 1 %String ControllerNaam:%String %Status ControllerNaam:%String APPS.P2L.Controller.Controller 1 Controller:APPS.P2L.Controller.Controller,MailErrors:%Integer=0 %Status Controller:APPS.P2L.Controller.Controller %Status Do ##class(APPS.P2L.P2LRuggen).InitPrintDocument() 1 ControllerNaam:%String APPS.P2L.Controller.Controller 1 Adres:%Integer,X:%Integer,Y:%Integer,Controller:APPS.P2L.Controller.Controller,MailErrors:%Integer=0 kon niet gesaved worden",$$ParseStatus^vhLib(Status)) Set DisplayActief=##class(APPS.P2L.PickDisplay.Actief).%New(Display) Set Status=DisplayActief.%Save() if MailErrors && $$$ISERR(Status) Do ##class(APPS.P2L.P2LLogger).Instance().ErrorMail("Pick display <"_X_","_Y_"> actief kon niet gesaved worden",$$ParseStatus^vhLib(Status)) Set DisplayNietActief=##class(APPS.P2L.PickDisplay.NietActief).%New(Display) Set Status=DisplayNietActief.%Save() if MailErrors && $$$ISERR(Status) Do ##class(APPS.P2L.P2LLogger).Instance().ErrorMail("Pick display <"_X_","_Y_"> nietactief kon niet gesaved worden",$$ParseStatus^vhLib(Status)) Set DisplayVorigActief=##class(APPS.P2L.PickDisplay.VorigActief).%New(Display) Set Status=DisplayVorigActief.%Save() if MailErrors && $$$ISERR(Status) Do ##class(APPS.P2L.P2LLogger).Instance().ErrorMail("Pick display <"_X_","_Y_"> vorigactief kon niet gesaved worden",$$ParseStatus^vhLib(Status)) Set DisplayUit=##class(APPS.P2L.PickDisplay.Uit).%New(Display) Set Status=DisplayUit.%Save() if MailErrors && $$$ISERR(Status) Do ##class(APPS.P2L.P2LLogger).Instance().ErrorMail("Pick display <"_X_","_Y_"> uit kon niet gesaved worden",$$ParseStatus^vhLib(Status)) Do Display.ZetNietActief() ]]> Controller:APPS.P2L.Controller.Controller APPS.P2L.Controller.KiesBatch.KiesBatch Als Status verschillende is van $$$OK duidt dit op het feit dat er in de laden een rug aanwezig was die niet op het rek staat en dus ook geen productlocatie heeft gedefinieerd gekregen. BatchID:%Status %Status 0) { Set Status = -1 Set Body = "In de kellerbatch "_BatchID_" zijn ruggen aanwezig die niet in het pick to light systeem zijn opgenomen.

" Set Body = Body_"Ruggen:
" Set OnbekendeRuggenIterator = ##class(TECH.ListIterator).%New(OnbekendeRuggenLijst) While (OnbekendeRuggenIterator.HasNext()) { Set Rug = OnbekendeRuggenIterator.Next() Set Body=Body_Rug.Aantal_" stuk"_$Select(Rug.Aantal>1:"s",1:"")_" met productnummer "_Rug.PRNr_"
" } Do SendMiniMail^vhLib($$$SystemMail("Pick To Light Admin"),$$PiecesToList^vhLib(##CLASS(TECH.Config.ConfigMgr).Instance().GetString("APPS.P2L.P2LRuggen_OnbekendeRuggenMailenNaar"),";"),"[Pick To Light] Niet gedefinieerde ruggen aanwezig in kellerbatch "_BatchID,Body,0,1) } Quit Status ]]> Do ##class(APPS.P2L.P2LRuggen).WisAlles() 1