Index: PRODUKT4.mac.rou
===================================================================
diff -u -r54047 -r73709
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 54047)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 73709)
@@ -99,8 +99,8 @@
  Set MPRNr=""
  Set U2=""
  Set (TotaalH,TotaalK)=0
- For  Set MPRNr=$O(^PRBS("IP",PRNr,MPRNr)) Quit:MPRNr=""  Do
- . Quit:'$D(^TO("IP",MPRNr)) ; Moederproduct niet in order
+ For  Set MPRNr=$O(^TO("IP",MPRNr)) Quit:MPRNr=""  Do  ;loop over moederproducten in toeleveringen
+ . Quit:'$D(^PRBS("IP",PRNr,MPRNr)) ;Moederproduct bevat bouwsteen niet  
  . Set (FaktorH,FaktorK)=0
  . Set BSKey=""
  . For  Set BSKey=$O(^PRBS("IP",PRNr,MPRNr,BSKey)) Quit:BSKey=""  Do  ;indien een product meerdere keren voorkomt in een moederproduct