Index: DCPROD.mac.rou
===================================================================
diff -u -r2185 -r2385
--- DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 2185)
+++ DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 2385)
@@ -193,7 +193,7 @@
  Set BSKey=""
  For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
  . Set R=^PRBS("BS",PRNr,BSKey),KPRNr=$P(R,D),BSAantal=$p(R,D,2)
- . Quit:'KPRNr
+ . Quit:'KPRNr  Quit:'BSAantal
  . Set SortKey=$$SORTKEY^PRODUKT(KPRNr)_BSKey,Sort(SortKey)=KPRNr_D_BSAantal
  Set BSKey=""
  For  Set BSKey=$O(Sort(BSKey)) Quit:BSKey=""  Do