APPS.Halux.Planning.impl.AutoBatch.ToeleveringSplitser APPS.Halux.PPS.ALUFrees.dto.ToeleveringFreesInfoLijstPerRun array 1 APPS.Halux.PPS.ALUFrees.dto.ToeleveringFreesInfoLijstPerRun array 1 DOM.AKP.Toelevering list 1 DOM.AKP.Toelevering list 1 %ArrayOfObjects ELEMENTTYPE="APPS.Halux.PPS.ALUFrees.dto.ToeleveringFreesInfoLijstPerRun" %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.ALUFrees.dto.ToeleveringFreesInfoLijstPerRun" %ListOfObjects ELEMENTTYPE="DOM.AKP.Toelevering" 1 Toelevering:DOM.AKP.Toelevering,Exception:TECH.Exceptions.Exception 1 1 1 %ArrayOfObjects ELEMENTTYPE="%ListOfObjects" 1 { set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Toelevering "_Toelevering.GeefID()_" bevat kaderdeuren met verschillende profielen wat niet toegelaten is") do ##class(TECH.ExceptionHandler).Throw(Exception) } #dim ProductieGroep As %String = ProductieGroepen.GetAt(1) if 'GegroepeerdeToeleveringen.IsDefined(ProductieGroep) do GegroepeerdeToeleveringen.SetAt(##class(%ListOfObjects).%New(),ProductieGroep) do GegroepeerdeToeleveringen.GetAt(ProductieGroep).Insert(Toelevering) } quit GegroepeerdeToeleveringen ]]> Toelevering:DOM.AKP.Toelevering 1 %Boolean