Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r33473 -r37908
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33473)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37908)
@@ -66,6 +66,18 @@
 	Quit ##class(TECH.DynamicIterator).%New(Toelevering.GeefProductLijnIterator(),"Item.GeefProductID()","Item.%Extends(""DOM.AKP.ProductToeleveringLijn"")=1")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefColliDragerType">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>DOM.VKP.enu.ColliDragerType</ReturnType>
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
+	#dim OrderID As %String = Toelevering.GeefOrderID()
+	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
+	
+	Quit Order.GeefColliDragerType()
+]]></Implementation>
+</Method>
 </Class>