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