Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml =================================================================== diff -u -r72339 -r72349 --- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml (.../OrgaluxBonOptimizer.cls.xml) (revision 72339) +++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml (.../OrgaluxBonOptimizer.cls.xml) (revision 72349) @@ -416,9 +416,9 @@ } #dim BoxDataOverdoosAangevuld As DS.Prod.OptiBox.BoxDataMetID = ..CopyBoxData(BoxDataOverdoos) - Set BoxDataOverdoosAangevuld.Breedte = $Select(Overdoos.overallwidth > 1170 : 1170, 1: Overdoos.overallwidth) //Indien overdoos toch net groter is dan 1170, waarde naar 1170 zetten, dan spant het maar een beetje ;) - Set BoxDataOverdoosAangevuld.Diepte = Overdoos.overalllength - Set BoxDataOverdoosAangevuld.Hoogte = Overdoos.overallheight + Set BoxDataOverdoosAangevuld.Breedte = $Select((Overdoos.overallwidth + 10) > 1170 : 1170, 1: Overdoos.overallwidth) //Indien overdoos toch net groter is dan 1170, waarde naar 1170 zetten, dan spant het maar een beetje ;) //10 Als extra marge zodat het stapelen goed lukt + Set BoxDataOverdoosAangevuld.Diepte = Overdoos.overalllength + 10 //10 Als extra marge zodat het stapelen goed lukt + Set BoxDataOverdoosAangevuld.Hoogte = Overdoos.overallheight + 10 //10 Als extra marge zodat het stapelen goed lukt #dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijDataVoorOverdoos(BoxDataOverdoosAangevuld, Overdoos, .OptiData, AfbeeldingCode, SnijDataParent, IsOverdoosNodig) #dim SnijDefOverdoos As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxDataOverdoosAangevuld) Do SnijData.SnijDefs.SetAt(SnijDefOverdoos, ##class(APPS.Verpakking.enu.MachineID).VH())