Index: APPS/Verpakking/VouwErrondDoos.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/VouwErrondDoos.cls.xml (.../VouwErrondDoos.cls.xml) (revision 68405) +++ APPS/Verpakking/VouwErrondDoos.cls.xml (.../VouwErrondDoos.cls.xml) (revision 68515) @@ -7,10 +7,10 @@ APPS.Verpakking.VouwErrondDoos - + %Integer 219 - + @@ -29,10 +29,9 @@ %Decimal - - + %Decimal 209 Index: APPS/Verpakking/V1DoosMetDeksel.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/V1DoosMetDeksel.cls.xml (.../V1DoosMetDeksel.cls.xml) (revision 68405) +++ APPS/Verpakking/V1DoosMetDeksel.cls.xml (.../V1DoosMetDeksel.cls.xml) (revision 68515) @@ -7,10 +7,10 @@ APPS.Verpakking.V1DoosMetDeksel - + %Integer 202 - + @@ -58,7 +58,6 @@ %Decimal 1 - Index: vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml =================================================================== diff -u -r68407 -r68515 --- vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml (.../Test.cls.xml) (revision 68407) +++ vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml (.../Test.cls.xml) (revision 68515) @@ -64,12 +64,12 @@ -Doos:APPS.Verpakking.Doos,ProductGroep:%String,VerwachteRecipeID:%String,VerwachteSwap:%String +Doos:APPS.Verpakking.Doos,ProductGroep:%String,VerwachteRecipe:%String,VerwachteSwap:%String 1 Index: APPS/Verpakking/V1LageRug.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/V1LageRug.cls.xml (.../V1LageRug.cls.xml) (revision 68405) +++ APPS/Verpakking/V1LageRug.cls.xml (.../V1LageRug.cls.xml) (revision 68515) @@ -13,10 +13,10 @@ - + %Integer 202 - + @@ -64,7 +64,6 @@ %Decimal 1 - Index: APPS/Verpakking/DoosAanvuller.cls.xml =================================================================== diff -u -r68511 -r68515 --- APPS/Verpakking/DoosAanvuller.cls.xml (.../DoosAanvuller.cls.xml) (revision 68511) +++ APPS/Verpakking/DoosAanvuller.cls.xml (.../DoosAanvuller.cls.xml) (revision 68515) @@ -22,6 +22,10 @@ Do ..VulAanComplexeScheiding(.BasisDoos, .Params) } + Set BasisDoos.Depth = ##class(TECH.Math).Round(BasisDoos.Depth,0) + Set BasisDoos.Height = ##class(TECH.Math).Round(BasisDoos.Height,0) + Set BasisDoos.Width = ##class(TECH.Math).Round(BasisDoos.Width,0) + If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { If (Prioriteit = "Simulatie") { Set BasisDoos.Priority = "Simulation" @@ -56,12 +60,12 @@ Set BasisDoos.AltSwap = 2 Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K1" + Set Param.Key = "1" Set Param.Value = BasisDoos.K1 Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K2" + Set Param.Key = "2" Set Param.Value = BasisDoos.K2 Do BasisDoos.Params.Insert(Param) @@ -73,12 +77,12 @@ Set BasisDoos.Width = Params("BREEDTE") Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K1" + Set Param.Key = "1" Set Param.Value = BasisDoos.K1 Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K2" + Set Param.Key = "2" Set Param.Value = BasisDoos.K2 Do BasisDoos.Params.Insert(Param) @@ -97,12 +101,12 @@ Set BasisDoos.K2 = 110 Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K1" + Set Param.Key = "1" Set Param.Value = BasisDoos.K1 Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K2" + Set Param.Key = "2" Set Param.Value = BasisDoos.K2 Do BasisDoos.Params.Insert(Param) @@ -116,12 +120,12 @@ Set BasisDoos.K2 = 110 Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K1" + Set Param.Key = "1" Set Param.Value = BasisDoos.K1 Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K2" + Set Param.Key = "2" Set Param.Value = BasisDoos.K2 Do BasisDoos.Params.Insert(Param) } @@ -132,18 +136,20 @@ 1 @@ -215,7 +226,7 @@ Set BasisDoos.Width = Params("BREEDTE") Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K" + Set Param.Key = "1" //"K" Set Param.Value = 110 Do BasisDoos.Params.Insert(Param) ]]> @@ -232,7 +243,7 @@ Set BasisDoos.Width = Params("BREEDTE") Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K" + Set Param.Key = "1" Set Param.Value = BasisDoos.K Do BasisDoos.Params.Insert(Param) } @@ -249,17 +260,17 @@ Set BasisDoos.Width = Params("BREEDTE") Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K1" //Flap rechts deel 1 + Set Param.Key = "1" //Flap rechts deel 1 Set Param.Value = $Select($D(Params("K1")): Params("K1"), 1: BasisDoos.K1) Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K2" //Flap rechts deel 2 + Set Param.Key = "2" //Flap rechts deel 2 Set Param.Value = $Select($D(Params("K2")): Params("K2"), 1: BasisDoos.K2) Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "K3" //Flap links + Set Param.Key = "3" //Flap links Set Param.Value = $Select($D(Params("K3")): Params("K3"), 1: BasisDoos.K3) Do BasisDoos.Params.Insert(Param) ]]> @@ -285,48 +296,48 @@ }*/ Set Param = ##class(APPS.Verpakking.Doos.Param).%New() - Set Param.Key = "Fold3" //Afstand van tweede vouw tot derde vouw, indien nul dan afsnijden + Set Param.Key = "2" //Fold3 Afstand van tweede vouw tot derde vouw, indien nul dan afsnijden Set Param.Value = 0 Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold4" //Afstand van derde vouw tot vierde vouw, indien nul dan afsnijden + Set Param.Key = "3" //Fold4 Afstand van derde vouw tot vierde vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold5" //Afstand van vierde vouw tot vijfde vouw, indien nul dan afsnijden + Set Param.Key = "4" //Fold5 Afstand van vierde vouw tot vijfde vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold6" //Afstand van vijfde vouw tot zesde vouw, indien nul dan afsnijden + Set Param.Key = "5" //Fold6 Afstand van vijfde vouw tot zesde vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold7" //Afstand van zesde vouw tot zevende vouw, indien nul dan afsnijden + Set Param.Key = "6" //Fold7 Afstand van zesde vouw tot zevende vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold8" //Afstand van zevende vouw tot achtste vouw, indien nul dan afsnijden + Set Param.Key = "7" //Fold8 Afstand van zevende vouw tot achtste vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold9" //Afstand van achtste vouw tot negende vouw, indien nul dan afsnijden + Set Param.Key = "8" //Fold9 Afstand van achtste vouw tot negende vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold10" //Afstand van negende vouw tot tiende vouw, indien nul dan afsnijden + Set Param.Key = "9" //Fold10 Afstand van negende vouw tot tiende vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold11" //Afstand van tiende vouw tot elfde vouw, indien nul dan afsnijden + Set Param.Key = "10" //Fold11 Afstand van tiende vouw tot elfde vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "Fold12" //Afstand van elfde vouw tot twaalfde vouw, indien nul dan afsnijden + Set Param.Key = "11" //Fold12 Afstand van elfde vouw tot twaalfde vouw, indien nul dan afsnijden Do BasisDoos.Params.Insert(Param) Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Value = 0 - Set Param.Key = "NBR" //Aantal scheidingen naast elkaar + Set Param.Key = "1" //NBR Aantal scheidingen naast elkaar Set Param.Value = 1 Do BasisDoos.Params.Insert(Param) ]]> Index: APPS/Verpakking/Doos.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/Doos.cls.xml (.../Doos.cls.xml) (revision 68405) +++ APPS/Verpakking/Doos.cls.xml (.../Doos.cls.xml) (revision 68515) @@ -46,9 +46,9 @@ - + %Integer - + @@ -59,7 +59,6 @@ %Decimal - Index: APPS/Verpakking/V1LosseOnderdelen.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/V1LosseOnderdelen.cls.xml (.../V1LosseOnderdelen.cls.xml) (revision 68405) +++ APPS/Verpakking/V1LosseOnderdelen.cls.xml (.../V1LosseOnderdelen.cls.xml) (revision 68515) @@ -7,10 +7,10 @@ APPS.Verpakking.V1LosseOnderdelen - + %Integer 214 - + @@ -37,7 +37,6 @@ %Decimal 1 - Index: APPS/Verpakking/V1Flatpack.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/V1Flatpack.cls.xml (.../V1Flatpack.cls.xml) (revision 68405) +++ APPS/Verpakking/V1Flatpack.cls.xml (.../V1Flatpack.cls.xml) (revision 68515) @@ -7,10 +7,10 @@ APPS.Verpakking.V1Flatpack - + %Integer 206 - + @@ -39,18 +39,10 @@ - -%Decimal -206 - - - - %Decimal 0 - Index: APPS/Verpakking/V1HogeRug.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/V1HogeRug.cls.xml (.../V1HogeRug.cls.xml) (revision 68405) +++ APPS/Verpakking/V1HogeRug.cls.xml (.../V1HogeRug.cls.xml) (revision 68515) @@ -13,10 +13,10 @@ - + %Integer 201 - + @@ -64,7 +64,6 @@ %Decimal 1 - Index: APPS/Verpakking/ComplexeScheiding.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/ComplexeScheiding.cls.xml (.../ComplexeScheiding.cls.xml) (revision 68405) +++ APPS/Verpakking/ComplexeScheiding.cls.xml (.../ComplexeScheiding.cls.xml) (revision 68515) @@ -7,10 +7,10 @@ APPS.Verpakking.ComplexeScheiding - + %Integer 218 - + @@ -36,7 +36,6 @@ %Decimal 0 - Index: APPS/Verpakking/Optimizer.cls.xml =================================================================== diff -u -r68405 -r68515 --- APPS/Verpakking/Optimizer.cls.xml (.../Optimizer.cls.xml) (revision 68405) +++ APPS/Verpakking/Optimizer.cls.xml (.../Optimizer.cls.xml) (revision 68515) @@ -114,7 +114,7 @@ Set ..BreedtePlano = BreedtePlanoRecept If ((OppTotaleKartonAltRecept < OppTotaleKartonRecept)) { Set ..BreedtePlano = BreedtePlanoAltRecept - Set BasisDoos.RecipeID = BasisDoos.AltRecipeID + Set BasisDoos.Recipe = BasisDoos.AltRecipe Set BasisDoos.Swap = BasisDoos.AltSwap } } Else { @@ -157,12 +157,12 @@ Set BasisDoos.Swap = 1 If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonNaSwapRecept219) { Set ..BreedtePlano = BreedtePlanoNaSwapRecept209 - Set BasisDoos.RecipeID = 209 + Set BasisDoos.Recipe = 209 } } ElseIf (SwapRecept219IsBeter && $$$Not(SwapRecept209IsBeter)) { If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonNaSwapRecept219) { Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209 - Set BasisDoos.RecipeID = 209 + Set BasisDoos.Recipe = 209 } Else { Set BasisDoos.Swap = 1 Set ..BreedtePlano = BreedtePlanoNaSwapRecept219 @@ -171,14 +171,14 @@ Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219 If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept219) { Set ..BreedtePlano = BreedtePlanoNaSwapRecept209 - Set BasisDoos.RecipeID = 209 + Set BasisDoos.Recipe = 209 Set BasisDoos.Swap = 1 } } ElseIf ($$$Not(SwapRecept219IsBeter) && $$$Not(SwapRecept209IsBeter)) { Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219 If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonVoorSwapRecept219) { Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209 - Set BasisDoos.RecipeID = 209 + Set BasisDoos.Recipe = 209 } } }