Index: BL/MB/UGLYPicking/Locations.cls.xml
===================================================================
diff -u -r31855 -r54175
--- BL/MB/UGLYPicking/Locations.cls.xml	(.../Locations.cls.xml)	(revision 31855)
+++ BL/MB/UGLYPicking/Locations.cls.xml	(.../Locations.cls.xml)	(revision 54175)
@@ -97,7 +97,8 @@
 
 <Method name="Translate">
 <Description>
-D ClassMethod^vhLib("BL.MB.UGLYPicking.Locations","Translate",0)</Description>
+D ClassMethod^vhLib("BL.MB.UGLYPicking.Locations","Translate",0)
+Toont de LocatieCode voor LocatieId, of omgekeerd. En laat toe om reketiket te printen.</Description>
 <ClassMethod>1</ClassMethod>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
@@ -118,7 +119,7 @@
 	. Write !,"Van EWMS naar Fysisch"
 	. Write !,"   EWMS locatie     : ",Locatie
 	. Write !,"   Fysische locatie : ",LocTrans
-	Read !!,"druk op <enter> om verder te gaan",K
+	Read !!,"druk op <enter> om verder te gaan, op P om etiket te printen voor deze locatie",K
 	
 	If $E($zcvt(K,"U"))="P" Do
 	. Set bl=..Instantiate(0,1)
@@ -132,8 +133,9 @@
 Instantiatie kan in meerdere modes:
 CreateMag : Creatie van de location, channel en transloc tabellen
    indien CreateMag=2 dan worden de locations verwijderd ook al zijn ze gekoppeld aan een een pallet
-   indien CreateMag=1 dan worden de locatins verwijderd alleen verwijders als ze niet gekoppeld zijn
-CreateLabel : Creatie van de labels</Description>
+   indien CreateMag=1 dan worden de locations alleen verwijderd als ze niet gekoppeld zijn
+	   indien createMag=0 dan worden de locations enkel getoond op het scherm, en gebeurt er geen wijziging in de databank.
+CreateLabel : Creatie van de labels (boolean: 0=false; 1=true).</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>CreateMag,CreateLabel</FormalSpec>
 <Implementation><![CDATA[
@@ -175,18 +177,199 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AddHal6">
+<Method name="Voorbeeld query om in de 3 relevante tabellen apart op te schuiven">
+<Implementation><![CDATA[
+	/*
+-- TRANSLOC
+SELECT *
+FROM [dbo].[TransLoc] T
+-- BEGIN TRAN; UPDATE [dbo].[TransLoc] SET Loc_x=Loc_x+2
+WHERE -- T.Loc_Trans like '01D24%'
+-- AND 
+loc_m = 2
+AND loc_g = 1 -- Beperken op records met G=1 (?)
+AND loc_x >= 32
+-- ORDER BY Loc_Trans
+
+SELECT * FROM [dbo].[TransLoc] T WHERE loc_m = 2 AND loc_g = 1 AND loc_x >= 32 ORDER BY Loc_Trans
+
+ROLLBACK
+-- COMMIT
+
+-- CHANNELS
+SELECT *
+FROM [dbo].[channel]
+-- BEGIN TRAN; UPDATE [dbo].[channel] SET Loc_x=Loc_x+2
+WHERE -- Loc_Trans like '01D24%'
+-- AND 
+loc_m = 2
+AND loc_g = 1 -- Beperken op records met G=1 (?)
+AND loc_x >= 32
+-- ORDER BY Loc_Trans
+
+SELECT * FROM [dbo].[channel] T WHERE loc_m = 2 AND loc_g = 1 AND loc_x >= 32 ORDER BY loc_m, loc_g, LOC_X, loc_y
+
+ROLLBACK
+-- COMMIT
+
+-- LOCATION
+SELECT *
+FROM [dbo].[locations]
+-- BEGIN TRAN; UPDATE [dbo].[locations] SET Loc_x=Loc_x+2
+WHERE -- Loc_Trans like '01D24%'
+-- AND 
+loc_m = 2
+AND loc_g = 1 -- Beperken op records met G=1 (?)
+AND loc_x >= 32
+-- ORDER BY Loc_Trans
+
+SELECT * FROM [dbo].[locations] T WHERE loc_m = 2 AND loc_g = 1 AND loc_x >= 32 ORDER BY loc_m, loc_g, LOC_X, loc_y
+
+ROLLBACK
+-- COMMIT
+
+-- MANIER OM NA TE GAAN OF HET JUISTE AANTAL RECORDS IS TOEGEVOEGD: DOOR VOOR EN NA DE WIJZIGING DE AANTALLEN HIERVAN TE VERGELIJKEN:
+select * from dbo.transloc where loc_trans like '01D%'
+select * from dbo.transloc where loc_m=2
+select * from dbo.locations where loc_m=2 and (loc_g=1 or loc_g=14)
+select * from dbo.channel where loc_m=2 and (loc_g=1 or loc_g=14)
+*/
+]]></Implementation>
+</Method>
+
+<Method name="AddBalikoPlaatsenx2018x11x16">
 <Description>
-D ##class(BL.MB.UGLYPicking.Locations).Instantiate(0,0).AddHal6()</Description>
+D ##class(BL.MB.UGLYPicking.Locations).Instantiate(0,0).AddBalikoPlaatsenx2018x11x16()
+</Description>
 <Implementation><![CDATA[
+	/*  EERSTE STAP: VANAF 01D24 MOET ALLES 2 POSITIES OPSCHUIVEN, OMDAT 01D23G EN 01D23H ERBIJ MOETEN KOMEN:
+BEGIN TRAN; UPDATE [dbo].[TransLoc] SET Loc_x=Loc_x+2
+WHERE  
+loc_m = 2
+AND loc_g = 1 
+AND loc_x >= 32
+
+UPDATE [dbo].[channel] SET Loc_x=Loc_x+2
+WHERE 
+loc_m = 2
+AND loc_g = 1 
+AND loc_x >= 32
+
+UPDATE [dbo].[locations] SET Loc_x=Loc_x+2
+WHERE  
+loc_m = 2
+AND loc_g = 1 
+AND loc_x >= 32
+
+ROLLBACK
+-- COMMIT
+	*/
+
+	
 	; HAL 1 : ORGALUX
-	Do ..InitMag(2,0,6) ;WMSMag=2, TransBuilding=0, TransHal=1
+	Do ..InitMag(2,0,1) ;WMSMag=2 (=ugly), TransBuilding=0 (=, TransHal=1
 	
-	Do ..InitGang(12,"G")
-	Do ..CreateLocs(41,1,9,3,1,1,5) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	Do ..InitGang(13,"H")
-	Do ..CreateLocs(41,1,9,3,1,1,5) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..InitGang(1,"D")
 	
+	// LET OP: DIT MOET NA DE "VERSCHUIVING"-SQL UITGEVOERD WORDEN.
+	// 01D30D01..04:
+	Do ..CreateLocs(64 /*=30A*/,30,30,5,1,1,4,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	
+	// 01D30E01..04:
+	Do ..CreateLocs(64,30,30,5,1,1,4,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	
+	// 01D30A06, 01D30B06, 01D30C06:
+	Do ..CreateLocs(64,30,30,3,1,6,6) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+
+
+	// 01D29A06, 01D29B06, 01D29C06:
+	Do ..CreateLocs(61,29,29,3,1,6,6) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+
+	// 01D29D04, 01D29E04 
+	Do ..InitGang(14,"D")
+	Do ..CreateLocs(44 /* 44=47-3. D is het eerste vak van 01D29 in locG=14, en heeft locX=47.*/ ,29,29,5,1,4,4,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(44 /* 44=47-3.*/ ,29,29,5,1,4,4,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	// DEZE MOETEN WE IN ACCEPT GOED TESTEN: KOMT 01D29D04 WEL DEGELIJK OP LOCX=47, EN 01D29E04 WEL DEGELIJK OP LOCX=48?
+	Do ..InitGang(1,"D")
+	
+
+	// 01D28A06, 01D28B06, 01D28C06:
+	Do ..CreateLocs(57,28,28,3,1,6,6) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	
+		// 01D28D04, 01D28E04 
+	Do ..CreateLocs(57,28,28,5,1,4,4,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..InitGang(14,"D")
+	Do ..CreateLocs(50 /*50=54-4*/ ,28,28,5,1,4,4,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..InitGang(1,"D")
+	
+	
+	// 01D27A06, 01D27B06, 01D27C06:
+	Do ..CreateLocs(53,27,27,3,1,6,6) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	
+		// 01D27D04, 01D27E04 
+	Do ..CreateLocs(53,27,27,5,1,4,4,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..InitGang(14,"D")
+	Do ..CreateLocs(49 /*49=53-4*/,27,27,5,1,4,4,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..InitGang(1,"D")
+	
+	
+	// 01D26A06, 01D26B06, 01D26C06:
+	Do ..CreateLocs(50,26,26,3,1,6,6) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+
+	// 01D26D04, 01D26E04 
+	Do ..InitGang(14,"D")
+	Do ..CreateLocs(48 /* 48=51-3.*/ ,26,26,5,1,4,4,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(48 /* 48=51-3.*/ ,26,26,5,1,4,4,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..InitGang(1,"D")
+		
+		
+		
+	// 01D25A06, 01D25B06, 01D25C06: BESTONDEN EIGENLIJK AL, DAAROM DE VOLGENDE LIJN UITGECOMMENTARIEERD.
+	// Do ..CreateLocs(42,25,25,3,1,6,6) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+
+		
+	// 01D24A07, 01D24A08. Idem voor B tot H. // 16 STUKS
+	Do ..CreateLocs(34,24,24,8,1,7,8) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	// 01D24A09, 01D24A10. Idem voor B tot C. // 6 STUKS
+	Do ..CreateLocs(34,24,24,8,1,9,10,"A") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot		
+	Do ..CreateLocs(34,24,24,8,1,9,10,"B") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot		
+	Do ..CreateLocs(34,24,24,8,1,9,10,"C") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot		
+	
+	
+	// 01D23D06, 01D23D07, 01D23D08. Idem voor E tot F. // 9 STUKS
+	Do ..CreateLocs(26,23,23,6,1,6,8,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(26,23,23,6,1,6,8,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(26,23,23,6,1,6,8,"F") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	
+	
+	// 01D23G01 tot 08. Idem voor H. // 16 STUKS
+	Do ..CreateLocs(26,23,23,8,1,1,8,"G") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(26,23,23,8,1,1,8,"H") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	
+	// 01D23A09, 01D23A10. Idem voor B tot C. // 6 STUKS
+	Do ..CreateLocs(26,23,23,8,1,9,10,"A") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot		
+	Do ..CreateLocs(26,23,23,8,1,9,10,"B") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot		
+	Do ..CreateLocs(26,23,23,8,1,9,10,"C") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot		
+	
+	// TEVOREN 408 RECORDS VOOR 01D. NADIEN MOETEN ER 84 BIJKOMEN, DUS NAAR 492. N.B. GEEN 87 WANT 01D25A06..C06 BESTONDEN EIGENLIJK AL.
+	
+	// Do ..PrintLabels()
+]]></Implementation>
+</Method>
+
+<Method name="AddHal6">
+<Description>
+D ##class(BL.MB.UGLYPicking.Locations).Instantiate(0,0).AddHal6()
+</Description>
+<Implementation><![CDATA[
+	; HAL 1 : ORGALUX
+	Do ..InitMag(2,0,1) ;WMSMag=2, TransBuilding=0, TransHal=1
+	
+	Do ..InitGang(1,"D")
+	Do ..CreateLocs(62,30,30,5,1,1,4,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(62,30,30,5,1,1,4,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(62,30,30,3,1,6,6) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+
 	Do ..PrintLabels()
 ]]></Implementation>
 </Method>
@@ -196,15 +379,10 @@
 D ##class(BL.MB.UGLYPicking.Locations).Instantiate(0,0).AddHal2()</Description>
 <Implementation><![CDATA[
 	; HAL 1 : ORGALUX
-	Do ..InitMag(2,0,3) ;WMSMag=2, TransBuilding=0, TransHal=1
+	Do ..InitMag(2,0,4) ;WMSMag=2, TransBuilding=0, TransHal=1
 	
-	Do ..InitGang(10,"E") ; EWMSGang, TransGang
-	Do ..CreateLocs(1,42,46,3,1,3,3) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	Do ..InitGang(9,"D") ; EWMSGang, TransGang
-	Do ..CreateLocs(1,42,46,3,1,3,3) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	Do ..CreateLocs(16,47,47,3,1,1,3) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	Do ..InitGang(8,"C") ; EWMSGang, TransGang
-	Do ..CreateLocs(16,47,47,3,1,1,3) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..InitGang(17,"F") ; EWMSGang, TransGang
+	Do ..CreateLocs(55,45,47,4,1,1,5,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
 	Do ..PrintLabels()
 ]]></Implementation>
 </Method>
@@ -216,28 +394,32 @@
 	; HAL 1 : ORGALUX
 	Do ..InitMag(2,0,1) ;WMSMag=2, TransBuilding=0, TransHal=1
 	
-	Do ..InitGang(2,"E")
-	Do ..CreateLocs(66,25,25,5,1,5,5,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	Do ..CreateLocs(66,25,25,5,1,1,5,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(56,23,24,5,1,1,5) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(61,24,24,5,1,1,5,"A") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(61,24,24,5,1,1,5,"B") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(61,24,24,5,1,1,5,"C") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(26,23,23,6,1,6,8) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(54,30,30,12,1,1,5,"G") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(54,30,30,12,1,1,5,"H") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(54,30,30,12,1,1,5,"I") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(54,30,30,12,1,1,5,"J") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(54,30,30,12,1,1,5,"K") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(54,30,30,12,1,6,7) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(54,30,30,5,1,8,8) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(54,30,30,3,1,9,9) ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..DisableLocs(20,4,5,1,1) ;TransXVan, TransXTot, VakVan, VakTot, TransYVan, TransYTot
-	;Do ..DisableLocs(26,26,4,5,1,1) ;TransXVan, TransXTot, VakVan, VakTot, TransYVan, TransYTot
-
-	;Do ..CreateLocs(39,27,27,5,1,1,4,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-	;Do ..CreateLocs(39,27,27,5,1,1,4,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
-
+	Do ..InitGang(14,"D")
+	Do ..CreateLocs(44,20,20,5,1,1,2,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(44,20,20,5,1,1,2,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	w !
+	Do ..CreateLocs(46,21,21,5,1,1,2,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(46,21,21,5,1,1,2,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	w !
+	Do ..CreateLocs(48,26,26,5,1,1,3,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(48,26,26,5,1,1,3,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	w !
+	Do ..CreateLocs(49,27,27,5,1,1,3,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	w ! 
+	Do ..CreateLocs(50,28,28,5,1,1,3,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	w !
+	Do ..CreateLocs(52,29,29,5,1,1,3,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(52,29,29,5,1,1,3,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	w !
+	Do ..InitGang(14,"E")
+	Do ..CreateLocs(57,20,20,5,1,1,3,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(57,20,20,5,1,1,3,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	w !
+	Do ..CreateLocs(59,21,21,5,1,1,3,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(59,21,21,5,1,1,3,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	w !
+	Do ..CreateLocs(61,22,22,5,1,1,3,"D") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
+	Do ..CreateLocs(61,22,22,5,1,1,3,"E") ; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot
 	Do ..PrintLabels()
 ]]></Implementation>
 </Method>
@@ -289,41 +471,13 @@
 
 <Method name="AddGangF">
 <Description>
-D ##class(BL.MB.UGLYPicking.Locations).Instantiate(1,0).AddGangF()</Description>
+D ##class(BL.MB.UGLYPicking.Locations).Instantiate(0,0).AddGangF()</Description>
 <Implementation><![CDATA[
 	; HAL 1 : ORGALUX
-	Do ..InitMag(2,0,1) ;WMSMag=2, TransBuilding=0, TransHal=1
+	Do ..InitMag(2,0,3) ;WMSMag=2, TransBuilding=0, TransHal=1
 	
-	Do ..InitGang(17,"F")
-	Do ..CreateLocs(40,40,48,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..PrintLabels()
-]]></Implementation>
-</Method>
-
-<Method name="Hal5">
-<Description>
-D ##class(BL.MB.UGLYPicking.Locations).Instantiate(1,0).Hal5()</Description>
-<Implementation><![CDATA[
-	Do ..InitMag(2,0,5) ;WMSMag=2, TransBuilding=0, TransHal=5
-	
-	Do ..InitGang(20,"A")
-	Do ..CreateLocs(1,5,7,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..CreateLocs(40,40,48,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..InitGang(21,"B")
-	Do ..CreateLocs(1,5,7,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..CreateLocs(40,40,48,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..InitGang(22,"C")
-	Do ..CreateLocs(1,5,7,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..CreateLocs(40,40,48,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..InitGang(23,"D")
-	Do ..CreateLocs(1,5,7,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..CreateLocs(40,40,48,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..InitGang(24,"E")
-	Do ..CreateLocs(1,5,7,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..CreateLocs(40,40,48,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
 	Do ..InitGang(25,"F")
-	Do ..CreateLocs(1,5,7,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
-	Do ..CreateLocs(40,40,48,3,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
+	Do ..CreateLocs(1,4,4,4,1,1,4) 	; WMSLocXVan, TransXVan, TransXTot, VakAantal, WMSLocYVan, TransYVan, TransYTot,LimVakAlfa
 ]]></Implementation>
 </Method>
 
@@ -552,7 +706,15 @@
 
 <Method name="CreateLocs">
 <Description>
-Creatie van de locaties beperkt tot de ingestelde building, magazijn en gang</Description>
+Creatie van de locaties beperkt tot de ingestelde building, magazijn en gang.
+@Param WMSLocXVan Dit is de LocX voor vak A; ook als je bvb nu vak D wilt toevoegen! 
+  Let op: Als bvb pas vanaf vak D in een bepaalde LocG-waarde zit, dan is de eerste LocX in die "gang" degene voor vak "D", 
+    maar moet WMSLocXVan de waarde krijgen die vak A zou krijgen als vak A ook in deze "gang" zou gezeten hebben.
+  Let op: WMSLocX+VakAantal mag niet boven 69 of 70 gaan. Zoniet zal het EWMS niet werken bij volgende herstart!
+@Param VakAantal is eigenlijk de "Tot" voor de horizontale "geletterde" vakken: als je vak E (=5) wilt toevoegen, moet je hier 5 invullen.
+@Param WMSLocYVan Dit is de LocY voor verticale vak 1; ook als je bvb nu vak 6 wilt toevoegen! 
+@Param TransYVan Dit is de Y-waarde in de "transloc" van het eerste nieuw toe te voegen verticale vak.
+@Param LimVakAlfa Dit is het vaknummer dat nu mag toegevoegd worden. Indien afwezig wordt van A tot ... toegevoegd (te kiezen via VakAantal).</Description>
 <FormalSpec>WMSLocXVan,TransXVan,TransXTot,VakAantal,WMSLocYVan,TransYVan,TransYTot,LimVakAlfa</FormalSpec>
 <Implementation><![CDATA[
 	Set:$G(WMSLocXVan) ..WMSLocX=WMSLocXVan-1
@@ -643,9 +805,15 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/** Creatie van een locatie, channel en transloc
+ * @Param LocX Mag maximum 69 (of 70?) zijn. Zoniet zal het EWMS niet werken bij volgende herstart!
+ */
+]]></Content>
+</UDLText>
+
 <Method name="CreateLoc">
-<Description>
-Creatie van een locatie, channel en transloc</Description>
 <FormalSpec>LocM,LocG,LocX,LocY,LocTrans</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[