Index: WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r48508 -r48575
--- WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 48508)
+++ WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 48575)
@@ -72,6 +72,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductIdConverter">
+<Type>WSimpl.Vhisie4.ProductIdConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="SessionManager">
 <Type>WSimpl.Vhisie4.SessionManager</Type>
 <Private>1</Private>
@@ -92,6 +97,7 @@
 	Set ..SessionManager = ##class(WSimpl.Vhisie4.SessionManager).%New()
 	Set ..ObjectApi = ##class(TECH.Context).Instance().GeefObjectAPI()
 	Set ..KlantIdConverter = ##class(WSimpl.Vhisie4.KlantIdConverter).%New()
+	Set ..ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -128,6 +134,7 @@
 <Implementation><![CDATA[
 	Set BereidVoorBestellingRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BereidVoorBestellingRequest.Header.KlantId, BereidVoorBestellingRequest.Header.PersonalityId)
 	Set BereidVoorBestellingRequest.Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BereidVoorBestellingRequest.Winkelkar.KlantId, BereidVoorBestellingRequest.Header.PersonalityId)
+	Set BereidVoorBestellingRequest.Winkelkar.Lijnen = ..ProductIdConverter.ConvertLijnenToVanHoecke(BereidVoorBestellingRequest.Winkelkar.Lijnen)
 	
 	Do ..HeaderValidator.ValidateHeader(BereidVoorBestellingRequest.Header)
 	Do ..SessionManager.RegisterSession(BereidVoorBestellingRequest.Header)
@@ -150,6 +157,7 @@
 <Implementation><![CDATA[
 	Set BestelWinkelkarRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BestelWinkelkarRequest.Header.KlantId, BestelWinkelkarRequest.Header.PersonalityId)
 	Set BestelWinkelkarRequest.Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BestelWinkelkarRequest.Winkelkar.KlantId, BestelWinkelkarRequest.Header.PersonalityId)	
+	Set BestelWinkelkarRequest.Winkelkar.Lijnen = ..ProductIdConverter.ConvertLijnenToVanHoecke(BestelWinkelkarRequest.Winkelkar.Lijnen)
 	
 	Do ..HeaderValidator.ValidateHeader(BestelWinkelkarRequest.Header)
 	Do ..SessionManager.RegisterSession(BestelWinkelkarRequest.Header)
@@ -188,6 +196,7 @@
 	
 	Set HerberekenMaatwerkRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(HerberekenMaatwerkRequest.Header.KlantId, HerberekenMaatwerkRequest.Header.PersonalityId)
 	Set HerberekenMaatwerkRequest.Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(HerberekenMaatwerkRequest.Winkelkar.KlantId, HerberekenMaatwerkRequest.Header.PersonalityId)
+	Set HerberekenMaatwerkRequest.Winkelkar.Lijnen = ..ProductIdConverter.ConvertLijnenToVanHoecke(HerberekenMaatwerkRequest.Winkelkar.Lijnen)
 	
 	Do ..HeaderValidator.ValidateHeader(HerberekenMaatwerkRequest.Header)
 	Do ..SessionManager.RegisterSession(HerberekenMaatwerkRequest.Header)
@@ -222,6 +231,7 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	Set BewaarProductLijnRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(BewaarProductLijnRequest.Header.KlantId, BewaarProductLijnRequest.Header.PersonalityId)
+	Set BewaarProductLijnRequest.ProductId = ..ProductIdConverter.ConvertToProductId(BewaarProductLijnRequest.ProductId)
 	
 	Do ..HeaderValidator.ValidateHeader(BewaarProductLijnRequest.Header)
 	Do ..SessionManager.RegisterSession(BewaarProductLijnRequest.Header)
@@ -272,6 +282,8 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	Set SynchroniseerRequest.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(SynchroniseerRequest.Header.KlantId, SynchroniseerRequest.Header.PersonalityId)
+	Set SynchroniseerRequest.Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(SynchroniseerRequest.Winkelkar.KlantId, SynchroniseerRequest.Header.PersonalityId)
+	Set SynchroniseerRequest.Winkelkar.Lijnen = ..ProductIdConverter.ConvertLijnenToVanHoecke(SynchroniseerRequest.Winkelkar.Lijnen)
 	
 	Do ..HeaderValidator.ValidateHeader(SynchroniseerRequest.Header)
 	Do ..SessionManager.RegisterSession(SynchroniseerRequest.Header)
Index: WSimpl/Vhisie4/ProductIdConverter.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/ProductIdConverter.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/ProductIdConverter.cls.xml	(revision 48575)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.ProductIdConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SoprProductConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI="",SoprProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..SoprProductConvertor = $$$Inject(SoprProductConvertor, ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConvertLijnenToVanHoecke">
+<FormalSpec>Lijnen:%ListOfDataTypes(ELEMENTTYPE="WS.Vhisie4.Winkelkar.dto.WinkelkarLijn")</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="WS.Vhisie4.Winkelkar.dto.WinkelkarLijn"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim GeconverteerdeLijnen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim LijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lijnen)
+	
+	While (LijnenIterator.HasNext()) {
+		#dim Lijn As WS.Vhisie4.Winkelkar.dto.WinkelkarLijn = LijnenIterator.Next()
+		
+		If (Lijn.%IsA("WS.Vhisie4.Winkelkar.dto.ProductLijn")) {
+			Set Lijn.ProductId = ..ConvertToProductId(Lijn.ProductId)	
+		}
+		
+		Do GeconverteerdeLijnen.Insert(Lijn)
+	}	
+	
+	Quit GeconverteerdeLijnen
+]]></Implementation>
+</Method>
+
+<Method name="ConvertProductInfoToAx">
+<FormalSpec>Lijnen:%ListOfDataTypes(ELEMENTTYPE="WS.Vhisie4.KlantDocument.dto.ProductInfo")</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="WS.Vhisie4.KlantDocument.dto.ProductInfo"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim GeconverteerdeLijnen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim LijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lijnen)
+	
+	While (LijnenIterator.HasNext()) {
+		#dim ProductInfo As WS.Vhisie4.KlantDocument.dto.ProductInfo = LijnenIterator.Next()
+		
+		Set ProductInfo.ProductID = ..ConvertToIdentNummer(ProductInfo.ProductID)
+		
+		Do GeconverteerdeLijnen.Insert(ProductInfo)
+	}
+	
+	Quit GeconverteerdeLijnen
+]]></Implementation>
+</Method>
+
+<Method name="ConvertToProductId">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductApi.GeefProductIdVoorIdentNummer(IdentNummer)
+]]></Implementation>
+</Method>
+
+<Method name="ConvertToIdentNummer">
+<FormalSpec>ProductId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IdentNummer As %String = ProductId
+	
+	If (..SoprProductConvertor.IsSOPRInCache(ProductId)) {
+		Set ProductId = ..SoprProductConvertor.GeefVervangProductDoorSOPRInAX(ProductId)
+	}
+	
+	Set IdentNummer = ..ProductApi.GeefIdentNummerVoorProductId(ProductId)
+	
+	Quit IdentNummer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml
===================================================================
diff -u -r48508 -r48575
--- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 48508)
+++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 48575)
@@ -37,6 +37,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductIdConverter">
+<Type>WSimpl.Vhisie4.ProductIdConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -46,6 +51,7 @@
 	Set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
 	Set ..SessionManager = ##class(WSimpl.Vhisie4.SessionManager).%New()
 	Set ..KlantIdConverter = ##class(WSimpl.Vhisie4.KlantIdConverter).%New()
+	Set ..ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -72,6 +78,13 @@
 	#dim Response As WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request).GeefResponse()
 	Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
 	
+	#dim HistoriekGroepIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+	While (HistoriekGroepIterator.HasNext()) {
+		#dim HistoriekGroep As WS.Vhisie4.KlantDocument.dto.HistoriekGroep = HistoriekGroepIterator.Next()	
+		Set HistoriekGroep.Producten = ..ProductIdConverter.ConvertProductInfoToAx(HistoriekGroep.Producten)
+	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -98,6 +111,13 @@
 	#dim Response As WS.Vhisie4.KlantDocument.GeefOrdersResponse = ##class(AX.Uitgaand.EC.Data.impl.OrdersOphalen).%New(Request).GeefResponse()
 	Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
 	
+	#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+	While (HoofdingIterator.HasNext()) {
+		#dim Hoofding As WS.Vhisie4.KlantDocument.dto.OrderHoofding = HoofdingIterator.Next()	
+		Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
+	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -123,6 +143,13 @@
 	#dim Response As WS.Vhisie4.KlantDocument.GeefFacturenResponse = ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request).GeefResponse()
 	Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
 	
+	#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+	While (HoofdingIterator.HasNext()) {
+		#dim Hoofding As WS.Vhisie4.KlantDocument.dto.FactuurHoofding = HoofdingIterator.Next()	
+		Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
+	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -147,6 +174,13 @@
 	#dim Response As WS.Vhisie4.KlantDocument.GeefOffertesResponse = ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request).GeefResponse()
 	Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
 	
+	#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+	While (HoofdingIterator.HasNext()) {
+		#dim Hoofding As WS.Vhisie4.KlantDocument.dto.OfferteHoofding = HoofdingIterator.Next()	
+		Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
+	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -172,6 +206,13 @@
 	#dim Response As WS.Vhisie4.KlantDocument.GeefLeveringenResponse = ##class(AX.Uitgaand.EC.Data.impl.LeveringenOphalen).%New(Request).GeefResponse()
 	Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response)
 	
+	#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+	While (HoofdingIterator.HasNext()) {
+		#dim Hoofding As WS.Vhisie4.KlantDocument.dto.LeveringHoofding = HoofdingIterator.Next()	
+		Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
+	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/HeaderValidator.cls.xml
===================================================================
diff -u -r48497 -r48575
--- WSimpl/Vhisie4/HeaderValidator.cls.xml	(.../HeaderValidator.cls.xml)	(revision 48497)
+++ WSimpl/Vhisie4/HeaderValidator.cls.xml	(.../HeaderValidator.cls.xml)	(revision 48575)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Vhisie4.HeaderValidator">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="PersonalityService">
 <Type>DOM.common.PersonalityService</Type>
Index: WSimpl/Vhisie4/KlantIdConverter.cls.xml
===================================================================
diff -u -r48508 -r48575
--- WSimpl/Vhisie4/KlantIdConverter.cls.xml	(.../KlantIdConverter.cls.xml)	(revision 48508)
+++ WSimpl/Vhisie4/KlantIdConverter.cls.xml	(.../KlantIdConverter.cls.xml)	(revision 48575)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Vhisie4.KlantIdConverter">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Method name="ConvertToVanHoecke">
 <FormalSpec>KlantId:%String,PersonalityId:%String</FormalSpec>
Index: WS/Vhisie4/Winkelkar/WinkelkarService/Test.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/Winkelkar/WinkelkarService/Test.cls.xml	(revision 0)
+++ WS/Vhisie4/Winkelkar/WinkelkarService/Test.cls.xml	(revision 48575)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.Winkelkar.WinkelkarService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Property RequestDummy As %SerialObject [ Private ];
+
+Property RequestHeaderDummy As WS.Vhisie4.RequestHeader [ Private ];
+
+Property HeaderValidatorMock As vhTest.Mock.WSimpl.Vhisie4.HeaderValidator [ Private ];
+
+Method OnBeforeOneTest(aTestName As %String)
+{
+	Do ##super(aTestName)
+	
+	Set ..RequestHeaderDummy = ..GeefHeader()
+	Set ..HeaderValidatorMock = ##class(vhTest.Mock.WSimpl.Vhisie4.HeaderValidator).%New()
+	
+	//Do ..HeaderValidatorMock.VerwachtMethodCall("ValidateHeader", ..RequestHeaderDummy).DanDoeNiks()
+	Do ..HeaderValidatorMock.VerwachtMethodCall("ValidateHeader", ..RequestDummy).DanDoeNiks()
+}
+
+Method OnAfterOneTest(aTestName As %String)
+{
+	Do ##super(aTestName)
+	
+	//Do ..HeaderValidatorMock.Verifieer()
+}
+
+Method "Test: MaakWinkelkar"()
+{
+	//#dim RequestDummy As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ..GeefMaakWinkelkarRequest()
+	Set ..RequestDummy = ..GeefMaakWinkelkarRequest()
+	Do ##class(Tools.Wlip).%New(42).String("-->" _ ..RequestDummy)
+	
+	#dim KlantIdConverterMock As vhTest.Mock.WSimpl.Vhisie4.KlantIdConverter = ##class(vhTest.Mock.WSimpl.Vhisie4.KlantIdConverter).%New()
+	Do KlantIdConverterMock.VerwachtMethodCall("ConvertToVanHoecke", ..RequestDummy.Header.KlantId, ..RequestDummy.Header.PersonalityId).DanReturn("ConvertedKlantId")
+	
+	//#dim HeaderValidatorMock As vhTest.Mock.WSimpl.Vhisie4.HeaderValidator = ##class(vhTest.Mock.WSimpl.Vhisie4.HeaderValidator).%New()
+	//DoHeaderValidatorMock.VerwachtMethodCall("ValidateHeader", ..RequestDummy.Header).DanDoeNiks()
+	
+	#dim MaakWinkelkarMock As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New()
+	Do MaakWinkelkarMock.VerwachtMethodCall("MaakWinkelkar", ..RequestDummy).DanDoeNiks()
+	
+	#dim ObjectApiMock As vhTest.Mock.TECH.Object.ObjectAPI = ##class(vhTest.Mock.TECH.Object.ObjectAPI).%New()
+	Do ObjectApiMock.VerwachtMethodCall("New", "WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar").DanReturn(MaakWinkelkarMock)
+ 
+	#dim WinkelkarService As WS.Vhisie4.Winkelkar.WinkelkarService = ##class(WS.Vhisie4.Winkelkar.WinkelkarService).%New(KlantIdConverterMock, ..HeaderValidatorMock, ObjectApiMock)
+	Do WinkelkarService.MaakWinkelkar(..RequestDummy)
+	
+	Do KlantIdConverterMock.Verifieer()
+	//Do HeaderValidatorMock.Verifieer()
+	Do MaakWinkelkarMock.Verifieer()
+	Do ObjectApiMock.Verifieer()
+}
+
+
+Method GeefMaakWinkelkarRequest() As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest [ Private ]
+{
+	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).%New()
+	
+	Set Request.Header = ..GeefHeader()
+	
+	Quit Request
+}
+
+Method GeefBereidVoorBestellingRequest() As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest [ Private ]
+{
+	#dim Request As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).%New()
+	
+	Set Request.Header = ..RequestHeaderDummy //..GeefHeader()
+	
+	Quit Request
+}
+
+Method GeefHeader() As WS.Vhisie4.RequestHeader [ Private ]
+{
+	#dim Header As WS.Vhisie4.RequestHeader = ##class(WS.Vhisie4.RequestHeader).%New()
+	
+	Set Header.KlantId = "RandomKlantId"
+	Set Header.PersonalityId = "RandomPersonalityId"
+	
+	Quit Header
+}
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/ProductIdConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/ProductIdConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/ProductIdConverter/Test.cls.xml	(revision 48575)
@@ -0,0 +1,164 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.ProductIdConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ProductApi wordt opgeroepen voor conversie van IdentNummer naar ProductId">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	#dim RandomIdentNummer As %String = "RandomIdentNummer"
+	
+	#dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProductIdVoorIdentNummer", RandomIdentNummer).DanReturn(RandomProductId)
+	
+	#dim ProductIdConverter As WSimpl.Vhisie4.ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New(ProductApiMock)
+	#dim ProductId As %String = ProductIdConverter.ConvertToProductId(RandomIdentNummer)
+	
+	Do $$$AssertEquals(ProductId, RandomProductId)
+	
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductApi en SoprConverter worden opgeroepen voor conversie van ProductId naar IdentNummer">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	#dim RandomIdentNummer As %String = "RandomIdentNummer"
+	#dim SoprProductIdGekendInAx As %String = "SoprProductIdGekendInAx"
+	
+	#dim SoprProductConvertorMock As vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do SoprProductConvertorMock.VerwachtMethodCall("IsSOPRInCache", RandomProductId).DanReturn($$$True)
+	Do SoprProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX", RandomProductId).DanReturn(SoprProductIdGekendInAx)
+	
+	#dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefIdentNummerVoorProductId", SoprProductIdGekendInAx).DanReturn(RandomIdentNummer)
+	
+	#dim ProductIdConverter As WSimpl.Vhisie4.ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New(ProductApiMock, SoprProductConvertorMock)
+	#dim IdentNummer As %String = ProductIdConverter.ConvertToIdentNummer(RandomProductId)
+
+	Do $$$AssertEquals(IdentNummer, RandomIdentNummer)
+	
+	Do SoprProductConvertorMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Enkel bij ProductLijnen wordt het IdentNummer geconverteerd naar een Van Hoecke ProductId">
+<Implementation><![CDATA[
+	#dim RandomIdentNummer As %String = "RandomIdentNummer"
+	#dim RandomAantalLijnen As %Integer = 4
+	
+	#dim MaatwerkLijnen As %ListOfDataTypes = ..GeefMaatwerkLijnen(RandomAantalLijnen)
+	#dim ProductLijnen As %ListOfDataTypes = ..GeefProductLijnen(RandomAantalLijnen, RandomIdentNummer)
+	
+	Do ..AssertGeconverteerdeLijnen(MaatwerkLijnen, $$$ElkeWaarde, 0, "Voor MaatwerkLijnen is geen conversie naar Van Hoecke ProductId nodig.")
+	Do ..AssertGeconverteerdeLijnen(ProductLijnen, RandomIdentNummer, RandomAantalLijnen, "Voor ProductLijnen is conversie naar Van Hoecke ProductId nodig.")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductId&apos;s worden geconverteerd naar in AX gekende IdentNummers">
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	#dim RandomAantalLijnen As %Integer = 4
+	#dim ProductInfoLijnen As %ListOfDataTypes = ..GeefProductInfoLijnen(RandomAantalLijnen, RandomProductId)
+	
+	#dim SoprProductConvertorMock As vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do SoprProductConvertorMock.VerwachtMethodCall("IsSOPRInCache", RandomProductId).ExactAantalKeer(RandomAantalLijnen).DanReturn($$$False)
+	
+	#dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefIdentNummerVoorProductId", RandomProductId).DanReturn("RandomIdentNummer")
+	
+	#dim ProductIdConverter As WSimpl.Vhisie4.ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New(ProductApiMock, SoprProductConvertorMock)
+	#dim GeconverteerdeProductInfoLijnen As %ListOfDataTypes = ProductIdConverter.ConvertProductInfoToAx(ProductInfoLijnen)
+	
+	Do $$$AssertEquals(ProductInfoLijnen.Count(), GeconverteerdeProductInfoLijnen.Count())
+	
+	Do SoprProductConvertorMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="AssertGeconverteerdeLijnen">
+<FormalSpec>Lijnen:%ListOfDataTypes,IdentNummer:%String,AantalVerwachteConversies:%Integer,AssertMessage:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
+	
+	#dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProductIdVoorIdentNummer", IdentNummer).ExactAantalKeer(AantalVerwachteConversies).DanReturn(RandomProductId)
+	
+	#dim ProductIdConverter As WSimpl.Vhisie4.ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New(ProductApiMock)
+	#dim GeconverteerdeLijnen As %ListOfDataTypes = ProductIdConverter.ConvertLijnenToVanHoecke(Lijnen)
+
+	Do $$$AssertEquals(GeconverteerdeLijnen.Count(), Lijnen.Count(), AssertMessage)
+	
+	#dim Index As %Integer = 1
+	
+	While (Index <= AantalVerwachteConversies) {
+		Do $$$AssertEquals(GeconverteerdeLijnen.GetAt(Index).ProductId, RandomProductId)
+		Set Index = Index + 1	
+	}
+	
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductInfoLijnen">
+<FormalSpec>Aantal:%Integer,ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="WS.Vhisie4.KlantDocument.dto.ProductInfo"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim ProductInfoLijnen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	While (ProductInfoLijnen.Count() < Aantal) {
+		#dim ProductInfo As WS.Vhisie4.KlantDocument.dto.ProductInfo = ##class(WS.Vhisie4.KlantDocument.dto.ProductInfo).%New()
+		
+		Set ProductInfo.ProductID = ProductId
+		
+		Do ProductInfoLijnen.Insert(ProductInfo)
+	}
+	
+	Quit ProductInfoLijnen
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaatwerkLijnen">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="WS.Vhisie4.Winkelkar.dto.MaatwerkLijn"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim MaatwerkLijnen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	While (MaatwerkLijnen.Count() < Aantal) {
+		Do MaatwerkLijnen.Insert(##class(WS.Vhisie4.Winkelkar.dto.MaatwerkLijn).%New())
+	}
+	
+	Quit MaatwerkLijnen
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijnen">
+<FormalSpec>Aantal:%Integer,IdentNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="WS.Vhisie4.Winkelkar.dto.ProductLijn"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim ProductLijnen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	While (ProductLijnen.Count() < Aantal) {
+		#dim ProductLijn As WS.Vhisie4.Winkelkar.dto.ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
+		
+		Set ProductLijn.ProductId = IdentNummer
+		
+		Do ProductLijnen.Insert(ProductLijn)
+	}
+	
+	Quit ProductLijnen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>