Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r56819 -r56829
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 56819)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 56829)
@@ -149,12 +149,14 @@
 	. . ; 4 : Qty
 	. . ; 5 : NettoDim
 	. . ; 6 : IsWerkVloer
-	. . Set $P(Lijst($I(Lijst)),D,2)=HalfFormat ; Eerste steeds leeg
-	. . ; 10 : TOENr
-	. . ; 11 : DossierID
-	. . ; 12 : Qty
-	. . ; 13 : NettoDim
-	. . Set $P(Lijst(Lijst),D,10)=EindFormat  
+	. . If (HalfFormat'="") {
+	. . 	Set $P(Lijst($I(Lijst)),D,2)=HalfFormat ; Eerste steeds leeg
+	. . 	; 10 : TOENr
+	. . 	; 11 : DossierID
+	. . 	; 12 : Qty
+	. . 	; 13 : NettoDim
+	. . 	Set $P(Lijst(Lijst),D,10)=EindFormat  
+	. . }
 	. . Set:'Reverse HalfFormat=""
 	. . Set:Reverse EindFormat=""
 	. . Set SubLijnNr = SubLijnNr + 1