vhLib.Macro 1 %RegisteredObject 1 APPS.Halux.PPS.ALUFrees.impl.Optimizer.Oplossing 1 APPS.Halux.PPS.ALUFrees.impl.Optimizer.ToolSetExtenderGroep 1 APPS.Halux.PPS.ALUFrees.impl.Optimizer.ToolSetExtenderWerkstuk 1 APPS.Halux.PPS.ALUFrees.impl.Optimizer.ToolSetValidator 1 Machine:APPS.Halux.PPS.ALUFrees.impl.Machine.Machine,Bank:APPS.Halux.PPS.ALUFrees.impl.Machine.BankVanTools %Status WerkstukGroepen:APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroepen APPS.Halux.PPS.ALUFrees.impl.Optimizer.Oplossing WerkstukGroepen:APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroepen APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroepen GeoptimaliseerdeWerkstukGroepen:APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroepen 1 1 GeoptimaliseerdeWerkstukGroepen:APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroepen 1 GeoptimaliseerdeWerkstukGroep:APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroep 1 ",$c(10,13)) } If ..Oplossing.HeeftFout() { Write !!,"**** OPLOSSING DEFINITIE FOUT ****" #dim itGroepen As TECH.Iterator = ##class(TECH.ListIterator).%New(..Oplossing.GeefWerkstukGroepenMetDefinitieFouten()) While (itGroepen.HasNext()) { #dim Groep As APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroepen = itGroepen.Next() Write !,$$REPLACE^vhRtn1(Groep.ToString(),"
",$c(10,13)) } Write !!,"**** OPLOSSING OPTIMALISATIE PROBLEMEN ****" #dim itGroepen As TECH.Iterator = ##class(TECH.ListIterator).%New(..Oplossing.GeefWerkstukGroepenMetOptimalisatieProblemen()) While (itGroepen.HasNext()) { #dim Groep As APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroepen = itGroepen.Next() Write !,$$REPLACE^vhRtn1(Groep.ToString(),"
",$c(10,13)) } } ]]>