Index: TECH/Events/KlantEventData.cls.xml
===================================================================
diff -u -r9 -r254
--- TECH/Events/KlantEventData.cls.xml	(.../KlantEventData.cls.xml)	(revision 9)
+++ TECH/Events/KlantEventData.cls.xml	(.../KlantEventData.cls.xml)	(revision 254)
@@ -20,6 +20,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..KlantNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(..KlantNr)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>KlantEventDataState</State>