Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r53981 -r56804
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 53981)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 56804)
@@ -119,43 +119,27 @@
 	. Set Fmt=$S($P(Rec,D,2)="<PB>":"PB\",1:"BR\") ; Blanko lijn of pagebreak
 	. Set Fmt=Fmt_";2\BL" ; Afdruk code en extra blanko lijn
 	Quit Fmt
- 
+
+
+///; 1 : Scheidingscode ; 2 : IdentNr ; 3 : KortTekst ; 4 : Qty ; 5 : NettoDim ; 6 : IsWerkVloer ; 10 : TOENr ; 11 : DossierID ; 12 : Qty ; 13 : NettoDim
 Convert(FabrPrep,Groep,Lijst)
-	New SortKey1,SortKey2,Cnt,Reverse,EindFormat,HalfFormat,SubLijnNr
+	New SortKey1,SortKey2,Cnt,EindFormat,HalfFormat
 	Quit:$D(Groep(FabrPrep))<10  ; Geen subnodes
 	Set Lijst($I(Lijst))=FabrPrep_D_D_"*** "_$LI($$$PrepTranslate,$LF($$$PrepKeys,FabrPrep))_" ***"
 	Set:$LF($$$PrepKeyPageBreak,FabrPrep)&&(Lijst>1) $P(Lijst(Lijst),D,2)="<PB>"
 	Set (SortKey1,SortKey2)=""
 	Set Cnt=0
-	For  Set SortKey1=$O(Groep(FabrPrep,SortKey1)) Quit:SortKey1=""  Do
-	. Set:Cnt Lijst($I(Lijst))=""
+	For  Set SortKey1=$Order(Groep(FabrPrep,SortKey1)) Quit:SortKey1=""  Do
+	. Set:Cnt Lijst($Increment(Lijst))=""
 	. Set Cnt=Cnt+1
-	. Set Reverse=$LI(Groep(FabrPrep,SortKey1),1)="E"
-	. Set:Reverse EindFormat=$$EindFormat(Groep(FabrPrep,SortKey1))
-	. Set:'Reverse HalfFormat=$$HalfFormat(Groep(FabrPrep,SortKey1))
-	. Set SubLijnNr = 1
-	. For  Set SortKey2=$O(Groep(FabrPrep,SortKey1,SortKey2)) Quit:SortKey2=""  Do
-	. . Set:'Reverse EindFormat=$$EindFormat(Groep(FabrPrep,SortKey1,SortKey2))
-	. . If (('Reverse) && (SubLijnNr > 1)) {
-	. .   Set $P(EindFormat,D,6) = ""
-	. .   Set $P(EindFormat,D,7) = ""
-	. . }
-	. . Set:Reverse HalfFormat=$$HalfFormat(Groep(FabrPrep,SortKey1,SortKey2))
-	. . ; 1 : Scheidingscode
-	. . ; 2 : IdentNr
-	. . ; 3 : KortTekst
-	. . ; 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  
-	. . Set:'Reverse HalfFormat=""
-	. . Set:Reverse EindFormat=""
-	. . Set SubLijnNr = SubLijnNr + 1
+	. Set SortKey2=$Order(Groep(FabrPrep,SortKey1,SortKey2)) 
+	. If (SortKey2'="")  Do
+	. . If ($List(Groep(FabrPrep,SortKey1),1)="E")  Do
+	. . . Set $Piece(Lijst($Increment(Lijst)),D,2)=$$HalfFormat(Groep(FabrPrep,SortKey1,SortKey2))
+	. . . Set $Piece(Lijst(Lijst),D,10)=$$EindFormat(Groep(FabrPrep,SortKey1))
+	. . Else  Do
+	. . . Set $Piece(Lijst($Increment(Lijst)),D,2)=$$HalfFormat(Groep(FabrPrep,SortKey1))
+	. . . Set $Piece(Lijst(Lijst),D,10)=$$EindFormat(Groep(FabrPrep,SortKey1,SortKey2))
 	Quit 
 	
 HalfFormat(List)
Index: vhDeploy/WV/Deploy20190522xHaluxVoorbereidingLijst.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20190522xHaluxVoorbereidingLijst.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20190522xHaluxVoorbereidingLijst.cls.xml	(revision 56804)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.WV.Deploy20190522xHaluxVoorbereidingLijst">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Halux voorbereiding lijst : Verwijderen 'Control' kolom.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^RES("HADTBX","LD","FABRPREP") = "Halux TBX voorbereiding montage en verpakking`58225,34557```4;1;18`92`P``BU`1`1"
+	Set ^RES("HADTBX","LD","FABRPREP","F") = "@`$NA(Lijst)"
+	Set ^RES("HADTBX","LD","FABRPREP","HO",1) = "T`I`   ProductType          |   Kleur   |         KortTekst        |Aant|Lengte|"
+	Set ^RES("HADTBX","LD","FABRPREP","L",1) = "HADTBX`FABRPREP"
+	Set ^RES("HADTBX","LD","FABRPREP","L",2) = "HADTBX`SCHEIDING"
+	Set ^RES("HADTBX","LK","FABRPREP") = "Halux TBX voorbereiding montage en verpakking`58225,34557"
+	Set ^RES("HADTBX","LK","FABRPREP",1) = "ProductType`ProductType`15`C`L`24``|```"
+	Set ^RES("HADTBX","LK","FABRPREP",2) = "Kleur`Kleur`16`C`L`11``|```"
+	Set ^RES("HADTBX","LK","FABRPREP",3) = "KortTekst`KortTekst`3`C`L`25```"
+	Set ^RES("HADTBX","LK","FABRPREP",4) = "WerkvloerStock`WS`6`C`L`1``|`6`$S(X:""*"",1:"""")"
+	Set ^RES("HADTBX","LK","FABRPREP",5) = "HFQty`HFQty`4`C`R`4``|```"
+	Set ^RES("HADTBX","LK","FABRPREP",6) = "NettoDim`Lengte`5`C`R`6`1`|```"
+	;Set ^RES("HADTBX","LK","FABRPREP",7) = "Dossier`Dossier`11`C`R`4```"
+	;Set ^RES("HADTBX","LK","FABRPREP",8) = "Qty`Qty`12`C`R`3``|```"
+	;Set ^RES("HADTBX","LK","FABRPREP",9) = "Inkorten`Inkorten`14`C`R`1```14`$S(X:""i"",1:"""")`"
+	Set ^RES("HADTBX","LK","FABRPREP",7) = "Inkorten`Inkorten`14`C`R`1```14`$S(X:""i"",1:"""")`"
+	Kill ^RES("HADTBX","LK","FABRPREP",8)
+	Kill ^RES("HADTBX","LK","FABRPREP",9)
+	Set ^RES("HADTBX","LK","SCHEIDING",1) = "Filler`Filler`3`C`C`39```""1""``"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>