Index: PRFUSIE.mac.rou
===================================================================
diff -u -r762 -r2124
--- PRFUSIE.mac.rou	(.../PRFUSIE.mac.rou)	(revision 762)
+++ PRFUSIE.mac.rou	(.../PRFUSIE.mac.rou)	(revision 2124)
@@ -202,7 +202,7 @@
  
  ; Fusie van de moeders met hun basis bij het verwijderen van een der kinderen
 OnDeleteProduct(PRNr)
- New %J,MPRNr,GenPRNr,Fusie,VAN,NAAR,NoAsk,NoDel,NoPakket,Count,Max,PRCount,MaxPRCount
+ New %J,MPRNr,BSMPRNr,GenPRNr,Fusie,VAN,NAAR,NoAsk,NoDel,NoPakket,Count,Max,PRCount,MaxPRCount
  Set MPRNr="",Max=500,MaxPRCount=0
  For  Set MPRNr=$O(^PRBS("IP",PRNr,MPRNr)) Quit:MPRNr=""  Do
  . Set GenPRNr=$P($G(^KPR(MPRNr,0)),D,3)
@@ -222,11 +222,15 @@
  . . . Write @F,"Producten verwerkt: ",PRCount,"/",MaxPRCount
  . . . ; Per Max uitvoeren van de fusie
  . . . Do FUSIE^PRFUSIE2
+ . . . Set BSMPRNr=""
+ . . . For  Set BSMPRNr=$O(VAN(BSMPRNr)) Quit:BSMPRNr=""  Do BLDIND^PRBS(BSMPRNr)
  . . . Kill VAN,^HULP(%J)
  . . . Set Count=0
  . . Do:$D(VAN)
  . . . Set FP=2449
  . . . Write @F,"Producten verwerkt: ",PRCount,"/",MaxPRCount
  . . . Do FUSIE^PRFUSIE2
+ . . . Set BSMPRNr=""
+ . . . For  Set BSMPRNr=$O(VAN(BSMPRNr)) Quit:BSMPRNr=""  Do BLDIND^PRBS(BSMPRNr)
  . Kill ^HULP(%J)
  Quit
\ No newline at end of file