Index: PRBSC.mac.rou
===================================================================
diff -u -r44645 -r65229
--- PRBSC.mac.rou	(.../PRBSC.mac.rou)	(revision 44645)
+++ PRBSC.mac.rou	(.../PRBSC.mac.rou)	(revision 65229)
@@ -69,6 +69,7 @@
  Set KPRNr=""
  For  Set KPRNr=$O(PRLijst(KPRNr)) Quit:KPRNr=""  Do
  . Set MPRNr=""
+ . Do ##class(vhLib.Logger).%New("").Info("Wijzigen actieve bouwstenen","Van product: '"_KPRNr_"' naar product: '"_PRLijst(KPRNr)_"'")
  . For  Set MPRNr=$O(^PRBS("IP",KPRNr,MPRNr)) Quit:MPRNr=""  Do
  . . If '$$CheckChange(MPRNr,KPRNr) Quit
  . . If $L($G(LimKleur)) Quit:$E($P(^KPR(MPRNr,0),D),24,25)'=LimKleur
@@ -91,6 +92,7 @@
  . . Do UNLOCK^PRBS(MPRNr)
  .
  . Set MPRNr=""
+ . Do ##class(vhLib.Logger).%New("").Info("Wijzigen schaduwbouwstenen","Van product: '"_KPRNr_"' naar product: '"_PRLijst(KPRNr)_"'")
  . For  Set MPRNr=$O(^PRBS("IPS",KPRNr,MPRNr)) Quit:MPRNr=""  Do
  . . If '$$CheckChange(MPRNr,KPRNr) Quit
  . . If $L($G(LimKleur)) Quit:$E($P(^KPR(MPRNr,0),D),24,25)'=LimKleur
@@ -105,6 +107,7 @@
  . . . Set ^HULP(%J,"C",BSCode)=BSRec
  . . Do SAVE^PRBS(MPRNr,"S")
  . . Do UNLOCK^PRBS(MPRNr)
+ . Do ##class(vhLib.Logger).%New("").Info("Wijzigen actieve bouwstenen","Einde wijzigingen bouwstenen en schaduwbouwstenen voor kindproduct '"_KPRNr_"'")
  Read !,"Einde (Druk op ENTER)",K
  Quit