Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r60828 -r61148
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 60828)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 61148)
@@ -130,11 +130,19 @@
 </Method>
 
 <Method name="GeefVerzendwijze">
-<ReturnType>DOM.VKP.enu.VerzendWijze</ReturnType>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $P($P(..NodeHoofding,"\",7),"#")
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerzendwijzeID">
+<ReturnType>DOM.VKP.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[
+	#dim Verzendwijze As %String = ..GeefVerzendwijze()
+	Quit $P($P(Verzendwijze,";"),"`")
+]]></Implementation>
+</Method>
+
 <Method name="GeefGewichtInGram">
 <ReturnType>%Double</ReturnType>
 <Implementation><![CDATA[	Quit $P($P(..NodeHoofding,"\",13),"#",3)*1000