Index: EWPAL.mac.rou
===================================================================
diff -u -r68860 -r74977
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 68860)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 74977)
@@ -618,8 +618,7 @@
  . . If $P(Rec,D,16)="" Do ; geen transloc
  . . . Set $P(Rec,D,16)=$E(100+$P(Rec,D,5),2,3)_" "_$E(100+$P(Rec,D,6),2,3)_" "_$E(100+$P(Rec,D,7),2,3)
  . Set ^HULP(%J,I)=Rec
-  Do FETCHOBJT(PRNr,%J)
- 
+ Do:blOBJT.VoorraadSync(PRNr,"VHBE") FETCHOBJT(PRNr,%J) 
  Quit
  
 FETCHOBJT(PRNr,%J)