Index: BL/MB/UGLYPicking/Locations.cls.xml
===================================================================
diff -u -r54175 -r60693
--- BL/MB/UGLYPicking/Locations.cls.xml	(.../Locations.cls.xml)	(revision 54175)
+++ BL/MB/UGLYPicking/Locations.cls.xml	(.../Locations.cls.xml)	(revision 60693)
@@ -357,6 +357,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AddHal7">
+<Description>
+D ##class(BL.MB.UGLYPicking.Locations).Instantiate(0,0).AddHal7()</Description>
+<Implementation><![CDATA[
+	; HAL 1 : ORGALUX
+	Do ..InitMag(3,0,7) ;WMSMag=2, TransBuilding=0, TransHal=1
+	
+	Do ..InitGang(25,"K")
+	Do ..CreateLocs(65,65,65,3,1,9,9,"A") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+
+	Do ..PrintLabels()
+]]></Implementation>
+</Method>
+
 <Method name="AddHal6">
 <Description>
 D ##class(BL.MB.UGLYPicking.Locations).Instantiate(0,0).AddHal6()