Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r50231 -r52916
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 50231)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 52916)
@@ -227,7 +227,19 @@
 		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())
+		
+		if $$$Not($$$HasLength(ProductId)) {
+
+			#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
 		Set Vhisie4ProductLijn.TotaalPrijs = (Vhisie4ProductLijn.EenheidPrijs * Aantal)
 		Do ..Vhisie4Winkelkar.Lijnen.Insert(Vhisie4ProductLijn)
Index: APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml
===================================================================
diff -u
--- APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml	(revision 0)
+++ APPS/Blum/impl/OnlineProductConfigurator/ProductBepalerAX.cls.xml	(revision 52916)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Blum.impl.OnlineProductConfigurator.ProductBepalerAX">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSetIterator">
+<Type>TECH.ResultSetIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<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)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<FormalSpec>IdentNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SqlStatement As %String = ""
+	Set SqlStatement = "select case i.USEALTITEMID when 2 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)
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..ResultSetIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSet As TECH.ResultSet = ..ResultSetIterator.Next()
+	Quit ResultSet.GetDataByName("itemid")
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do:$IsObject(..ResultSet) ..SqlQueryConnection.Disconnect()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/KCA/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml
===================================================================
diff -u -r52733 -r52916
--- zTryout/KCA/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 52733)
+++ zTryout/KCA/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 52916)
@@ -28,7 +28,9 @@
 	;Set Ident.identnumber = "05722072" ; NOK
 	;Set Ident.identnumber = "08962303" ; OK
 	;Set Ident.identnumber = "07054881" ; OK
-	Set Ident.identnumber = "04160461" ; OK
+	;Set Ident.identnumber = "04160461" ; OK
+	Set Ident.identnumber = "04584771" ; NOK
+	
 	Do SubDir.identnumbers.Insert(Ident)	
 	
 	Do Directory.subDirectories.Insert(SubDir)
Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml
===================================================================
diff -u -r41023 -r52916
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml	(.../ProductBepaler.cls.xml)	(revision 41023)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml	(.../ProductBepaler.cls.xml)	(revision 52916)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler">
 <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
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+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.ProductBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>