Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58338 -r58390
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58338)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58390)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Halux.AAP.DnaCodeService">
-<Super>TECH.RegisteredObject</Super>
+<Super>WS.Halux.AAP.DnaCodeService,TECH.RegisteredObject</Super>
 
 <Property name="HeaderValidator">
 <Type>WSimpl.Halux.AAP.HeaderValidator</Type>
@@ -369,6 +369,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDirecteLevering">
+<FormalSpec>DirecteLeveringRequest:WS.Halux.AAP.DirecteLeveringRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.DirecteLeveringResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.DirecteLeveringResponse).%New()
+	Set Response.IsDirecteLevering = $$$Not($$$HasLength(##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(DirecteLeveringRequest.Toelevering)))
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletCodeVanDnaCode">
 <FormalSpec>DnaCode:%String</FormalSpec>
 <Private>1</Private>