Index: PRODUKT2.mac.rou
===================================================================
diff -u -r57180 -r57194
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 57180)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 57194)
@@ -36,8 +36,8 @@
  If What["U" Do  If $L(List) Quit "Er zijn nog uitlevering(en) : "_$E(List,2,42)
  .Set (List,ULNr)=""
  .For  Set ULNr=$O(^BON("IP",PRNr,ULNr)) Quit:ULNr=""  Do
- ..Set KLNr=$P(^KU1(ULNr,"F"),"\")
- ..Set:($D(^KUL(KLNr,"F",ULNr))) List=List_","_ULNr
+ ..Set KLNr=$P($G(^KU1(ULNr,"F")),"\")
+ ..Set:((KLNr'="")&&($D(^KUL(KLNr,"F",ULNr)))) List=List_","_ULNr
  If What["Z" Do  If $L(List) Quit "Er zijn nog uitzonderingen : "_$E(List,2,42)
  .Set List=""
  .set I=$O(^KPR(PRNr,"I")) Quit:$E(I)'="I"