Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r37908 -r37924
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37908)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37924)
@@ -69,15 +69,27 @@
 
 <Method name="GeefColliDragerType">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
-<ReturnType>DOM.VKP.enu.ColliDragerType</ReturnType>
+<ReturnType>%String</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()
+	If ..IsDHLVerzendingWijze(Order) {
+		Quit "WEGWERPPALLET"
+	} Else {
+		Quit ""
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="IsDHLVerzendingWijze">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Extract(Order.GeefVerzendingWijze(),1,1)="E")
+]]></Implementation>
+</Method>
 </Class>