Index: PRODUKT2.mac.rou
===================================================================
diff -u -r47313 -r57180
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 47313)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 57180)
@@ -34,13 +34,10 @@
  .For  Set KLNr=$O(^PAKKET("IP",PRNr,KLNr)) Quit:KLNr=""  Set List=List_","_KLNr
  .;Set $E(List,1)="Dit produkt is vervat in pakket(ten) : "
  If What["U" Do  If $L(List) Quit "Er zijn nog uitlevering(en) : "_$E(List,2,42)
- .Set List=""
- .Set (KLNr,ULNr)=1
- .For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do
- ..For  Set ULNr=$O(^KUL(KLNr,"F",ULNr)) Quit:ULNr=""  Do
- ...Set Lijn=99
- ...For  Set Lijn=$O(^KUL(KLNr,"F",ULNr,Lijn)) Quit:'Lijn  Do
- ....Set:$P(^KUL(KLNr,"F",ULNr,Lijn),D,2)=PRNr List=List_","_ULNr,Lijn=9999
+ .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
  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"