Index: FLOWORD7.mac.rou
===================================================================
diff -u -r44496 -r47594
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 44496)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 47594)
@@ -343,6 +343,8 @@
  . Set R=^PRBS("BS",PRNr,BSKey)
  . Set BSPRNr=$P(R,D)
  . Quit:'BSPRNr
+ . Set BSCode=$P(R,D,11)
+ . Quit:( ("�INK"=BSCode) || ("�EXP"=BSCode) )
  . Set BSAantal=$P(R,D,2),BSType=$P(R,D,3)
  . If 'InclVerpak,$$IsVerpakking^PRODUKT2(BSPRNr) Quit
  . Set Dimensie=$G(^PRBS("BS",PRNr,BSKey,"D"))
@@ -595,4 +597,3 @@
  
 
 
-