Index: PRODUKT2.mac.rou
===================================================================
diff -u -r2589 -r2612
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 2589)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 2612)
@@ -174,8 +174,8 @@
  . For I="I","J" Set Key=$O(^KPR(PRNr,I)) Set:$D(Key(I)) ^KPRO(PRNr,Key)=Key(I),^KPRO(PRNr,I)=""
  . Set $P(^KPRO(PRNr,2),D,17)="X;"_(+$H) ; Timestamp
  . ; Bouwstenen
- . Merge ^PRBS("BSO",PRNr)=^PRBS("BS",PRNr) ; Bouwstenen
- . Set:$D(^PRBS("BSO",PRNr)) $P(^PRBS("BSO",PRNr),D,10)=+$H ; Timestamp
+ . For BSNode="BS","BSS" Do
+ . . Merge:$D(^PRBS(BSNode,PRNr)) ^PRBSH(BSNode,PRNr,$H)=^PRBS(BSNode,PRNr) ; Historiek bijhouden
  . ; Halux definitie
  . Merge ^HADPR("PO",PRNr)=^HADPR("P",PRNr) ; Halux def
  ; Verwijderen nieuwe log
@@ -731,6 +731,7 @@
  Set:KortT?1"T51.76".E Is=1
  Set:Is Is=$$LEVNR(PRNr)=5005
  Quit Is
+ 
  ;
  ; Is maatwerk product
 IsMaatWerk(PRNr)