Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r38234 -r38943
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 38234)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 38943)
@@ -76,7 +76,7 @@
 <FormalSpec>TOENr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	q ""
+	;q "N/Yet"
 	Set KLNr=$P($G(^KTO($$$LevHalux,TOENr,1)),"\",8)
 	Quit:'KLNr "GEEN KLANT IN TOELEVERING"
 	Set ORDNr=$P($G(^KTO($$$LevHalux,TOENr,1)),"\",7)
@@ -138,8 +138,10 @@
 <Method name="ControleerKredietWaardig">
 <FormalSpec>KLNr:%String</FormalSpec>
 <Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	/// Controle of er vervallen facturen zijn
+	Set D="\"
 	Set KredietWaardig=$$WAARDIG^KREDIET(KLNr,"D")
 	Quit $P(KredietWaardig,"\")
 ]]></Implementation>