Index: BL/Etiket/VHoss2D.cls.xml
===================================================================
diff -u -r2037 -r2079
--- BL/Etiket/VHoss2D.cls.xml	(.../VHoss2D.cls.xml)	(revision 2037)
+++ BL/Etiket/VHoss2D.cls.xml	(.../VHoss2D.cls.xml)	(revision 2079)
@@ -30,6 +30,13 @@
 		
 		/// VHossID uitschrijven
 		Write VHossID,$C(9)
+		
+		/// Zijkant vertalen
+		Set Zijkant = ""
+		If (..VHossZijkant = 1) { Set Zijkant = "A" }
+		ElseIf (..VHossZijkant = 2) { Set Zijkant = "B" }		
+		
+		Write Zijkant,$C(9)
 		Write $C(13,10)
 		
 		Quit $$$OK