Index: APPS/PM/OL/ZoektermLogItem.cls.xml
===================================================================
diff -u -r734 -r872
--- APPS/PM/OL/ZoektermLogItem.cls.xml	(.../ZoektermLogItem.cls.xml)	(revision 734)
+++ APPS/PM/OL/ZoektermLogItem.cls.xml	(.../ZoektermLogItem.cls.xml)	(revision 872)
@@ -1,12 +1,22 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:47">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-11 14:14:30">
 <Class name="APPS.PM.OL.ZoektermLogItem">
 <ClassType>persistent</ClassType>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62094,31609.540687</TimeChanged>
+<TimeChanged>62133,51321.725497</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Index name="MainIndex">
+<IdKey>1</IdKey>
+<Properties>Identifier</Properties>
+</Index>
+
+<Property name="Identifier">
+<Type>%String</Type>
+</Property>
+
 <Property name="Zoekterm">
 <Type>%String</Type>
 </Property>
@@ -25,13 +35,26 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	
+	Set ..Identifier = $$$Server_"_"_$$$NSpace_"_"_..GetUniqueNr()
 	Set ..Zoekterm = Zoekterm
 	Set ..IsHerkendAlsAlias = IsHerkendAlsAlias
 	Set ..Tijd = $zdt(Tijd,3)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GetUniqueNr">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Lock +^APPS.PM.OL.ZoektermLogItemD
+	set result = $increment(^APPS.PM.OL.ZoektermLogItemD)
+	Lock -^APPS.PM.OL.ZoektermLogItemD 
+	quit result
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.PM.OL.ZoektermLogItemD</DataLocation>
@@ -55,5 +78,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="3361323104"/>
+<Checksum value="492284974"/>
 </Export>