Index: APPS/PM/Maatwerk/TBX/Probox/dto/WikkelInfo.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/TBX/Probox/dto/WikkelInfo.cls.xml (revision 0)
+++ APPS/PM/Maatwerk/TBX/Probox/dto/WikkelInfo.cls.xml (revision 1592)
@@ -0,0 +1,43 @@
+
+
+
+1
+%RegisteredObject
+0
+
+
+%Float
+1
+
+
+
+%Integer
+1
+
+
+
+Lengte:%Float,Aantal:%Integer
+1
+1
+%Status
+
+
+
+
+%Float
+
+
+
+
+%Integer
+
+
+
+
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r1552 -r1592
--- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 1552)
+++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 1592)
@@ -757,6 +757,73 @@
]]>
+
+
+Geeft de wikkel-lengte voor een tandembox-lade in Probox verpakking
+1
+DesignCode:%String,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeBreedte:%Float
+1
+%List
+
+
+
+
+
+Geeft de wikkel-diepte voor een tandembox-lade in Probox verpakking
+1
+LadeDiepte:%Integer
+1
+%Float
+
+
+
+
+
+Geeft het volume-aandeel voor een tandembox-lade in Probox verpakking
+1
+DesignCode:%String,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeBreedte:%Float
+1
+%Float
+
+
+
+
+
+Geeft de enumeratie van LadeVariant voor de DesignCode (S, I, B, F, MA).
+1
+DesignCode:%String
+1
+DOM.PM.enu.LadeVariant
+
+
+
Geeft de DesignCode (S, I, B, F, MA) voor de gegeven DS.
Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml (revision 0)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml (revision 1592)
@@ -0,0 +1,309 @@
+
+
+
+TECH.Error
+1
+%RegisteredObject
+0
+
+
+1
+LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String
+%Float
+ 550) {
+ // Binnenlades van 270mm tot 550mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "M" : 0.13 ,
+ "K" : 0.17 ,
+ "B" : 0.20 ,
+ "C" : 0.25 ,
+ "D" : 0.33 ,
+ : "")
+ }
+ Else {
+ // Binnenlades van 600mm tot 650mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "M" : 0.20 ,
+ "K" : 0.25 ,
+ "B" : 0.33 ,
+ "C" : 0.33 ,
+ "D" : 0.50 ,
+ : "")
+ }
+ }
+ Else {
+ If (LadeDiepte '> 550) {
+ // Lades van 270mm tot 550mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "N" : 0.10 ,
+ "M" : 0.13 ,
+ "K" : 0.17 ,
+ "B" : 0.13 ,
+ "C" : 0.17 ,
+ "D" : 0.13 ,
+ : "")
+ }
+ Else {
+ // Lades van 600mm tot 650mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "N" : 0.14 ,
+ "M" : 0.17 ,
+ "K" : 0.25 ,
+ "B" : 0.17 ,
+ "C" : 0.25 ,
+ "D" : 0.17 ,
+ : "")
+ }
+ }
+ }
+ ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo() {
+ If IsBinnenlade {
+ If (LadeDiepte '> 550) {
+ // Binnenlades van 270mm tot 550mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "M" : 0.13 ,
+ "C" : 0.25 ,
+ "D" : 0.33 ,
+ : "")
+ }
+ Else {
+ // Binnenlades van 600mm tot 650mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "M" : 0.20 ,
+ "C" : 0.33 ,
+ "D" : 0.50 ,
+ : "")
+ }
+ }
+ Else {
+ If (LadeDiepte '> 550) {
+ // Lades van 270mm tot 550mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "N" : 0.10 ,
+ "M" : 0.13 ,
+ "C" : 0.14 ,
+ "D" : 0.14 ,
+ : "")
+ }
+ Else {
+ // Lades van 600mm tot 650mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "N" : 0.14 ,
+ "M" : 0.17 ,
+ "C" : 0.20 ,
+ "D" : 0.20 ,
+ : "")
+ }
+ }
+ }
+ ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro() {
+ If IsBinnenlade {
+ If (LadeDiepte '> 550) {
+ // Binnenlades van 270mm tot 550mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "M" : 0.13 ,
+ "C" : 0.25 ,
+ : "")
+ }
+ Else {
+ // Binnenlades van 600mm tot 650mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "M" : 0.20 ,
+ "C" : 0.33 ,
+ : "")
+ }
+ }
+ Else {
+ If (LadeDiepte '> 550) {
+ // Lades van 270mm tot 550mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "N" : 0.10 ,
+ "M" : 0.13 ,
+ "C" : 0.13 ,
+ : "")
+ }
+ Else {
+ // Lades van 600mm tot 650mm diep
+ Set OppervlakteAandeel=$Case(LadeHoogte,
+ "N" : 0.14 ,
+ "M" : 0.17 ,
+ "C" : 0.17 ,
+ : "")
+ }
+ }
+ }
+ Else {
+ Set OppervlakteAandeel=""
+ }
+
+ If OppervlakteAandeel="" {
+ $$$ThrowError($$$errInvalidInput,"Ongeldige waarde voor berekening van OppervlakteAandeel (input params).")
+ }
+
+ Quit OppervlakteAandeel
+]]>
+
+
+
+1
+LadeBreedte:%Float
+%Float
+600 {
+ Set HoogteAandeel = $$$MinHoogteAandeel
+ }
+ Else {
+ Set HoogteAandeel = ((LadeBreedte-600)*(1/1200)) + $$$MinHoogteAandeel
+ }
+ Set:(HoogteAandeel>1) HoogteAandeel=1
+ Quit HoogteAandeel
+]]>
+
+
+
+1
+LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeBreedte:%Float
+%Float
+
+
+
+
+1
+LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String
+%Float
+
+
+
+
+1
+LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeBreedte:%Float
+APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo
+ 900 {
+ Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,1)
+ }
+ ElseIf WikkelLengte '> 1250 {
+ Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(1250,1)
+ }
+ Else {
+ Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,2)
+ }
+
+ Quit WikkelInfo
+]]>
+
+
+
+1
+LadeDiepte:%Float
+%Float
+550 {
+ Set WikkelDiepte = 520
+ }
+ Else {
+ Set WikkelDiepte = 650
+ }
+
+ Quit WikkelDiepte
+]]>
+
+
+
Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml (revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml (revision 1592)
@@ -0,0 +1,169 @@
+
+
+
+
+Oproepen via
+ do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.TBX.Probox.TestCalculator")
+1
+vhUnitTest.TestCase,TECH.Error.ErrorAdaptor
+0
+
+
+%String
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ zie method ..TestGeefVerpakkingHoogteFout()
+
+ Quit
+]]>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Label,Options
+
+
+
+
+ErrorMsg:%String
+
+
+
+
Index: WV GAProduct.prj.xml
===================================================================
diff -u -r1210 -r1592
--- WV GAProduct.prj.xml (.../WV GAProduct.prj.xml) (revision 1210)
+++ WV GAProduct.prj.xml (.../WV GAProduct.prj.xml) (revision 1592)
@@ -1,10 +1,12 @@
-
+
+
+
@@ -140,6 +142,7 @@
+