Index: OBJTimpl/PM/OBJTIdentLookupService.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/OBJTIdentLookupService.cls.xml	(revision 0)
+++ OBJTimpl/PM/OBJTIdentLookupService.cls.xml	(revision 66508)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.OBJTIdentLookupService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="SQLConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OBJTIdentNrMappingRepository">
+<Type>OBJTimpl.PM.OBJTIdentNrMappingRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OBJTIdentNrMappingRepository:OBJTimpl.PM.OBJTIdentNrMappingRepository=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OBJTIdentNrMappingRepository = $$$Inject(OBJTIdentNrMappingRepository,##class(OBJTimpl.PM.OBJTIdentNrMappingRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="RefreshCache">
+<Implementation><![CDATA[
+	set ..SQLConnection = ##class(AXimpl.SqlQueryConnection).%New()
+	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 <> ''")
+
+		Do ..OBJTIdentNrMappingRepository.VerwijderAlle()
+
+		Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+		While (ResultSetIterator.HasNext()){
+			#dim rs as TECH.ResultSet
+			set rs = ResultSetIterator.Next()
+			#dim OBJTIdentNrMapping as OBJTimpl.PM.OBJTIdentNrMapping 
+			Set OBJTIdentNrMapping = ..OBJTIdentNrMappingRepository.Maak(rs.GetDataByName("itemid"),rs.GetDataByName("aduobjitemid"))
+			Do ..OBJTIdentNrMappingRepository.Bewaar(OBJTIdentNrMapping)
+		}
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		w Exception.ToString()
+		do ..SQLConnection.Disconnect()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZoekOBJTIdentNr">
+<FormalSpec>AdminIdentNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OBJIdentNr as %String = AdminIdentNr
+	
+	If ..OBJTIdentNrMappingRepository.BestaatViaItemID(AdminIdentNr){
+		#dim Mapping as OBJTimpl.PM.OBJTIdentNrMapping = ..OBJTIdentNrMappingRepository.GeefViaItemID(AdminIdentNr)
+		Set OBJIdentNr = Mapping.ADUOBJItemID
+	}
+	Quit OBJIdentNr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml	(revision 0)
+++ OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml	(revision 66508)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.OBJTIdentNrMappingRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>OBJTimpl.PM.OBJTIdentNrMapping</Default>
+</Parameter>
+
+<Method name="Maak">
+<FormalSpec>ItemID:%String,ADUOBJItemID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[
+	Set OBJTIdentNrMapping = ##class(OBJTimpl.PM.OBJTIdentNrMapping).%New()
+	Set OBJTIdentNrMapping.ADUOBJItemID = ADUOBJItemID
+	Set OBJTIdentNrMapping.ItemID = ItemID
+	Quit OBJTIdentNrMapping
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaItemID">
+<FormalSpec>ItemID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(ItemID="") $$$False
+	Quit ..BestaatViaFilter("ItemID = ?", $LB(ItemID))
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaItemID">
+<FormalSpec>ItemID:%String</FormalSpec>
+<ReturnType>OBJTimpl.PM.OBJTIdentNrMapping</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefViaFilter("ItemID = ?", $LB(ItemID))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderAlle">
+<Implementation><![CDATA[
+	#Dim iterator as TECH.Iterator = ..ZoekAlle()
+	while iterator.HasNext(){
+		Do ..VerwijderViaID(iterator.Next().GeefID())
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/PM/OBJTIdentNrMapping.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/OBJTIdentNrMapping.cls.xml	(revision 0)
+++ OBJTimpl/PM/OBJTIdentNrMapping.cls.xml	(revision 66508)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.OBJTIdentNrMapping">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="ItemID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ADUOBJItemID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Geldig">
+<Type>%Boolean</Type>
+<InitialExpression>$$$false</InitialExpression>
+<Transient>1</Transient>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^OBJTimpl.PM.OBJTIdentNr9F1FD</DataLocation>
+<DefaultData>OBJTIdentNrMappingDefaultData</DefaultData>
+<IdLocation>^OBJTimpl.PM.OBJTIdentNr9F1FD</IdLocation>
+<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>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>