Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_010_prn.txt
===================================================================
diff -u -r60307 -r60663
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_010_prn.txt	(.../Productie_010_prn.txt)	(revision 60307)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_010_prn.txt	(.../Productie_010_prn.txt)	(revision 60663)
@@ -14,13 +14,13 @@
                          |           |                          |    |      | 
 Afdekkap                 |Zwart      |ZAA.532C.BTABD  V1000   S |   2|      | 
                          |           |                          |    |      | 
-Geleider, BLUMOTION      |           |576.5001B  K LI   EP7  ZN |   1|      | 
+Geleider, BLUMOTION      |           |576.5001B  K LI   V16  ZN |   1|      | 
                          |           |                          |    |      | 
-Geleider, BLUMOTION      |           |576.5001B  K RE   EP7  ZN |   1|      | 
+Geleider, BLUMOTION      |           |576.5001B  K RE   V16  ZN |   1|      | 
                          |           |                          |    |      | 
-Reling                   |Zwart      |ZRG.437RSICREL*LAE L TERS |   1|      | 
                          |           |                          |    |      | 
-Reling                   |Zwart      |ZRG.437RSICREL*LAE R TERS |   1|      | 
+                         |           |                          |    |      | 
+                         |           |                          |    |      | 
 -------------------------|-----------|--------------------------|----|------|
 
 
\ No newline at end of file
Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r60652 -r60663
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 60652)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 60663)
@@ -157,8 +157,8 @@
 	. . ; 6 : IsWerkVloer	
 	. . Set KortTekst = $Piece(HalfFormat,"\",2)
 	. . If ($Extract($Piece(EindFormat,"\",6),1,8) = "Geleider") {
-	. .		Set $Piece(HalfFormat,"\",2) = $Extract(KortTekst,1,8)_"�B"_$Extract(KortTekst,9,9)_"�b"_$Extract(KortTekst,10,*)	;Bij het aanpassen van deze Korttekst moet ook gecontroleerd worden of de methode 'PickGepasteGeleiders' nog steeds 
-	. . }																														;goed uitgevoerd wordt. Deze methode gebruikt namelijk deze aangepaste string.
+	. .		Set $Piece(HalfFormat,"\",2) = $Extract(KortTekst,1,8)_"�B"_$Extract(KortTekst,9,9)_"�b"_$Extract(KortTekst,10,*) ;Bij het aanpassen van deze Korttekst (voor een geleider) moet ook gecontroleerd worden of de methode 'PickGepasteGeleiders' nog steeds 
+	. . }																													  ;goed uitgevoerd wordt. Deze methode gebruikt namelijk deze aangepaste string.
 	. . If ($Extract($Piece(EindFormat,"\",6),1,6) = "Reling") && ($Extract(KortTekst,10,10)="F") {
 	. .		Set $Piece(HalfFormat,"\",2) = $Extract(KortTekst,1,9)_"�B"_$Extract(KortTekst,10,10)_"�b"_$Extract(KortTekst,11,*)
 	. . }	
@@ -183,29 +183,29 @@
 	#dim EenKorttekstWerdVervangen = $$$False
 	New SamengesteldeLijst
 	
-	If $$$Not(ProdGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) {		
-		For i = 2:1:LengteLijst*2
+	If $$$Not(ProdGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) {	; Bij niet Stuk verpakkingen moeten type 500 & 550 geleiders gepickt worden uit een V16 verpakking en niet EP7
+		For ii = 2:1:LengteLijst*2
 		{
-			If $$$Not(Lijst(i) = "") {						
-				If ($Extract($Piece(Lijst(i),"\",15),1,8) = "Geleider") {
-					#dim Korttekst As %String = $Piece(Lijst(i),"\",3)
-					If ##class(TECH.StringUtils).Contains(Korttekst,"EP7") {
-						Set $Piece(Lijst(i),"\",3) = $Extract(Korttekst,1,22)_"V16"_$Extract(Korttekst,26,*)
+			If $$$Not(Lijst(ii) = "") {						
+				If ($Extract($Piece(Lijst(ii),"\",15),1,8) = "Geleider") {
+					#dim Korttekst As %String = $Piece(Lijst(ii),"\",3)
+					If (##class(TECH.StringUtils).Contains(Korttekst,"EP7") && (##class(TECH.StringUtils).Contains(Korttekst,"576.500") ||##class(TECH.StringUtils).Contains(Korttekst,"576.550"))) {
+						Set $Piece(Lijst(ii),"\",3) = $Extract(Korttekst,1,22)_"V16"_$Extract(Korttekst,26,*)
 						Set EenKorttekstWerdVervangen = $$$True
 					}
 				}
 				
 			}
 		}		
-	} else { 
-		For i = 2:1:LengteLijst*2
+	} else { 																		; Bij Stuk verpakking moet type 500 & 550 geleiders gepickt worden uit een EP7 verpakking en niet V16
+		For ii = 2:1:LengteLijst*2
 		{
-			If $$$Not(Lijst(i) = "") {						
-				If ($Extract($Piece(Lijst(i),"\",15),1,8) = "Geleider") {
-					#dim Korttekst As %String = $Piece(Lijst(i),"\",3)
+			If $$$Not(Lijst(ii) = "") {						
+				If ($Extract($Piece(Lijst(ii),"\",15),1,8) = "Geleider") {
+					#dim Korttekst As %String = $Piece(Lijst(ii),"\",3)
 					
-					If ##class(TECH.StringUtils).Contains(Korttekst,"V16") {
-						Set $Piece(Lijst(i),"\",3) = $Extract(Korttekst,1,22)_"EP7"_$Extract(Korttekst,26,*)
+					If (##class(TECH.StringUtils).Contains(Korttekst,"V16") && (##class(TECH.StringUtils).Contains(Korttekst,"576.500") ||##class(TECH.StringUtils).Contains(Korttekst,"576.550"))) {
+						Set $Piece(Lijst(ii),"\",3) = $Extract(Korttekst,1,22)_"EP7"_$Extract(Korttekst,26,*)
 						Set EenKorttekstWerdVervangen = $$$True
 					}
 				}
@@ -216,29 +216,33 @@
 		Do NeemAantallenZelfdeGeleidersSamen(.Lijst, Cnt)
 		Do VerwijderGewijzigdeLegeRegels(.Lijst, Cnt, .SamengesteldeLijst)
 		
-		For i = 1:1:LengteLijst*2-4
+		For ii = 1:1:LengteLijst*2-4
 		{
-			Set Lijst(i) = SamengesteldeLijst(i)		; Set Lijst = SamengesteldeLijst werkt niet
+			Set Lijst(ii) = SamengesteldeLijst(ii)		; Set Lijst = SamengesteldeLijst werkt niet
 		}
+		Set Lijst(LengteLijst*2-3) = ""
+		Set Lijst(LengteLijst*2-2) = ""
+		Set Lijst(LengteLijst*2-1) = ""
+		Set Lijst(LengteLijst*2) = ""
 	}
 
 	Quit 
 
 NeemAantallenZelfdeGeleidersSamen(Lijst, LengteLijst)
-	For i = 1:1:LengteLijst*2
+	For ii = 1:1:LengteLijst*2
 	{
-		If $$$Not(Lijst(i) = "") {
-			If ($Extract($Piece(Lijst(i),"\",15),1,8) = "Geleider") {
-				#dim Korttekst As %String = $Piece(Lijst(i),"\",3)
+		If $$$Not(Lijst(ii) = "") {
+			If ($Extract($Piece(Lijst(ii),"\",15),1,8) = "Geleider") {
+				#dim Korttekst As %String = $Piece(Lijst(ii),"\",3)
 				
-				For y = i+1:1:LengteLijst*2
+				For yy = ii+1:1:LengteLijst*2
 				{
-					If $$$Not(Lijst(y) = "") {
-						If ($Extract($Piece(Lijst(i),"\",15),1,8) = "Geleider") {
-							#dim Korttekst2 As %String = $Piece(Lijst(y),"\",3)
+					If $$$Not(Lijst(yy) = "") {
+						If ($Extract($Piece(Lijst(ii),"\",15),1,8) = "Geleider") {
+							#dim Korttekst2 As %String = $Piece(Lijst(yy),"\",3)
 							If (Korttekst = Korttekst2) {
-								Set $Piece(Lijst(i),"\",4) = $Piece(Lijst(i),"\",4) + $Piece(Lijst(y),"\",4) ;Aantallen optellen
-								Set Lijst(y) = ""
+								Set $Piece(Lijst(ii),"\",4) = $Piece(Lijst(ii),"\",4) + $Piece(Lijst(yy),"\",4) ;Aantallen optellen
+								Set Lijst(yy) = ""
 								
 							}
 						}
@@ -252,10 +256,10 @@
 VerwijderGewijzigdeLegeRegels(Lijst, LengteLijst, NieuweLijst)
 	
 	Set NieuweLijst($Increment(NieuweLijst)) = Lijst(1)	;Tekst: ***Losse onderdelen BULK***
-	For i = 2:2:LengteLijst*2
+	For ii = 2:2:LengteLijst*2
 	{
-		If $$$Not(Lijst(i) = "") {
-			Set NieuweLijst($Increment(NieuweLijst)) = Lijst(i)
+		If $$$Not(Lijst(ii) = "") {
+			Set NieuweLijst($Increment(NieuweLijst)) = Lijst(ii)
 			Set NieuweLijst($Increment(NieuweLijst)) = ""	
 		}
 	}
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_009_prn.txt
===================================================================
diff -u -r60307 -r60663
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_009_prn.txt	(.../Productie_009_prn.txt)	(revision 60307)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_009_prn.txt	(.../Productie_009_prn.txt)	(revision 60663)
@@ -16,14 +16,10 @@
                          |           |                          |    |      | 
 Afdekkap                 |Zwart      |ZAA.532C.BTABD  V1000   S |   4|      | 
                          |           |                          |    |      | 
-Geleider, BLUMOTION      |           |576.5001B  K LI   EP7  ZN |   2|      | 
+Geleider, BLUMOTION      |           |576.5001B  K LI   V16  ZN |   3|      | 
                          |           |                          |    |      | 
-Geleider, BLUMOTION      |           |576.5001B  K LI   V16  ZN |   1|      | 
+Geleider, BLUMOTION      |           |576.5001B  K RE   V16  ZN |   3|      | 
                          |           |                          |    |      | 
-Geleider, BLUMOTION      |           |576.5001B  K RE   EP7  ZN |   2|      | 
-                         |           |                          |    |      | 
-Geleider, BLUMOTION      |           |576.5001B  K RE   V16  ZN |   1|      | 
-                         |           |                          |    |      | 
 Geleider, BLUMOTION      |           |578.5001B41K R+L  EP6  ZN |   1|      | 
                          |           |                          |    |      | 
 Reling                   |Zwart      |ZRG.437RSICREL*LAE L TERS |   2|      | 
@@ -33,6 +29,10 @@
 Reling                   |Grijs      |ZRG.437RSICREL*LAE L R906 |   2|      | 
                          |           |                          |    |      | 
 Reling                   |Grijs      |ZRG.437RSICREL*LAE R R906 |   2|      | 
+                         |           |                          |    |      | 
+                         |           |                          |    |      | 
+                         |           |                          |    |      | 
+                         |           |                          |    |      | 
 -------------------------|-----------|--------------------------|----|------|
 
 
\ No newline at end of file