TECH.Mockable Machinekant = 2 x 25mm 50 2400 APPS.Verpakking.Doos 1 %Decimal 1 DS.Prod.OptiBox.sub.btCardboardRepository 1 1 1 1 1 1 1 2400) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2 Set BreedtePlanoRecept = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant Set DieptePlanoRecept = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 } #dim BreedtePlanoAltRecept As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant #dim DieptePlanoAltRecept As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 If (BreedtePlanoAltRecept > 2400) { Set BreedtePlanoRecept = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant Set DieptePlanoRecept = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 } #dim NodigeKartonBreedteRecept = $Select(BreedtePlanoRecept <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint), 1: 9999999) #dim NodigeKartonBreedteAltRecept = $Select(BreedtePlanoAltRecept <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoAltRecept, BasisDoos.LogoPrint), 1: 9999999) #dim OppTotaleKartonRecept As %Decimal = DieptePlanoRecept * NodigeKartonBreedteRecept #dim OppTotaleKartonAltRecept As %Decimal = DieptePlanoAltRecept * NodigeKartonBreedteAltRecept Set ..BreedtePlano = BreedtePlanoRecept If ((OppTotaleKartonAltRecept < OppTotaleKartonRecept)) { Set ..BreedtePlano = BreedtePlanoAltRecept Set BasisDoos.Recipe = BasisDoos.AltRecipe Set BasisDoos.Swap = BasisDoos.AltSwap } } Else { #dim SwapRecept219IsBeter, SwapRecept209IsBeter As %Boolean = $$$False #dim BreedtePlanoVoorSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant #dim DieptePlanoVoorSwapRecept219 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2 #dim BreedtePlanoNaSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + ..#MachineKant #dim DieptePlanoNaSwapRecept219 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 #dim NodigeKartonBreedteVoorSwapRecept219 = $Select(BreedtePlanoVoorSwapRecept219 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint), 1: 9999999) #dim NodigeKartonBreedteNaSwapRecept219 = $Select(BreedtePlanoNaSwapRecept219 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint), 1: 9999999) #dim OppTotaleKartonVoorSwapRecept219 As %Decimal = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219 #dim OppTotaleKartonNaSwapRecept219 As %Decimal = DieptePlanoNaSwapRecept219 * NodigeKartonBreedteNaSwapRecept219 If ((OppTotaleKartonNaSwapRecept219 < OppTotaleKartonVoorSwapRecept219)) { Set SwapRecept219IsBeter = $$$True } #dim BreedtePlanoVoorSwapRecept209 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant #dim DieptePlanoVoorSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 #dim BreedtePlanoNaSwapRecept209 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2 + ..#MachineKant #dim DieptePlanoNaSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 #dim NodigeKartonBreedteVoorSwapRecept209 = $Select(BreedtePlanoVoorSwapRecept209 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint), 1: 9999999) #dim NodigeKartonBreedteNaSwapRecept209 = $Select(BreedtePlanoNaSwapRecept209 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint), 1: 9999999) #dim OppTotaleKartonVoorSwapRecept209 As %Decimal = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209 #dim OppTotaleKartonNaSwapRecept209 As %Decimal = DieptePlanoNaSwapRecept209 * NodigeKartonBreedteNaSwapRecept209 If ((OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept209)) { Set SwapRecept209IsBeter = $$$True } If (SwapRecept219IsBeter && SwapRecept209IsBeter) { Set ..BreedtePlano = BreedtePlanoNaSwapRecept219 Set BasisDoos.Swap = 1 If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonNaSwapRecept219) { Set ..BreedtePlano = BreedtePlanoNaSwapRecept209 Set BasisDoos.Recipe = 209 } } ElseIf (SwapRecept219IsBeter && $$$Not(SwapRecept209IsBeter)) { If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonNaSwapRecept219) { Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209 Set BasisDoos.Recipe = 209 Set BasisDoos.Swap = 0 } Else { Set BasisDoos.Swap = 1 Set ..BreedtePlano = BreedtePlanoNaSwapRecept219 } } ElseIf ($$$Not(SwapRecept219IsBeter) && SwapRecept209IsBeter) { Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219 Set BasisDoos.Swap = 0 If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept219) { Set ..BreedtePlano = BreedtePlanoNaSwapRecept209 Set BasisDoos.Recipe = 209 Set BasisDoos.Swap = 1 } } ElseIf ($$$Not(SwapRecept219IsBeter) && $$$Not(SwapRecept209IsBeter)) { Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219 Set BasisDoos.Swap = 0 If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonVoorSwapRecept219) { Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209 Set BasisDoos.Recipe = 209 } } } ]]> 1