Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler/Test.cls.xml (revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler/Test.cls.xml (revision 37131)
@@ -0,0 +1,60 @@
+
+
+
+vhUnitTest.TestCase
+
+
+WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.TolerantieBepaler
+1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Plaat:DOM.PM.Maatwerk.LadeInfo.Plaat,VerwachteWaarde:TECH.Decimal
+1
+
+
+
+
+
+
Index: vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml (revision 0)
+++ vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml (revision 37131)
@@ -0,0 +1,43 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+1
+WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.TolerantieBepaler
+
+
+Plaat:DOM.PM.Maatwerk.LadeInfo.Plaat
+TECH.Decimal
+
+
+
+
+BodemPlaat:DOM.PM.Maatwerk.LadeInfo.BodemPlaat
+
+
+
+
+FrontPlaat:DOM.PM.Maatwerk.LadeInfo.FrontPlaat
+
+
+
+
+RugPlaat:DOM.PM.Maatwerk.LadeInfo.RugPlaat
+
+
+
+
+ZijkantPlaat:DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat
+
+
+
+
+
+
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml
===================================================================
diff -u -r37107 -r37131
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml (.../BepalerVoorLadeOnderdeel.cls.xml) (revision 37107)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml (.../BepalerVoorLadeOnderdeel.cls.xml) (revision 37131)
@@ -18,8 +18,13 @@
1
+
+WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.TolerantieBepaler
+1
+
+
-OnderdeelFactory:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory="",ProductDataRepository:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository="",KleurcodeStringBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler=""
+OnderdeelFactory:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory="",ProductDataRepository:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository="",KleurcodeStringBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler="",TolerantieBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.TolerantieBepaler
1
1
%Status
@@ -28,6 +33,7 @@
Set ..OnderdeelFactory = $$$Inject(OnderdeelFactory, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory).%New())
Set ..ProductDataRepository = $$$Inject(ProductDataRepository, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository).%New())
Set ..KleurcodeStringBepaler = $$$Inject(KleurcodeStringBepaler, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler).%New())
+ Set ..TolerantieBepaler = $$$Inject(TolerantieBepaler, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.TolerantieBepaler).%New())
Quit $$$OK
]]>
@@ -46,9 +52,10 @@
#dim Plaat As DOM.PM.Maatwerk.LadeInfo.Plaat = LadeOnderdeel.GeefPlaten().GetAt(1)
Set Plaat = LadeOnderdeel.GeefPlaten().GetAt(1)
- Set ProductData.Gewicht = Plaat.GeefGewicht()
- //Set ProductData.Tolerantie = "123" //TolerantieVoorPlaatBepaler.GeefTolerantie()
+ Do ProductData.GewichtSetInMilligrams(Plaat.GeefGewicht())
+ Do ProductData.TolerantieSetInMilligrams(Plaat.GeefGewicht() * ..TolerantieBepaler.GeefTolerantie(Plaat))
+
Do Onderdelen.Insert(..OnderdeelFactory.GeefOnderdeel(Rol, "", 1, "", Rol, KleurcodeString, ProductData))
}
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel/Test.cls.xml
===================================================================
diff -u -r37107 -r37131
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel/Test.cls.xml (.../Test.cls.xml) (revision 37107)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel/Test.cls.xml (.../Test.cls.xml) (revision 37131)
@@ -3,18 +3,46 @@
vhUnitTest.TestCase
-
+
+TECH.Integer
+1
+
+
+
+TECH.String
+1
+
+
+
+TECH.Weight
+1
+
+
+
+TECH.String
+1
+
+
+
+
+
+
+
+
+
+
+
Index: vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml (revision 0)
+++ vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml (revision 37131)
@@ -0,0 +1,45 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.
+1
+WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.TolerantieBepaler,Tools.Mock.MockClassBase
+right
+
+
+Plaat:DOM.PM.Maatwerk.LadeInfo.Plaat
+TECH.Decimal
+
+
+
+
+BodemPlaat:DOM.PM.Maatwerk.LadeInfo.BodemPlaat
+
+
+
+
+FrontPlaat:DOM.PM.Maatwerk.LadeInfo.FrontPlaat
+
+
+
+
+RugPlaat:DOM.PM.Maatwerk.LadeInfo.RugPlaat
+
+
+
+
+ZijkantPlaat:DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat
+
+
+
+
+
+
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml (revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/TolerantieBepaler.cls.xml (revision 37131)
@@ -0,0 +1,48 @@
+
+
+
+TECH.Mockable,DOM.PM.Maatwerk.LadeInfo.PlaatVisitor
+
+
+TECH.Decimal
+1
+
+
+
+
+Plaat:DOM.PM.Maatwerk.LadeInfo.Plaat
+TECH.Decimal
+
+
+
+
+BodemPlaat:DOM.PM.Maatwerk.LadeInfo.BodemPlaat
+
+
+
+
+FrontPlaat:DOM.PM.Maatwerk.LadeInfo.FrontPlaat
+
+
+
+
+RugPlaat:DOM.PM.Maatwerk.LadeInfo.RugPlaat
+
+
+
+
+ZijkantPlaat:DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat
+
+
+
+
+
+