Index: FLOWORD5.mac.rou
===================================================================
diff -u -r948 -r1024
--- FLOWORD5.mac.rou	(.../FLOWORD5.mac.rou)	(revision 948)
+++ FLOWORD5.mac.rou	(.../FLOWORD5.mac.rou)	(revision 1024)
@@ -294,6 +294,17 @@
  . Set BevatTBXComPal="ABPCO"[$E(KortTekst,20)
  Quit BevatTBXComPal
  ;
+ ; Bevat dit order Niet-stock producten?
+BevatNietStock(ORDNr) 
+ New R,KLNr,BevatNietStock,OLNr,PRNr
+ Set BevatNietStock=0,KLNr=$P(^KO1(ORDNr,"F"),D),OLNr=100
+ For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:'OLNr  Do  Quit:BevatNietStock
+ . Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2)
+ . Quit:'PRNr
+ . Set BevatNietStock='$P(^KPR(PRNr,1),D,20)
+ Quit BevatNietStock
+ ;
+ ; Order voor consument?
 CheckConsument(ORDNr,IsAfhaling)
  New Check,KLNr,IsConsument,VerzendWijze
  Set Check=0