Index: BLPROD.mac.rou
===================================================================
diff -u -r922 -r1450
--- BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 922)
+++ BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 1450)
@@ -187,16 +187,17 @@
  Quit:'$D(^BLProd("D",BLID)) ""
  Quit BLID
  
-GETVH(BLID,BLKLNr) 
+GETVH(BLID,BLKLNr)
  New IList,II,I,VHKLKNr
  Set BLID=$TR(BLID,".","")
  Set:$L(BLID)>7 $E(BLID)=""
+ Set:$L(BLID)<7 BLID=$TR($J(BLID,7)," ","0")
  Set BLID=BLID_" "
  Set BLKLNr=$G(BLKLNr)
  Set:BLKLNr VHKLNr=+$P($G(^BLBeri("K",BLKLNr)),D,3)
- //Set:BLKLNr IList=$P($G(^BLBeri("K",BLKLNr)),D,5)
- //IF '$L($G(IList)) 
- set IList="0;1;2;3;4;5;8" FOR CH=65:1:90 Set IList=IList_";"_$Char(CH)  ;[IDENT] JCL  A..Z
+ Set:BLKLNr IList=$P($G(^BLBeri("K",BLKLNr)),D,5)
+ If '$L($G(IList)) set IList="0;1;2;3;4;5;8" 
+ If (IList["1;2;3;4;5") FOR CH=65:1:90 Set IList=IList_";"_$Char(CH)  ;[IDENT] JCL  A..Z
  Set PRNr=""
  ; Produkt nemen volgens de externe specificaties opgeslagen in ^PRPUTZ
  If BLKLNr For II=1:1:$L(IList,";") Quit:PRNr  Do