Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r38999 -r49602
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 38999)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 49602)
@@ -148,7 +148,10 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	/// Controle of er vervallen facturen zijn
+	New D,R,Dubieus,KredietWaardig
 	Set D="\"
+	Set R=^KKL(^KK1(KLNr),3),Dubieus=$P(R,"\",8) 
+	Quit:Dubieus 0
 	Set KredietWaardig=$$WAARDIG^KREDIET(KLNr,"D")
 	Quit $P(KredietWaardig,"\")
 ]]></Implementation>