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