Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r20080 -r38234
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 20080)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 38234)
@@ -1398,6 +1398,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDirectLevering">
+<Description>
+Controle of de Toelevering onmiddellijk op de GLS vrachtwagen kan geplaatst worden.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>bfrRGID:%Library.String,bfrVolgNr:%Library.String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Boolean</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+	Set AssocToelevering=..GetCommonAssocToelev(bfrRGID , bfrVolgNr)
+	If AssocToelevering { 
+		Set IsDirectLevering= ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(AssocToelevering)=""
+	} Else { 
+		Set IsDirectLevering=0
+	}
+	Quit IsDirectLevering
+]]></Implementation>
+</Method>
+
 <Method name="IsProdWithLocAndPalInBuffer">
 <Description>
 Geeft LijnNr terug bij overeenkomst