1 APPS.Halux.common.impl.NiveauSchikkingAbstract Geeft het maximaal aantal objecten dat deze schikking kan plaatsen %Integer Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken. I3DObjecten:TECH.Stack %Integer Lijst.Count()) && (Doos.GeefBreedte() '> (..#BreedtePallet/2)) && (Doos.GeefDiepte() '> (..#DieptePallet/2)) { Set i = i+1 Set Doos = Lijst.GetAt(i) } If (i > Lijst.Count()) { Set Gebruikt = Lijst.Count() } Else { // één van de dozen paste niet, alle dozen terug op de stack plaatsen For i=Lijst.Count():-1:1 { Do I3DObjecten.Push(Lijst.GetAt(i)) } } Quit Gebruikt ]]>