Index: OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml
===================================================================
diff -u -r66508 -r66565
--- OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml	(.../OBJTIdentNrMappingRepository.cls.xml)	(revision 66508)
+++ OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml	(.../OBJTIdentNrMappingRepository.cls.xml)	(revision 66565)
@@ -13,8 +13,12 @@
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[
 	Set OBJTIdentNrMapping = ##class(OBJTimpl.PM.OBJTIdentNrMapping).%New()
-	Set OBJTIdentNrMapping.ADUOBJItemID = ADUOBJItemID
+	Set OBJTIdentNrMapping.OBJTItemID = ADUOBJItemID
 	Set OBJTIdentNrMapping.ItemID = ItemID
+	
+	Set PRNr=$P($G(^KPR2($TR(ItemID,".")_" ")),"\")
+	Do:PRNr OBJTIdentNrMapping.ProductSetObjectId(PRNr)
+	w "+"
 	Quit OBJTIdentNrMapping
 ]]></Implementation>
 </Method>
@@ -43,6 +47,17 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAdminItemIDs">
+<FormalSpec>OBJTItemID:%String</FormalSpec>
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSet as TECH.ResultSet
+	Set ResultSet = ResultSet("select PRNr,ItemID from OBJTimpl_PM.OBJTIdentNrMapping where OBJTItemID=? ")
+	Do ResultSet.Prepare(OBJTItemID)
+	Quit ResultSet
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: OBJTimpl/PM/OBJTIdentNrMapping.cls.xml
===================================================================
diff -u -r66508 -r66565
--- OBJTimpl/PM/OBJTIdentNrMapping.cls.xml	(.../OBJTIdentNrMapping.cls.xml)	(revision 66508)
+++ OBJTimpl/PM/OBJTIdentNrMapping.cls.xml	(.../OBJTIdentNrMapping.cls.xml)	(revision 66565)
@@ -9,16 +9,36 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="ADUOBJItemID">
+<Property name="OBJTItemID">
 <Type>%String</Type>
 </Property>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Afgeleid van ItemID
+
+]]></Content>
+</UDLText>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
 <Property name="Geldig">
 <Type>%Boolean</Type>
 <InitialExpression>$$$false</InitialExpression>
 <Transient>1</Transient>
 </Property>
 
+<Index name="IndexopOBJTItemID">
+<Properties>OBJTItemID</Properties>
+</Index>
+
+<Index name="IndexAXItemID">
+<Properties>ItemID</Properties>
+<Unique>1</Unique>
+</Index>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^OBJTimpl.PM.OBJTIdentNr9F1FD</DataLocation>
@@ -27,17 +47,18 @@
 <IndexLocation>^OBJTimpl.PM.OBJTIdentNr9F1FI</IndexLocation>
 <StreamLocation>^OBJTimpl.PM.OBJTIdentNr9F1FS</StreamLocation>
 <Data name="OBJTIdentNrMappingDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
 <Value name="2">
 <Value>ItemID</Value>
 </Value>
 <Value name="3">
-<Value>ADUOBJItemID</Value>
+<Value>OBJTItemID</Value>
 </Value>
+<Value name="4">
+<Value>Product</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: OBJTimpl/PM/OBJTIdentLookupService.cls.xml
===================================================================
diff -u -r66534 -r66565
--- OBJTimpl/PM/OBJTIdentLookupService.cls.xml	(.../OBJTIdentLookupService.cls.xml)	(revision 66534)
+++ OBJTimpl/PM/OBJTIdentLookupService.cls.xml	(.../OBJTIdentLookupService.cls.xml)	(revision 66565)
@@ -18,6 +18,13 @@
 <Private>1</Private>
 </Property>
 
+<UDLText name="T">
+<Content><![CDATA[
+// do ##class(OBJTimpl.PM.OBJTIdentLookupService).%New().RefreshCache()
+
+]]></Content>
+</UDLText>
+
 <Method name="%OnNew">
 <FormalSpec>OBJTIdentNrMappingRepository:OBJTimpl.PM.OBJTIdentNrMappingRepository="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
@@ -37,10 +44,9 @@
 	try {
 		#dim ResultSetIterator as TECH.ResultSetIterator
 		#dim ResultSet as TECH.ResultSet
-		Set ResultSet = ..SQLConnection.GetResultSet("select itemid,aduobjitemid from INVENTTABLE where dataareaid = 'vhbe' and itemid <> ADUOBJITEMID and ADUOBJITEMID is not null and ADUOBJITEMID <> ''")
+		Set ResultSet = ..SQLConnection.GetResultSet("select itemid,aduobjitemid from INVENTTABLE where dataareaid = 'vhbe' and ADUOBJITEMID is not null and ADUOBJITEMID <> '' ")
 
 		Do ..OBJTIdentNrMappingRepository.VerwijderAlle()
-
 		Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
 		While (ResultSetIterator.HasNext()){
 			#dim rs as TECH.ResultSet
@@ -63,15 +69,25 @@
 <FormalSpec>AdminIdentNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim OBJIdentNr as %String = AdminIdentNr
+	#dim OBJTIdentNr as %String = AdminIdentNr
 	
 	If ..OBJTIdentNrMappingRepository.BestaatViaItemID(AdminIdentNr){
 		#dim Mapping as OBJTimpl.PM.OBJTIdentNrMapping = ..OBJTIdentNrMappingRepository.GeefViaItemID(AdminIdentNr)
-		Set OBJIdentNr = Mapping.ADUOBJItemID
+		Set OBJTIdentNr = Mapping.OBJTItemID
 	}
-	Quit OBJIdentNr
+	Quit OBJTIdentNr
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAdminIdentNrs">
+<FormalSpec>OBJTItemID:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSet as TECH.ResultSet = ..OBJTIdentNrMappingRepository.GeefResultSet(OBJTItemID)
+	#dim ResultSetIterator as TECH.ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	Quit ResultSetIterator
+]]></Implementation>
+</Method>
 </Class>