Index: cwCW.mac.rou
===================================================================
diff -u -r734 -r1419
--- cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 734)
+++ cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1419)
@@ -1,6 +1,29 @@
 cwCW ; Routines speciaal Chris Willems
  Quit
  
+ ;
+bs
+ New MPRNr,MCount
+ Set MPRNr="",MCount=0
+ For  Set MPRNr=$O(^PRBS("BS",MPRNr)) Quit:MPRNr=""  Do
+ . Set MCount=MCount+1
+ . If '(MCount#100) Write !,$J(MCount,6)," producten verwerkt"
+ . Do bso(MPRNr)
+ Do BLDALL^PRBS
+ Quit
+ ;
+bso(MPRNr)
+ New BSKeyPROD,BSKeyKIND
+ Set BSKeyPROD="PROD"
+ For  Set BSKeyPROD=$O(^PRBS("BS",MPRNr,BSKeyPROD)) Quit:$E(BSKeyPROD,1,4)'="PROD"  Do
+ . Set BSKeyKIND="KIND.999",BSKeyKIND=$O(^PRBS("BS",MPRNr,BSKeyKIND),-1)
+ . If $E(BSKeyKIND,1,4)="KIND" Set $P(BSKeyKIND,".",2)=$TR($J($P(BSKeyKIND,".",2)+1,3)," ",0)
+ . Else  Set BSKeyKIND="KIND.001"
+ . Set ^PRBS("BS",MPRNr,BSKeyKIND)=^PRBS("BS",MPRNr,BSKeyPROD)
+ . Kill ^PRBS("BS",MPRNr,BSKeyPROD)
+ Quit
+ ;
+ 
 ConvertKlantActiviteit
  New R,KlKey
  Set KlKey=0
Index: PRBS.mac.rou
===================================================================
diff -u -r1134 -r1419
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1134)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1419)
@@ -166,10 +166,10 @@
  .Set BSCode=BSDefCod
  Else  Do  Quit:BSCode=""
  .Set BSCode=$$PI^vhPOPUP("C;C","BKO1-","Bouwsteen",BSPopGrp,BSPopNm)
- Set BSKey=$$DEFBSKEY(BSCode)
+ Set BSKey=$$DEFBSKEY($S(BSCode="PROD":"KIND",BSCode="�INK":"KIND",BSCode="�EXP":"KIND",1:BSCode))
  ; Controle uniciteit
  If BSKey="" Do WARN^vhTXTPOP("De code "_BSCode_" mag maar 1 keer gebruikt worden") Quit
- Set SchermNm="PRBSDTL"_$$SCRNTYP(BSKey)
+ Set SchermNm="PRBSDTL"_$$SCRNTYP($S(BSCode="PROD":"PROD",BSCode="�INK":"PROD",BSCode="�EXP":"PROD",1:BSKey))
  Do NIEUW^vhScherm(SchermNm,,,,,,3)
  If %SC Do  ; Type van 
  . Set BSSelect=BSKey