Index: OBJTimpl/PM/OBJTIdentNrMapping.cls.xml
===================================================================
diff -u -r66565 -r66599
--- OBJTimpl/PM/OBJTIdentNrMapping.cls.xml	(.../OBJTIdentNrMapping.cls.xml)	(revision 66565)
+++ OBJTimpl/PM/OBJTIdentNrMapping.cls.xml	(.../OBJTIdentNrMapping.cls.xml)	(revision 66599)
@@ -26,8 +26,6 @@
 
 <Property name="Geldig">
 <Type>%Boolean</Type>
-<InitialExpression>$$$false</InitialExpression>
-<Transient>1</Transient>
 </Property>
 
 <Index name="IndexopOBJTItemID">
@@ -59,6 +57,9 @@
 <Value name="4">
 <Value>Product</Value>
 </Value>
+<Value name="5">
+<Value>Geldig</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: OBJTimpl/PM/OBJTIdentLookupService.cls.xml
===================================================================
diff -u -r66565 -r66599
--- OBJTimpl/PM/OBJTIdentLookupService.cls.xml	(.../OBJTIdentLookupService.cls.xml)	(revision 66565)
+++ OBJTimpl/PM/OBJTIdentLookupService.cls.xml	(.../OBJTIdentLookupService.cls.xml)	(revision 66599)
@@ -32,8 +32,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..OBJTIdentNrMappingRepository = $$$Inject(OBJTIdentNrMappingRepository,##class(OBJTimpl.PM.OBJTIdentNrMappingRepository).%New())
-	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New(..%ClassName(1)))
+	Set ..OBJTIdentNrMappingRepository = $$$Inject(OBJTIdentNrMappingRepository,##class(OBJTimpl.PM.OBJTIdentNrMappingRepository).%New(,,..Logger))
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -42,19 +43,33 @@
 <Implementation><![CDATA[
 	set ..SQLConnection = ##class(AXimpl.SqlQueryConnection).%New()
 	try {
+		Do ..Logger.Info("Start","Synchronisatie IDENTNummers voor Objective")
+		
+		Do ..OBJTIdentNrMappingRepository.ZetAlleOngeldig()
+		
+		Do ..Logger.Info("markeren ongeldig ok")
+		
 		#dim ResultSetIterator as TECH.ResultSetIterator
 		#dim ResultSet as TECH.ResultSet
 		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
 			set rs = ResultSetIterator.Next()
 			#dim OBJTIdentNrMapping as OBJTimpl.PM.OBJTIdentNrMapping 
-			Set OBJTIdentNrMapping = ..OBJTIdentNrMappingRepository.Maak(rs.GetDataByName("itemid"),rs.GetDataByName("aduobjitemid"))
+			Set OBJTIdentNrMapping = ..OBJTIdentNrMappingRepository.MaakOfUpdate(rs.GetDataByName("itemid"),rs.GetDataByName("aduobjitemid"))
 			Do ..OBJTIdentNrMappingRepository.Bewaar(OBJTIdentNrMapping)
 		}
+		
+		Do ..Logger.Info("Maken/updates  ok")
+		
+		Do ..OBJTIdentNrMappingRepository.VerwijderAlleOngeldig()
+		
+		Do ..Logger.Info("Verwijderen ok")
+
+		Do ..Logger.Info("Einde")
+		
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ..Logger.Error(..%ClassName(1),"Fout bij het (her)initialiseren van de IdentNr lookup cache voor Objective, zie bijkomende exceptie in de log",$$$true)
Index: OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml
===================================================================
diff -u -r66565 -r66599
--- OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml	(.../OBJTIdentNrMappingRepository.cls.xml)	(revision 66565)
+++ OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml	(.../OBJTIdentNrMappingRepository.cls.xml)	(revision 66599)
@@ -8,17 +8,40 @@
 <Default>OBJTimpl.PM.OBJTIdentNrMapping</Default>
 </Parameter>
 
-<Method name="Maak">
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI="",Logger:vhLib.Logger=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(Gateway,QueryAPI)
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfUpdate">
 <FormalSpec>ItemID:%String,ADUOBJItemID:%String</FormalSpec>
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[
-	Set OBJTIdentNrMapping = ##class(OBJTimpl.PM.OBJTIdentNrMapping).%New()
+	If ..BestaatViaItemID(ItemID) {
+		#dim OBJTIdentNrMapping as OBJTimpl.PM.OBJTIdentNrMapping = ..GeefViaItemID(ItemID)
+	} else {
+		Do ..Logger.Info("Maak",ItemID)
+		Set OBJTIdentNrMapping = ##class(OBJTimpl.PM.OBJTIdentNrMapping).%New()
+	}
 	Set OBJTIdentNrMapping.OBJTItemID = ADUOBJItemID
 	Set OBJTIdentNrMapping.ItemID = ItemID
+	Set OBJTIdentNrMapping.Geldig = $$$True
 	
 	Set PRNr=$P($G(^KPR2($TR(ItemID,".")_" ")),"\")
 	Do:PRNr OBJTIdentNrMapping.ProductSetObjectId(PRNr)
-	w "+"
 	Quit OBJTIdentNrMapping
 ]]></Implementation>
 </Method>
@@ -48,6 +71,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetAlleOngeldig">
+<Implementation><![CDATA[
+	#Dim iterator as TECH.Iterator = ..ZoekAlle()
+	while iterator.HasNext(){
+		#Dim Mapping as OBJTimpl.PM.OBJTIdentNrMapping = iterator.Next()
+		Set Mapping.Geldig = $$$False
+		Do ..Bewaar(Mapping)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderAlleOngeldig">
+<Implementation><![CDATA[
+	#Dim iterator as TECH.Iterator = ..ZoekAlle()
+	while iterator.HasNext(){
+		#Dim Mapping as OBJTimpl.PM.OBJTIdentNrMapping = iterator.Next()
+		If $$$Not(Mapping.Geldig) {
+			Do ..Logger.Info("Verwijder", Mapping.ItemID)
+			Do ..VerwijderViaID(Mapping.GeefID())
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefAdminItemIDs">
 <FormalSpec>OBJTItemID:%String</FormalSpec>
 <ReturnType>%ResultSet</ReturnType>