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
}
}
}