Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml
===================================================================
diff -u -r73947 -r73949
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(.../RollenEnStuklijstOptiesGenerator.cls.xml)	(revision 73947)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(.../RollenEnStuklijstOptiesGenerator.cls.xml)	(revision 73949)
@@ -52,34 +52,40 @@
 		}
 	}
 	
-	//Voeg extra bouwstenen toe (gekenmerkt door $X$ in bouwstenen)
+	Do ..VoegToeExtraBouwstenen(.Opties, ProductID, SequentieNummerLade, Index)
+	Quit Opties
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeExtraBouwstenen">
+<FormalSpec><![CDATA[&Opties:%ListOfObjects,ProductID:%String,SequentieNummerLade:%String,Index:%Integer]]></FormalSpec>
+<Implementation><![CDATA[
 	#dim HuidigeActieveMESFase = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+	#dim ExtraBouwsteenTag As %String = "$X$"
 	If (HuidigeActieveMESFase >= 2) {
-		#dim LosOnderdeelNummer = 1
-		#dim BSKey As %String = ""
+		#dim LosOnderdeelAantal = 1
+		#dim BouwsteenKey As %String = ""
 		#dim HalffabProductId As %String = ""
 		#dim HalffabAantal As %Decimal = ""
 		#dim OBJTIdentNummer As %String = ""
 		#dim IdentNummer As %String = ""
 		#dim RolNaam As %String = ""
-		For  Set BSKey=$Order(^PRBS("BS",ProductID,BSKey)) Quit:BSKey=""  Do
-		. Quit:$Piece(^PRBS("BS",ProductID,BSKey),"\",11)'="$X$"
-		. Set HalffabProductId = $Piece(^PRBS("BS",ProductID,BSKey),"\",1)
-		. Set HalffabAantal = $Piece(^PRBS("BS",ProductID,BSKey),"\",2)
+		For  Set BouwsteenKey=$Order(^PRBS("BS",ProductID,BouwsteenKey)) Quit:BouwsteenKey=""  Do
+		. Quit:$Piece(^PRBS("BS",ProductID,BouwsteenKey),"\",11)'=ExtraBouwsteenTag
+		. Set HalffabProductId = $Piece(^PRBS("BS",ProductID,BouwsteenKey),"\",1)
+		. Set HalffabAantal = $Piece(^PRBS("BS",ProductID,BouwsteenKey),"\",2)
 		. If HalffabAantal > 0 Do
-		. . Set RolNaam = "SPTLoosePart" _ LosOnderdeelNummer
+		. . Set RolNaam = "SPTLoosePart" _ LosOnderdeelAantal
 		. . Do Opties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-ROL-"_ RolNaam, ..ConverteerWaarde(HalffabAantal, "%Decimal")))	
 		. . Set IdentNummer = ..ProductApi.GeefIdentNummerVoorProductId(HalffabProductId)
 		. . Set OBJTIdentNummer = ..OBJTIdentLookupService.GeefOBJTIdentNr(IdentNummer)
 		. . Do Opties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-INPUT[" _ ..PrependNul($Increment(Index), 2) _ "]|QTY|ROL", OBJTIdentNummer _ "|"_ ##class(TECH.Math).Round(HalffabAantal, 4) _ "|" _ RolNaam))
-		. Set LosOnderdeelNummer = LosOnderdeelNummer + 1
-	
-		If (LosOnderdeelNummer > 8) {
+		. Set LosOnderdeelAantal = LosOnderdeelAantal + 1
+		
+		If (LosOnderdeelAantal > 8) {
 			#dim Logger = ##class(vhLib.Logger).%New("RollenEnStuklijstOptiesGenerator").ErrorMail("Er zijn meer extra spacetowerrollen dan geconfigureerd in Objective. Er is dus een uitbreiding nodig in Objective en een aanpassing in deze error.")
 		}
 	}
-	
-	Quit Opties
 ]]></Implementation>
 </Method>