Index: HATBXLeanLijst.mac.rou
===================================================================
diff -u -r29059 -r40526
--- HATBXLeanLijst.mac.rou	(.../HATBXLeanLijst.mac.rou)	(revision 29059)
+++ HATBXLeanLijst.mac.rou	(.../HATBXLeanLijst.mac.rou)	(revision 40526)
@@ -65,7 +65,7 @@
 	Set Dat=""
 	Kill List
 	For  Set Dat=$O(Sum(Dat),-1) Quit:Dat=""  Do
-	. Set Rec=Dat_"\"_Sum(Dat)
+	. Set Rec=Dat_"\"_$G(Sum(Dat))
 	. Set Verpak=""
 	. For  Set Verpak=$O(Sum(Dat,Verpak)) Quit:Verpak=""  Do
 	. . Set VerpakPos=$Case(Verpak,"V1":1,"Procom":2,"Probox":3,"VHoss":4,"Pallet":5,:6)+2
@@ -138,3 +138,4 @@
 	. . Write !
 	Do CLOSE^vhDEV(Dev)
 
+