Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml	(revision 53588)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX">
+<Description>
+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</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BepaalProduct">
+<FormalSpec>IdentNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BepaalProduct",IdentNr)
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("HasNext")
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Next")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u -r50231 -r53588
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 50231)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 53588)
@@ -33,11 +33,16 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductBepaler">
+<Property name="ProductBepalerMock">
 <Type>vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ProductBepalerAXMock">
+<Type>vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerkoopPrijsAPIMock">
 <Type>vhTest.Mock.APPS.VKP.VerkoopPrijsAPI</Type>
 <Private>1</Private>
@@ -81,11 +86,12 @@
 	Set ..DateTimeAPIMock	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
 	Set ..KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
 	Set ..VerkoopPrijsAPIMock = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
-	Set ..ProductBepaler = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler).%New()
-
+	Set ..ProductBepalerMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler).%New()
+	Set ..ProductBepalerAXMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX).%New()
+	
 	Set ..ProductIdConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.ProductIdConverter).%New()
 
-	Set ..Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(..SenderMock, ..DateTimeAPIMock, ..VerkoopPrijsAPIMock, ..ProductBepaler, ..ProductIdConverterMock)
+	Set ..Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(..SenderMock, ..DateTimeAPIMock, ..VerkoopPrijsAPIMock, ..ProductBepalerMock, ..ProductIdConverterMock, ..ProductBepalerAXMock)
 ]]></Implementation>
 </Method>
 
@@ -98,7 +104,10 @@
 	Do ..SenderMock.VerwachtMethodCall("Send", ..Matches.DataTransferObject(..Vhisie4Winkelkar)).DanReturn(..Response)
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog",0).DanReturn("64387,35360")
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn("64387")
-	Do ..ProductBepaler.VerwachtMethodCall("GeefProductNummer","identnumber","K||1234").DanReturn("productnumber")
+	Do ..ProductBepalerMock.VerwachtMethodCall("GeefProductNummer","axidentnumber","K||1234").DanReturn("productnumber")
+	Do ..ProductBepalerAXMock.VerwachtMethodCall("BepaalProduct","i.den.tnu.m").ExactAantalKeer(1)
+	Do ..ProductBepalerAXMock.VerwachtMethodCall("HasNext").DanReturn($$$True)
+	Do ..ProductBepalerAXMock.VerwachtMethodCall("Next").DanReturn("axidentnumber")
 	Do ..KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "productnumber", 10, ..CurrentDate).DanReturn(..PrijsInfo)
 	Do ..VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", ..VanHoeckeKlant.GeefID()).DanReturn(..KlantPrijsBepalerMock)
 	Do ..ProductIdConverterMock.VerwachtMethodCall("ConvertToIdentNummer","productnumber").DanReturn("identnumber")
@@ -107,7 +116,8 @@
 	
 	Do $$$AssertEquals(IntractoID, ..Response.Winkelkar.IntractoId)
 	
-	Do ..ProductBepaler.Verifieer()
+	Do ..ProductBepalerMock.Verifieer()
+	Do ..ProductBepalerAXMock.Verifieer()
 	Do ..SenderMock.Verifieer()
 	Do ..DateTimeAPIMock.Verifieer()
 	Do ..VerkoopPrijsAPIMock.Verifieer()
@@ -125,7 +135,10 @@
 	Do ..SenderMock.VerwachtMethodCall("Send", ..Matches.DataTransferObject(..Vhisie4Winkelkar)).DanReturn(..Response)
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog",0).DanReturn("64387,35360")
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn("64387")
-	Do ..ProductBepaler.VerwachtMethodCall("GeefProductNummer","identnumber","K||1234").DanReturn("productnumber")
+	Do ..ProductBepalerMock.VerwachtMethodCall("GeefProductNummer","axidentnumber","K||1234").DanReturn("productnumber")
+	Do ..ProductBepalerAXMock.VerwachtMethodCall("BepaalProduct","i.den.tnu.m").ExactAantalKeer(1)
+	Do ..ProductBepalerAXMock.VerwachtMethodCall("HasNext").DanReturn($$$True)
+	Do ..ProductBepalerAXMock.VerwachtMethodCall("Next").DanReturn("axidentnumber")
 	Do ..KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "productnumber", 10, ..CurrentDate).DanReturn(..PrijsInfo)
 	Do ..VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", ..VanHoeckeKlant.GeefID()).DanReturn(..KlantPrijsBepalerMock)
 	Do ..ProductIdConverterMock.VerwachtMethodCall("ConvertToIdentNummer","productnumber").DanReturn("identnumber")
@@ -138,7 +151,8 @@
 	Do ..DateTimeAPIMock.Verifieer()
 	Do ..VerkoopPrijsAPIMock.Verifieer()
 	Do ..KlantPrijsBepalerMock.Verifieer()
-	Do ..ProductBepaler.Verifieer()
+	Do ..ProductBepalerMock.Verifieer()
+	Do ..ProductBepalerAXMock.Verifieer()
 	Do ..ProductIdConverterMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -171,7 +185,11 @@
 	Do ..SenderMock.IndienMethodCall("Send", $$$ElkeWaarde).DanReturn(..Response)
 	Do ..DateTimeAPIMock.IndienMethodCall("CurrentHorolog",0).DanReturn("64387,35360")
 	Do ..DateTimeAPIMock.IndienMethodCall("CurrentDate").DanReturn("64387")
-	Do ..ProductBepaler.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn("productnumber")
+	Do ..ProductBepalerMock.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn("productnumber")
+	Do ..ProductBepalerAXMock.IndienMethodCall("BepaalProduct",$$$ElkeWaarde).DanDoeNiks()
+	Do ..ProductBepalerAXMock.IndienMethodCall("HasNext").DanReturn($$$True)
+	Do ..ProductBepalerAXMock.IndienMethodCall("Next").DanReturn("axidentnumber")
+
 	Do ..KlantPrijsBepalerMock.IndienMethodCall("GeefPrijsInformatie", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..PrijsInfo)
 	Do ..VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler", $$$ElkeWaarde).DanReturn(..KlantPrijsBepalerMock)
 	Do ..ProductIdConverterMock.IndienMethodCall("ConvertToIdentNummer","productnumber").DanReturn("identnumber")
@@ -192,7 +210,7 @@
 	Do ..SenderMock.IndienMethodCall("Send", $$$ElkeWaarde).DanReturn(..Response)
 	Do ..DateTimeAPIMock.IndienMethodCall("CurrentHorolog",0).DanReturn("64387,35360")
 	Do ..DateTimeAPIMock.IndienMethodCall("CurrentDate").DanReturn("64387")
-	Do ..ProductBepaler.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanException($$$DummyException)
+	Do ..ProductBepalerMock.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanException($$$DummyException)
 	Do ..VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler", $$$ElkeWaarde).DanReturn(..KlantPrijsBepalerMock)
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Blum OPC - Er zijn niet verwerkte producten bij het bewaren van de winkelkar voor gebruiker dummy@dum.my!")
@@ -211,7 +229,10 @@
 	Do ..SenderMock.IndienMethodCall("Send", $$$ElkeWaarde).DanReturn(..Response)
 	Do ..DateTimeAPIMock.IndienMethodCall("CurrentHorolog",0).DanReturn("64387,35360")
 	Do ..DateTimeAPIMock.IndienMethodCall("CurrentDate").DanReturn("64387")
-	Do ..ProductBepaler.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanException($$$DummyException)
+	Do ..ProductBepalerMock.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanException($$$DummyException)
+	Do ..ProductBepalerAXMock.IndienMethodCall("BepaalProduct","i.den.tnu.m").DanDoeNiks()
+	Do ..ProductBepalerAXMock.IndienMethodCall("HasNext").DanReturn($$$True)
+	Do ..ProductBepalerAXMock.IndienMethodCall("Next").DanReturn("axidentnumber")
 	Do ..VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler", $$$ElkeWaarde).DanReturn(..KlantPrijsBepalerMock)
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("IdentNr identnumber is niet verwerkt. DummyException")
Index: APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml
===================================================================
diff -u -r53137 -r53588
--- APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml	(.../ProductBepalerAX.cls.xml)	(revision 53137)
+++ APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml	(.../ProductBepalerAX.cls.xml)	(revision 53588)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="ResultSet">
 <Type>TECH.ResultSet</Type>
@@ -19,29 +19,28 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection,IdentNr:%String</FormalSpec>
+<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection,IdentNr:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
-	Do ..VoerUitQuery(IdentNr)
-	Set ..ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Do:$$$Not(IdentNr="") ..BepaalProduct(IdentNr)
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="VoerUitQuery">
+<Method name="BepaalProduct">
 <FormalSpec>IdentNr:%String</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	#dim SqlStatement As %String = ""
 	Set SqlStatement = "select case i.USEALTITEMID when 2 then i.altitemid when 3 then i.altitemid else itemid end itemid from inventtable i "
 	Set SqlStatement = SqlStatement _ "where i.DATAAREAID = 'vhbe' and i.PARTITION = 5637144576 and i.itemid = '" _IdentNr _"'"
 	
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+	Set ..ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
 ]]></Implementation>
 </Method>
 
Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r52916 -r53588
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 52916)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 53588)
@@ -38,6 +38,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductBepalerAX">
+<Type>APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="GroepID">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -69,7 +74,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender,DateTimeAPI:TECH.DateTime.DateTimeAPI,VerkoopPrijsAPI:APPS.VKP.VerkoopPrijsAPI,ProductBepaler:APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler,ProductIdConverter:WSimpl.Vhisie4.ProductIdConverter</FormalSpec>
+<FormalSpec>WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender,DateTimeAPI:TECH.DateTime.DateTimeAPI,VerkoopPrijsAPI:APPS.VKP.VerkoopPrijsAPI,ProductBepaler:APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler,ProductIdConverter:WSimpl.Vhisie4.ProductIdConverter,ProductBepalerAX:APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -80,6 +85,7 @@
 	Set ..VerkoopPrijsAPI = $$$Inject(VerkoopPrijsAPI, ##class(APPS.VKP.impl.VerkoopPrijsAPI).%New())
 	Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler).%New())
 	Set ..ProductIdConverter = $$$Inject(ProductIdConverter, ##class(WSimpl.Vhisie4.ProductIdConverter).%New())
+	Set ..ProductBepalerAX = $$$Inject(ProductBepalerAX, ##class(APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX).%New())
 
 	Set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
 	
@@ -226,18 +232,17 @@
 		Set Vhisie4ProductLijn = ##class(WS.Vhisie4.WinkelkarExport.dto.ProductLijn).%New()
 		Set Vhisie4ProductLijn.Id = ..Vhisie4Winkelkar.Id _##class(TECH.StringUtils).AddLeadingChar(..LijnID,"0",4)
 		Set Vhisie4ProductLijn.Aantal = Aantal
-		#dim ProductId As %String = ..ProductBepaler.GeefProductNummer(IdentNr, ..Klant.GeefID())
+		#dim ProductId As %String = ""
 		
-		if $$$Not($$$HasLength(ProductId)) {
+		#dim AXIdentNr As %String = $Extract(IdentNr,1,1) _"." _$Extract(IdentNr,2,4) _"." _$Extract(IdentNr,5,7) _"." _$Extract(IdentNr,8)
+		
+		Do ..ProductBepalerAX.BepaalProduct(AXIdentNr)
+		If ..ProductBepalerAX.HasNext() {
+			Set ProductId = ..ProductBepaler.GeefProductNummer(..ProductBepalerAX.Next(), ..Klant.GeefID())
+		} Else {
+			Set ProductId = ..ProductBepaler.GeefProductNummer(IdentNr, ..Klant.GeefID())
+		}
 
-			#dim AXIdentNr As %String = $Extract(IdentNr,1,1) _"." _$Extract(IdentNr,2,4) _"." _$Extract(IdentNr,5,7) _"." _$Extract(IdentNr,8)
-			
-			Set ProductBepalerAX = ##class(APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX).%New(,AXIdentNr)
-			If ProductBepalerAX.HasNext() {
-				Set ProductId = ..ProductBepaler.GeefProductNummer(ProductBepalerAX.Next(), ..Klant.GeefID())
-			}
-		} 
-
 		Set Vhisie4ProductLijn.ProductId = ..ProductIdConverter.ConvertToIdentNummer(ProductId)
 
 		Set Vhisie4ProductLijn.EenheidPrijs = ..KlantPrijsBepaler.GeefPrijsInformatie(ProductId, Aantal).PrijsInEuro
Index: vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml	(revision 53588)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX">
+<Description>
+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</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX</Super>
+
+<Method name="BepaalProduct">
+<FormalSpec>IdentNr:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>