Index: APPS/Verpakking/Optimizer.cls.xml =================================================================== diff -u -r71123 -r71199 --- APPS/Verpakking/Optimizer.cls.xml (.../Optimizer.cls.xml) (revision 71123) +++ APPS/Verpakking/Optimizer.cls.xml (.../Optimizer.cls.xml) (revision 71199) @@ -82,7 +82,7 @@ Set BasisDoos.Swap = 0 } } - + //+50 voor panotec? Set BasisDoos.RecipeName = BasisDoos.RecipeName _ " "_ BasisDoos.Recipe Set BasisDoos.UsedCardBoardLength = ..DieptePlano ]]> @@ -144,7 +144,7 @@ #dim BreedtePlanoRecept As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness #dim DieptePlanoRecept As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2 - If ((BreedtePlanoRecept > ..#AfmetingBreedsteKarton) || (DieptePlanoRecept > ..#AfmetingBreedsteKarton)) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2 + If (BreedtePlanoRecept > ..#AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2 Set BreedtePlanoRecept = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness Set DieptePlanoRecept = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2 Set BasisDoos.Swap = 1 @@ -153,7 +153,7 @@ #dim BreedtePlanoAltRecept As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2 #dim DieptePlanoAltRecept As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness - If ((BreedtePlanoAltRecept > ..#AfmetingBreedsteKarton) || (DieptePlanoAltRecept > ..#AfmetingBreedsteKarton)) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2 + If (BreedtePlanoAltRecept > ..#AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2 Set BreedtePlanoAltRecept = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2 Set DieptePlanoAltRecept = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness Set BasisDoos.AltSwap = 1 @@ -172,7 +172,9 @@ Set ..DieptePlano = DieptePlanoAltRecept Set BasisDoos.Recipe = BasisDoos.AltRecipe Set BasisDoos.Swap = BasisDoos.AltSwap - } + } + + Set ..BreedtePlano = ..BreedtePlano + 200 //200 als buffer omdat hij soms zijn VH machine zijn koppen niet kan zetten, zie confluence } Else { #dim SwapRecept219IsBeter, SwapRecept209IsBeter As %Boolean = $$$False