Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/MultipersonalityPrijsWebservice/BerekenProductPrijzen/Test.cls.xml	(revision 62088)
@@ -0,0 +1,240 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.MultipersonalityPrijsWebservice.BerekenProductPrijzen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Uitvoeren van methodes bij verwerking met 1 product">
+<Implementation><![CDATA[
+	Set MessageManagerMock = ##class(vhTest.Mock.AXimpl.MessageManager).%New()
+	Set SalesPriceSeriveMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesPriceOut.SalesPriceService).%New()
+	Set PrijsFactorBepalerFactoryMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsFactorBepalerFactory).%New()
+	Set PrijsFactorBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler).%New()
+	Set KortingServiceMock = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
+	Set PersonalityRepositoryMock = ##class(vhTest.Mock.DOM.common.impl.PersonalityRepository).%New()
+	
+	#dim Personality As DOM.common.Personality = ##class(DOM.common.HaefeleDEPersonality).Instance()
+	#dim Factor As TECH.Decimal = 1.50
+	#dim MessageID As %String = "{9e6288b3-38cc-41d8-8dc9-3bbfeaf5c858}"
+	
+	#dim BerekenProductPrijzenRequest As WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest = ..MaakBerekenProductRequestMet1Product()
+	#dim Request As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC = ..MaakRequest(BerekenProductPrijzenRequest.Lines, Personality, MessageID)
+	#dim Output As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ..MaakOutputMet1Product()
+	
+	Set KortingInfo = ##class(DOM.VKP.dto.KortingInfo).%New()
+	Set KortingInfo.Percentage = 0.23
+	
+	Do PersonalityRepositoryMock.VerwachtMethodCall("GeefViaID", 33).DanReturn(Personality)
+	Do PrijsFactorBepalerFactoryMock.VerwachtMethodCall("GeefPrijsFactorBepaler", Personality).DanReturn(PrijsFactorBepalerMock)
+	Do PrijsFactorBepalerMock.VerwachtMethodCall("GeefOrgaluxPrijsFactor").DanReturn(Factor)
+	Do MessageManagerMock.VerwachtMethodCall("GenerateID").DanReturn(MessageID)
+	Do SalesPriceSeriveMock.VerwachtMethodCall("getPrice",..Matches.Object(Request)).DanReturn(Output)
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfo",$$$ElkeWaarde).DanReturn(KortingInfo)
+	
+	Set BerekenProductPrijzen = ##class(WSimpl.Vhisie4.Winkelkar.MultipersonalityPrijsWebservice.BerekenProductPrijzen).%New(SalesPriceSeriveMock, MessageManagerMock, PrijsFactorBepalerFactoryMock, KortingServiceMock, PersonalityRepositoryMock)
+	Do BerekenProductPrijzen.BerekenProductPrijzen(BerekenProductPrijzenRequest)
+	
+	Do MessageManagerMock.Verifieer()
+	Do SalesPriceSeriveMock.Verifieer()
+	Do KortingServiceMock.Verifieer()
+	Do PersonalityRepositoryMock.Verifieer()
+	Do PrijsFactorBepalerFactoryMock.Verifieer()
+	Do PrijsFactorBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Uitvoeren van methodes bij verwerking met 2 producten">
+<Implementation><![CDATA[
+	Set MessageManagerMock = ##class(vhTest.Mock.AXimpl.MessageManager).%New()
+	Set SalesPriceSeriveMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesPriceOut.SalesPriceService).%New()
+	Set PrijsFactorBepalerFactoryMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsFactorBepalerFactory).%New()
+	Set PrijsFactorBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler).%New()
+	Set KortingServiceMock = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
+	Set PersonalityRepositoryMock = ##class(vhTest.Mock.DOM.common.impl.PersonalityRepository).%New()
+	
+	#dim Personality As DOM.common.Personality = ##class(DOM.common.HaefeleDEPersonality).Instance()
+	#dim Factor As TECH.Decimal = 1.50
+	#dim MessageID As %String = "{9e6288b3-38cc-41d8-8dc9-3bbfeaf5c858}"
+	
+	#dim BerekenProductPrijzenRequest As WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest = ..MaakBerekenProductRequestMet2Producten()
+	#dim Request As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC = ..MaakRequest(BerekenProductPrijzenRequest.Lines, Personality, MessageID)
+	#dim Output As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ..MaakOutputMet2Producten()
+	
+	Set KortingInfo = ##class(DOM.VKP.dto.KortingInfo).%New()
+	Set KortingInfo.Percentage = 0.23
+	
+	Do PersonalityRepositoryMock.VerwachtMethodCall("GeefViaID", 33).DanReturn(Personality)
+	Do PrijsFactorBepalerFactoryMock.VerwachtMethodCall("GeefPrijsFactorBepaler", Personality).DanReturn(PrijsFactorBepalerMock)
+	Do PrijsFactorBepalerMock.VerwachtMethodCall("GeefOrgaluxPrijsFactor").DanReturn(Factor)
+	Do MessageManagerMock.VerwachtMethodCall("GenerateID").DanReturn(MessageID)
+	Do SalesPriceSeriveMock.VerwachtMethodCall("getPrice",..Matches.Object(Request)).DanReturn(Output)
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfo",$$$ElkeWaarde).DanReturn(KortingInfo).ExactAantalKeer(2)
+	
+	Set BerekenProductPrijzen = ##class(WSimpl.Vhisie4.Winkelkar.MultipersonalityPrijsWebservice.BerekenProductPrijzen).%New(SalesPriceSeriveMock, MessageManagerMock, PrijsFactorBepalerFactoryMock, KortingServiceMock, PersonalityRepositoryMock)
+	Do BerekenProductPrijzen.BerekenProductPrijzen(BerekenProductPrijzenRequest)
+	
+	Do MessageManagerMock.Verifieer()
+	Do SalesPriceSeriveMock.Verifieer()
+	Do KortingServiceMock.Verifieer()
+	Do PersonalityRepositoryMock.Verifieer()
+	Do PrijsFactorBepalerFactoryMock.Verifieer()
+	Do PrijsFactorBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Uitvoeren van methodes bij verwerking met 1 product met een messageID">
+<Implementation><![CDATA[
+	Set MessageManagerMock = ##class(vhTest.Mock.AXimpl.MessageManager).%New()
+	Set SalesPriceSeriveMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesPriceOut.SalesPriceService).%New()
+	Set PrijsFactorBepalerFactoryMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsFactorBepalerFactory).%New()
+	Set PrijsFactorBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler).%New()
+	Set KortingServiceMock = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
+	Set PersonalityRepositoryMock = ##class(vhTest.Mock.DOM.common.impl.PersonalityRepository).%New()
+	
+	#dim Personality As DOM.common.Personality = ##class(DOM.common.HaefeleDEPersonality).Instance()
+	#dim Factor As TECH.Decimal = 1.50
+	#dim MessageID As %String = "MessageID"
+	
+	#dim BerekenProductPrijzenRequest As WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest = ..MaakBerekenProductRequestMet1ProductMetMessageID()
+	#dim Request As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC = ..MaakRequest(BerekenProductPrijzenRequest.Lines, Personality, MessageID)
+	#dim Output As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ..MaakOutputMet1Product()
+	
+	Set KortingInfo = ##class(DOM.VKP.dto.KortingInfo).%New()
+	Set KortingInfo.Percentage = 0.23
+	
+	Do PersonalityRepositoryMock.VerwachtMethodCall("GeefViaID", 33).DanReturn(Personality)
+	Do PrijsFactorBepalerFactoryMock.VerwachtMethodCall("GeefPrijsFactorBepaler", Personality).DanReturn(PrijsFactorBepalerMock)
+	Do PrijsFactorBepalerMock.VerwachtMethodCall("GeefOrgaluxPrijsFactor").DanReturn(Factor)
+	Do MessageManagerMock.VerwachtMethodCall("GenerateID").DanReturn(MessageID).ExactAantalKeer(0)
+	Do SalesPriceSeriveMock.VerwachtMethodCall("getPrice",..Matches.Object(Request)).DanReturn(Output)
+	Do KortingServiceMock.VerwachtMethodCall("GeefKortingInfo",$$$ElkeWaarde).DanReturn(KortingInfo)
+	
+	Set BerekenProductPrijzen = ##class(WSimpl.Vhisie4.Winkelkar.MultipersonalityPrijsWebservice.BerekenProductPrijzen).%New(SalesPriceSeriveMock, MessageManagerMock, PrijsFactorBepalerFactoryMock, KortingServiceMock, PersonalityRepositoryMock)
+	Do BerekenProductPrijzen.BerekenProductPrijzen(BerekenProductPrijzenRequest)
+	
+	Do MessageManagerMock.Verifieer()
+	Do SalesPriceSeriveMock.Verifieer()
+	Do KortingServiceMock.Verifieer()
+	Do PersonalityRepositoryMock.Verifieer()
+	Do PrijsFactorBepalerFactoryMock.Verifieer()
+	Do PrijsFactorBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="MaakBerekenProductRequestMet1Product">
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest</ReturnType>
+<Implementation><![CDATA[
+	Set BerekenProductPrijzenRequest = ##class(WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest).%New()
+	Set BerekenProductPrijzenRequest.PersonalityID = 33
+	Set BerekenProductPrijzenRequest.CustAccount = 1234
+	
+	Set InputLine = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC).%New()
+	Set InputLine.CurrencyCode = "EUR"
+	Set InputLine.ItemId = 5678
+	Set InputLine.Qty = 1
+	Set InputLine.SalesUnit = "STK"
+	Set InputLine.TransDate = "2020-09-02"
+	Do BerekenProductPrijzenRequest.Lines.Insert(InputLine)
+	
+	Quit BerekenProductPrijzenRequest
+]]></Implementation>
+</Method>
+
+<Method name="MaakBerekenProductRequestMet1ProductMetMessageID">
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest</ReturnType>
+<Implementation><![CDATA[
+	Set BerekenProductPrijzenRequest = ##class(WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest).%New()
+	Set BerekenProductPrijzenRequest.PersonalityID = 33
+	Set BerekenProductPrijzenRequest.CustAccount = 1234
+	Set BerekenProductPrijzenRequest.MessageId = "MessageID"
+	
+	Set InputLine = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC).%New()
+	Set InputLine.CurrencyCode = "EUR"
+	Set InputLine.ItemId = 5678
+	Set InputLine.Qty = 1
+	Set InputLine.SalesUnit = "STK"
+	Set InputLine.TransDate = "2020-09-02"
+	Do BerekenProductPrijzenRequest.Lines.Insert(InputLine)
+	
+	Quit BerekenProductPrijzenRequest
+]]></Implementation>
+</Method>
+
+<Method name="MaakBerekenProductRequestMet2Producten">
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest</ReturnType>
+<Implementation><![CDATA[
+	Set BerekenProductPrijzenRequest = ##class(WS.Vhisie4.Winkelkar.BerekenProductPrijzenRequest).%New()
+	Set BerekenProductPrijzenRequest.PersonalityID = 33
+	Set BerekenProductPrijzenRequest.CustAccount = 1234
+	
+	Set InputLine = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC).%New()
+	Set InputLine.CurrencyCode = "EUR"
+	Set InputLine.ItemId = 5678
+	Set InputLine.Qty = 1
+	Set InputLine.SalesUnit = "STK"
+	Set InputLine.TransDate = "2020-09-02"
+	Do BerekenProductPrijzenRequest.Lines.Insert(InputLine)
+	Set InputLine2 = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC).%New()
+	Set InputLine2.CurrencyCode = "EUR"
+	Set InputLine2.ItemId = 56789
+	Set InputLine2.Qty = 1
+	Set InputLine2.SalesUnit = "STK"
+	Set InputLine2.TransDate = "2020-09-02"
+	Do BerekenProductPrijzenRequest.Lines.Insert(InputLine2)
+		
+	Quit BerekenProductPrijzenRequest
+]]></Implementation>
+</Method>
+
+<Method name="MaakRequest">
+<FormalSpec>Lines:AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceLineInputDC,Personality:DOM.common.Personality,MessageID:%String</FormalSpec>
+<ReturnType>AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC</ReturnType>
+<Implementation><![CDATA[
+	#dim Request As AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC = ##class(AXif.Dynamics.SalesPriceOut.MessageParts.ADUSalesPriceHeaderInputDC).%New()
+	Set Request.CustAccount = Personality.Klant.Nummer
+	Set Request.CalcPrice = $$$True
+	Set Request.CalcStock = $$$False
+	Set Request.MessageId = MessageID
+	Set Request.Lines = Lines
+	
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="MaakOutputMet1Product">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC</ReturnType>
+<Implementation><![CDATA[
+	#dim Output As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ##class(AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC).%New()
+	Set OutputLine = ##class(AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC).%New()
+	Set OutputLine.PriceUnit = 1
+	Set OutputLine.Price = 23.0
+	Do Output.Lines.Insert(OutputLine)
+	
+	Quit Output
+]]></Implementation>
+</Method>
+
+<Method name="MaakOutputMet2Producten">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC</ReturnType>
+<Implementation><![CDATA[
+	#dim Output As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ##class(AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC).%New()
+	Set OutputLine = ##class(AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC).%New()
+	Set OutputLine.PriceUnit = 1
+	Set OutputLine.Price = 23.0
+	Do Output.Lines.Insert(OutputLine)
+	Set OutputLine2 = ##class(AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC).%New()
+	Set OutputLine2.PriceUnit = 1
+	Set OutputLine2.Price = 24.0
+	Do Output.Lines.Insert(OutputLine2)
+	
+	Quit Output
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>