Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler/Bepaal/Test.cls.xml	(revision 62112)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.HandelsKlantKortingsPercentageBepaler.Bepaal.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag">
+<Implementation><![CDATA[
+	Set DummyPersonality = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Do DummyPersonality.IndienMethodCall("GeefPrefix").DanReturn("DummyPrefix")
+	Do DummyPersonality.IndienMethodCall("GeefID").DanReturn("DummyID")
+	#dim KlantId As %String = "123456"
+	
+	Set LbxKorting = ##class(DOM.VKP.dto.KortingInfo).%New()
+	Set LbxKorting.Percentage = 0.111
+	Set TbxKorting = ##class(DOM.VKP.dto.KortingInfo).%New()
+	Set TbxKorting.Percentage = 0.222
+	Set TaxKorting = ##class(DOM.VKP.dto.KortingInfo).%New()
+	Set TaxKorting.Percentage = 0.333
+	Set OlKorting = ##class(DOM.VKP.dto.KortingInfo).%New()
+	Set OlKorting.Percentage = 0.444
+	
+	Set KortingServiceMock = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).LegraboxPure()).DanReturn(LbxKorting)
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).TandemboxAntaro()).DanReturn(TbxKorting)
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).Taorbox()).DanReturn(TaxKorting)
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfoVoorDecrypteer",DummyPersonality.GeefID(),DummyPersonality.GeefPrefix()_KlantId,##class(DOM.PM.enu.Variant).OrgaluxOpMaat()).DanReturn(OlKorting)	
+	
+	Set HandelsKlantKortingsPercentageBepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.HandelsKlantKortingsPercentageBepaler).%New(KortingServiceMock)
+	
+	#dim KortingsPercentages As WS.Vhisie4.Auth.DecrypteerResponse.KortingPercentages
+	Set KortingsPercentages = HandelsKlantKortingsPercentageBepaler.Bepaal(DummyPersonality, KlantId)
+	
+	Do $$$AssertEquals(KortingsPercentages.LBX,LbxKorting.Percentage*100)
+	Do $$$AssertEquals(KortingsPercentages.TBX,TbxKorting.Percentage*100)
+	Do $$$AssertEquals(KortingsPercentages.TAX,TaxKorting.Percentage*100)
+	Do $$$AssertEquals(KortingsPercentages.OL,OlKorting.Percentage*100)
+	
+	Do KortingServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler.cls.xml
===================================================================
diff -u -r62090 -r62112
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler.cls.xml	(.../HandelsKlantKortingsPercentageBepaler.cls.xml)	(revision 62090)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/HandelsKlantKortingsPercentageBepaler.cls.xml	(.../HandelsKlantKortingsPercentageBepaler.cls.xml)	(revision 62112)
@@ -3,20 +3,36 @@
 <Class name="WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.HandelsKlantKortingsPercentageBepaler">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="KortingService">
+<Type>DOM.VKP.impl.KortingService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KortingService:DOM.VKP.impl.KortingService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KortingService = $$$Inject(KortingService,##class(DOM.VKP.impl.KortingService).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Bepaal">
 <FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <ReturnType>WS.Vhisie4.Auth.DecrypteerResponse.KortingPercentages</ReturnType>
 <Implementation><![CDATA[
 	Set KortingsPercentages = ##class(WS.Vhisie4.Auth.DecrypteerResponse.KortingPercentages).%New()
 	
-	Set KortingService = ##class(DOM.VKP.impl.KortingService).%New()
-	
 	Set KlantId = Personality.GeefPrefix()_KlantId
 	
-	Set KortingsPercentages.LBX = KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).LegraboxPure()).Percentage * 100
-	Set KortingsPercentages.TBX = KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).TandemboxAntaro()).Percentage * 100
-	Set KortingsPercentages.TAX = KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).Taorbox()).Percentage * 100
-	Set KortingsPercentages.OL = KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).OrgaluxOpMaat()).Percentage * 100
+	Set KortingsPercentages.LBX = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).LegraboxPure()).Percentage * 100
+	Set KortingsPercentages.TBX = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).TandemboxAntaro()).Percentage * 100
+	Set KortingsPercentages.TAX = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).Taorbox()).Percentage * 100
+	Set KortingsPercentages.OL = ..KortingService.GeefKortingInfoVoorDecrypteer(Personality.GeefID(), KlantId, ##class(DOM.PM.enu.Variant).OrgaluxOpMaat()).Percentage * 100
 	
 	Quit KortingsPercentages
 ]]></Implementation>