Index: vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml
===================================================================
diff -u -r31291 -r33369
--- vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 31291)
+++ vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 33369)
@@ -34,7 +34,7 @@
 <Type>vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakSequentie</Type>
 </Property>
 
-<Property name="iWerkpost">
+<Property name="Werkpost">
 <Type>APPS.Halux.PPS.TBXPers.IWerkpost</Type>
 </Property>
 
@@ -48,137 +48,163 @@
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).MaakAlleProducten()
-	Set ..MaakSequentie=##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakSequentie).%New()
-	Do ..MaakSequentie.MaakToeleveringPersWerkpost()
-	Set ..Batch=..MaakSequentie.MaakBatch($LB(..MaakSequentie.TOENrWerkpost))
-	do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(..Batch.GeefID())
-	Do ..Batch.ZetStatusEnSave(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
-	Do ..MaakSequentie.MaakToeleveringSpecials()
-	Set ..BatchSpecials=..MaakSequentie.MaakBatch($LB(..MaakSequentie.TOENrSpecials))
-	do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(..BatchSpecials.GeefID())
-	Do ..BatchSpecials.ZetStatusEnSave(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
-	
-	Set ..iWerkpost=##class(APPS.Halux.PPS.TBXPers.impl.Werkpost).%New(##class(APPS.Halux.common.enu.Werkpost).Pers1())
+	Do ..MaakData()
 	Do ##super()
 ]]></Implementation>
 </Method>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..Werkpost = ##class(APPS.Halux.PPS.TBXPers.impl.Werkpost).%New(##class(APPS.Halux.common.enu.Werkpost).Pers1())
+]]></Implementation>
+</Method>
+
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-	Do ..MaakSequentie.VerwijderBatch(..Batch)
-	Do ..MaakSequentie.VerwijderBatch(..BatchSpecials)
-	Do ..MaakSequentie.VerwijderToeleveringPersWerkpost()
-	Do ..MaakSequentie.VerwijderToeleveringSpecials()
-	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).VerwijderAlleProducten()
+	Do ..VerwijderData()
 	Do ##super()
 ]]></Implementation>
 </Method>
 
 <Method name="TestZetStatus">
 <Implementation><![CDATA[
-	Set BatchID=..Batch.%Id()
-	Set BatchIDSpecials = ..BatchSpecials.%Id()
-	Set rsBatches=##class(%ResultSet).%New("BL.PPS.TBX.WPPers:BatchIDList")
-	Set rsOpdrachten=##class(%ResultSet).%New("BL.PPS.TBX.WPPers:GetTBXsProdDef")
-	Set sc=rsBatches.Execute()
-	Set OpdrachtCnt=0
-	While (rsBatches.Next())
-	{
-		#dim BatchIDVanPerslijst As %String = $P(rsBatches.Data("BatchID"),"||")
-		If ((BatchIDVanPerslijst=BatchID) || (BatchIDVanPerslijst=BatchIDSpecials))
-		{
-			Set sc=rsOpdrachten.Execute(rsBatches.Data("BatchID"))
-			While (rsOpdrachten.Next())
-			{
-				/* Te testen methods */
-				Do ..iWerkpost.ZetStatus(rsOpdrachten.Data("UniqueID"))
+	#dim BatchID As %String = ..Batch.%Id()	
+	#dim BatchSpecialsID As %String = ..BatchSpecials.%Id()
+	#dim BatchesResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("BL.PPS.TBX.WPPers", "BatchIDList"))
+	#dim OpdrachtCount As %Integer = 0
+	
+	While (BatchesResultSet.Next()) {
+		#dim BatchIDVanPerslijst As %String = $Piece(BatchesResultSet.Data("BatchID"), "||")
+		
+		If ((BatchIDVanPerslijst = BatchID) || (BatchIDVanPerslijst = BatchSpecialsID)) {
+			#dim OpdrachtenResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("BL.PPS.TBX.WPPers", "GetTBXsProdDef", $ListBuild(BatchesResultSet.Data("BatchID"))))
+			
+			While (OpdrachtenResultSet.Next()) {
+				#dim UniekeID As %String = OpdrachtenResultSet.Data("UniqueID")
+				#dim Queue As DS.PPS.TBX.Queue = ##class(DS.PPS.TBX.Queue).%OpenId(UniekeID)
+				#dim ProductNummer As %String = Queue.Product.%Id()
 
-				Set OpdrachtCnt=OpdrachtCnt+1
-				Set Queue=##class(DS.PPS.TBX.Queue).%OpenId(rsOpdrachten.Data("UniqueID"))
-				Do $$$AssertEquals(Queue.WPPers.WPStatus,"F","ZetStatus : queue status")
-				Set PRNr=Queue.Product.%Id()
-				If PRNr=$Parameter(..MaakSequentie,"TBXSpoelbak")
-				{
-					Do $$$AssertEquals(rsOpdrachten.Data("Status"),"?","Status = Reeds geproduceerd")
-					Do $$$AssertNotEquals(rsOpdrachten.Data("Info1"),"","Info moet ingevuld zijn ingevuld")
+				Do ..Werkpost.ZetStatus(UniekeID)
+				
+				Set OpdrachtCount = $Increment(OpdrachtCount)
+
+				Do $$$AssertEquals(Queue.WPPers.WPStatus, "F", "ZetStatus : queue status")
+
+				If (ProductNummer = $Parameter(..MaakSequentie, "TBXSpoelbak")) {
+					Do $$$AssertEquals(OpdrachtenResultSet.Data("Status"), "?", "Status = Reeds geproduceerd")
+					Do $$$AssertNotEquals(OpdrachtenResultSet.Data("Info1"), "", "Info moet ingevuld zijn ingevuld")
 				}
 			}
+			
+			Set OpdrachtenResultSet = "" ; Close van de crazy query.
 		}
 	}
-	Do $$$AssertEquals(OpdrachtCnt,5,"Aantal te persen opdrachten")
+	
+	Do $$$AssertEquals(OpdrachtCount, 5, "Aantal te persen opdrachten")
 ]]></Implementation>
 </Method>
 
 <Method name="TestBeschadiging">
 <Implementation><![CDATA[
-
-	Set BatchID=..Batch.%Id()
-	Set BatchIDSpecials = ..BatchSpecials.%Id()
-	Set rsBatches=##class(%ResultSet).%New("BL.PPS.TBX.WPPers:BatchIDList")
-	Set rsOpdrachten=##class(%ResultSet).%New("BL.PPS.TBX.WPPers:GetTBXsProdDef")
-	Set sc=rsBatches.Execute()
-	Set OpdrachtCnt=0
-	While (rsBatches.Next())
-	{
-		#dim BatchIDVanPerslijst As %String = $P(rsBatches.Data("BatchID"),"||")
-		If ((BatchIDVanPerslijst=BatchID) || (BatchIDVanPerslijst=BatchIDSpecials))
-		{
-			Set sc=rsOpdrachten.Execute(rsBatches.Data("BatchID"))
-			While (rsOpdrachten.Next())
-			{
-				Set Queue=##class(DS.PPS.TBX.Queue).%OpenId(rsOpdrachten.Data("UniqueID"))
-				Set PRNr=Queue.Product.%Id()
-				If PRNr=$Parameter(..MaakSequentie,"TBX1")
-				{			
-					/* Te testen method */
-					Do ..iWerkpost.RegistreerBeschadiging(rsOpdrachten.Data("UniqueID"),"Zaag","B+R",##class(APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging).Productie(),"unittest",##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Direct()) ; met rework
+	#dim BatchID As %String = ..Batch.%Id()	
+	#dim BatchSpecialsID As %String = ..BatchSpecials.%Id()
+	#dim BatchesResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("BL.PPS.TBX.WPPers", "BatchIDList"))
+	#dim OpdrachtCount As %Integer = 0
+	
+	While (BatchesResultSet.Next()) {
+		#dim BatchIDVanPerslijst As %String = $Piece(BatchesResultSet.Data("BatchID"), "||")
+		
+		If ((BatchIDVanPerslijst = BatchID) || (BatchIDVanPerslijst = BatchSpecialsID)) {
+			#dim OpdrachtenResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("BL.PPS.TBX.WPPers", "GetTBXsProdDef", $ListBuild(BatchesResultSet.Data("BatchID"))))
+			
+			While (OpdrachtenResultSet.Next()) {
+				#dim UniekeID As %String = OpdrachtenResultSet.Data("UniqueID")
+				#dim Queue As DS.PPS.TBX.Queue = ##class(DS.PPS.TBX.Queue).%OpenId(UniekeID)
+				#dim ProductNummer As %String = Queue.Product.%Id()	
+				
+				If (ProductNummer = $Parameter(..MaakSequentie, "TBX1")) {			
+					Do ..Werkpost.RegistreerBeschadiging(UniekeID, "Zaag", "B+R", ##class(APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging).Productie(), "unittest", ##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Direct()) ; met rework
 				}
 			}
+			
+			Set OpdrachtenResultSet = "" ; Close van de crazy query.
 		}
+		
 	}
 
-	/* controle op herwerk */
-	Set rsBatches=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelperVoorTBX:qActieveBatchLijst")
-	Set sc=rsBatches.Execute("",1)
-	Set rsOpdrachten=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelperVoorTBX:qZaagLijstHelper")
-	Set HerwerkCnt=0
-	While (rsBatches.Next())
-	{
-		;w !,rsBatches.Data("BatchKey"),!
-		If ($P(rsBatches.Data("BatchKey"),"||")=BatchID)&&($P(rsBatches.Data("BatchKey"),"||",2)=##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).Herwerk())
-		{
-			Set sc=rsOpdrachten.Execute($P(rsBatches.Data("BatchKey"),"||"),$P(rsBatches.Data("BatchKey"),"||",2))
-			While (rsOpdrachten.Next())
-			{
-				Set dtoOpdracht=##class(APPS.Halux.PPS.TBXZaag.dto.Opdracht).GetOpdracht(rsOpdrachten.GetData(1))
-				Do $$$AssertEquals(dtoOpdracht.Transferlijn,##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Direct())
-				Set HerwerkCnt=HerwerkCnt+1
+	/// controle op herwerk
+	#dim HerwerkBatchesResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelperVoorTBX", "qActieveBatchLijst",  $ListBuild("", 1)))
+	#dim HerwerkCount As %Integer = 0
+	
+	While (HerwerkBatchesResultSet.Next()) {
+		#dim HerkwerkBatchID As %String = $Piece(HerwerkBatchesResultSet.Data("BatchKey"), "||")
+		#dim SubBatch As APPS.Halux.PPS.TBXZaag.enu.SubBatch = $Piece(HerwerkBatchesResultSet.Data("BatchKey"), "||", 2)
+		
+		If (HerkwerkBatchID = BatchID) && (SubBatch = ##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).Herwerk()) {
+			#dim ActieveOpdrachtenResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelperVoorTBX", "qZaagLijstHelper", $ListBuild(HerkwerkBatchID, SubBatch)))
+			
+			While (ActieveOpdrachtenResultSet.Next()) {
+				#dim Opdracht As APPS.Halux.PPS.TBXZaag.dto.Opdracht = ##class(APPS.Halux.PPS.TBXZaag.dto.Opdracht).GetOpdracht(ActieveOpdrachtenResultSet.GetData(1))
+				
+				Do $$$AssertEquals(Opdracht.Transferlijn, ##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Direct())
+				Set HerwerkCount = $Increment(HerwerkCount)
 			}
+			
+			Set ActieveOpdrachtenResultSet = ""
+			
 		}
 	}
-	Do $$$AssertEquals(HerwerkCnt,1,"Herwerkopdrachten")
+	
+	Do $$$AssertEquals(HerwerkCount, 1, "Herwerkopdrachten")
 ]]></Implementation>
 </Method>
 
 <Method name="TestStilstandLijst">
 <Implementation><![CDATA[
-	#dim DataSet as %XML.DataSet
-	Set Werkpost=##class(APPS.Halux.PPS.TBXPers.impl.Werkpost).%New(##class(APPS.Halux.common.enu.Werkpost).Pers1())
-	Set DataSet=Werkpost.GeefStilstanden()
-	Set x=DataSet.XMLExportToString()
-	Do $$$AssertEquals(DataSet.GetColumnCount(),5,"Stilstandenlijst aantal columns")
+	#dim DataSet as %XML.DataSet = ..Werkpost.GeefStilstanden()
+	
+	Do $$$AssertEquals(DataSet.GetColumnCount(), 5, "Stilstandenlijst aantal columns")
 ]]></Implementation>
 </Method>
 
 <Method name="TestHerwerkingLijst">
 <Implementation><![CDATA[
-	Set Werkpost=##class(APPS.Halux.PPS.TBXPers.impl.Werkpost).%New(##class(APPS.Halux.common.enu.Werkpost).Pers1())
-	Set DataSet=Werkpost.GeefHerwerkingen()
-	Set x=DataSet.XMLExportToString()
-	Do $$$AssertEquals(DataSet.GetColumnCount(),3,"Herwerkingslijst aantal columns")
+	#dim DataSet as %XML.DataSet = ..Werkpost.GeefHerwerkingen()
+
+	Do $$$AssertEquals(DataSet.GetColumnCount(), 3, "Herwerkingslijst aantal columns")
 ]]></Implementation>
 </Method>
+
+<Method name="MaakData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).MaakAlleProducten()
+	
+	Set ..MaakSequentie=##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakSequentie).%New()
+	Do ..MaakSequentie.MaakToeleveringPersWerkpost()
+	Set ..Batch = ..MaakSequentie.MaakBatch($ListBuild(..MaakSequentie.TOENrWerkpost))
+	Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(..Batch.GeefID())
+	Do ..Batch.ZetStatusEnSave(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
+	Do ..MaakSequentie.MaakToeleveringSpecials()
+	Set ..BatchSpecials=..MaakSequentie.MaakBatch($LB(..MaakSequentie.TOENrSpecials))
+	Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(..BatchSpecials.GeefID())
+	Do ..BatchSpecials.ZetStatusEnSave(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..MaakSequentie.VerwijderBatch(..Batch)
+	Do ..MaakSequentie.VerwijderBatch(..BatchSpecials)
+	Do ..MaakSequentie.VerwijderToeleveringPersWerkpost()
+	Do ..MaakSequentie.VerwijderToeleveringSpecials()
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).VerwijderAlleProducten()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r29059 -r33369
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 33369)
@@ -27,23 +27,25 @@
 	#dim ToeleveringID As %String = $$GETNUM^FLOW("KTO","KTO1")	
 	
 	/// Datum
-	Set CreatieDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
-	Set Datum = ##class(TECH.DateTime).GeefDatumInPuntNotatie(CreatieDatum)
+	#dim CreatieDatum As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	#dim Datum As %String = ##class(TECH.DateTime).GeefDatumInPuntNotatie(CreatieDatum)
 	
 	/// Hoofding voor Toelevering aanmaken	
-	Set ^KTO(LeverancierID,ToeleveringID,1)="\"_Datum_"\STOCK\\\"_ToeleveringID_"\"_OrderID_"\\\\\\\\\\\EUR\\\\\\\\"
+	Set ^KTO(LeverancierID, ToeleveringID, 1) = "\" _ Datum _ "\STOCK\\\" _ ToeleveringID _ "\" _ OrderID _ "\\\\\\\\\\\EUR"
 	/// Index
-	Set ^KTO1(ToeleveringID)= LeverancierID_"\"
+	Set ^KTO1(ToeleveringID) = LeverancierID _ "\"
 	
 	/// Producten toevoegen aan toelevering 
 	#dim LijnNr As %Integer = 101	
-	Set UniekLijnNr = 1
-	For I=1:1:$L(ProductLijst,"\") {
-		Set ProductID = $P($P(ProductLijst,"\",I),";",1)
-		Set Aantal = $P($P(ProductLijst,"\",I),";",2)
+	#dim UniekLijnNr As %Integer = 1
+	#dim Index As %Integer
+	
+	For Index=1:1:$Length(ProductLijst, "\") {
+		#dim ProductID As %String = $Piece($Piece(ProductLijst, "\", Index) ,";", 1)
+		#dim Aantal As %Integer = $Piece($Piece(ProductLijst, "\", Index), ";", 2)
+		#dim LijnCode As %Integer = (UniekLijnNr * 100)
 		
-		Set LijnCode = (UniekLijnNr*100)
-		Set ^KTO(LeverancierID,ToeleveringID,LijnNr)="\"_ProductID_"\"_Aantal_"\\\2.84\#\\284.00\284.00\\L\14\\"_LijnCode_"\284.00\KTRPL\\\\E\EUR\\G\11/46\\\\11/46\\\\\\\"
+		Set ^KTO(LeverancierID, ToeleveringID, LijnNr) = "\"_ProductID_"\"_Aantal_"\\\2.84\#\\284.00\284.00\\L\14\\"_LijnCode_"\284.00\KTRPL\\\\E\EUR\\G\11/46\\\\11/46"
 		
 		/// Index opbouwen voor deze ToeleveringLijn
 		DO BUILDTO^FLOWTOE3(LeverancierID, ToeleveringID, LijnNr)
@@ -57,7 +59,7 @@
 	}
 	
 	/// Volgend UniekLijnNr instellen
-	Set ^KTO(LeverancierID,ToeleveringID,4) = UniekLijnNr
+	Set ^KTO(LeverancierID, ToeleveringID, 4) = UniekLijnNr
 	
 	Quit ToeleveringID
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml
===================================================================
diff -u -r29937 -r33369
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 29937)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 33369)
@@ -86,111 +86,81 @@
 <Method name="MaakToelevering1">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
-	Set SlotLabel=0
-	Set KLNr=1239
-	Set SequenceNr=0
+	/// QueueList: 'item1\item2\item3' met volgende inhoud: PRNr,Aantal,VHossID
+	#dim QueueList As %String = "1001;3\1002;2\1004;2\1005;1"
 	
-	/// QueueList : item1\item2\item3 
-	/// met volgende inhoud : PRNr,Aantal,VHossID	/// 
-	Set QueueList = "1001;3\1002;2\1004;2\1005;1"
-	
-	/// Toelevering opzetten
-	
-	#dim LeverancierNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Halux())
-	Set ..TOENr1 = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer,QueueList)
+	Set ..TOENr1 = ..MaakToeleveringVoorQueueList(QueueList)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakToelevering2">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
+	/// QueueList: 'item1\item2\item3' met volgende inhoud: PRNr,Aantal
+	#dim QueueList As %String ="1001;3\1002;2\1006;2"
 	
-	Set BatchID=99999
-	Set SlotLabel=0
-	Set KLNr=1239
-	Set SequenceNr=0
-	
-	/// QueueList : item1\item2\item3
-	/// met volgende inhoud : PRNr,Aantal/// 
-	Set QueueList = "1001;3\1002;2\1006;2"
-	
-	/// Toelevering opzetten
-	#dim LeverancierNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Halux())
-	Set ..TOENr2 = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer,QueueList)
+	Set ..TOENr2 = ..MaakToeleveringVoorQueueList(QueueList)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakToelevering4Werkpost">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
-	Set SlotLabel=0
-	Set KLNr=4682
-	Set SequenceNr=0
-	
-	/// QueueList : item1\item2\item3 
-	/// met volgende inhoud : PRNr;Aantal;VHossID	/// 
-	Set QueueList = ..#TBX1_";1\"_..#TBXSpoelbak_";1\"_..#TBXTipOn_";1\"_..#TBXSyfon_";1"
+	/// QueueList: 'item1\item2\item3' met volgende inhoud: PRNr;Aantal;VHossID
+	#dim QueueList As %String = ..#TBX1 _ ";1\" _ ..#TBXSpoelbak _ ";1\" _ ..#TBXTipOn _ ";1\" _ ..#TBXSyfon _ ";1"
 
-	/// Toelevering opzetten
-	#dim LeverancierNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Halux())
-	Set ..TOENrWerkpost = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer,QueueList)
+	Set ..TOENrWerkpost = ..MaakToeleveringVoorQueueList(QueueList)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakToeleveringPersWerkpost">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
-	Set SlotLabel=0
-	Set KLNr=4682
-	Set SequenceNr=0
-	
-	/// QueueList : item1\item2\item3 
-	/// met volgende inhoud : PRNr;Aantal;VHossID	/// 
-	Set QueueList = ..#TBX1_";1\"_..#TBXSpoelbak_";1\"_..#TBXTipOn_";1\"_..#TBXStalenRug_";1"
+	/// QueueList: 'item1\item2\item3' met volgende inhoud: PRNr;Aantal;VHossID
+	#dim QueueList As %String = ..#TBX1 _ ";1\" _ ..#TBXSpoelbak _ ";1\" _ ..#TBXTipOn _ ";1\" _ ..#TBXStalenRug _ ";1"
 
-
-	/// Toelevering opzetten
-	#dim LeverancierNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Halux())
-	Set ..TOENrWerkpost = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer,QueueList)
+	Set ..TOENrWerkpost = ..MaakToeleveringVoorQueueList(QueueList)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakToeleveringSpecials">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
-	Set SlotLabel=0
-	Set KLNr=4682
-	Set SequenceNr=0
+	/// QueueList: 'item1\item2\item3' met volgende inhoud: PRNr;Aantal;VHossID
+	#dim QueueList As %String = ..#TBXSpecialRug _ ";1"
 	
-	/// QueueList : item1\item2\item3 
-	/// met volgende inhoud : PRNr;Aantal;VHossID	/// 
-	Set QueueList = ..#TBXSpecialRug_";1"
+	Set ..TOENrSpecials = ..MaakToeleveringVoorQueueList(QueueList)
+]]></Implementation>
+</Method>
 
-
-	/// Toelevering opzetten
+<Method name="MaakToeleveringVoorQueueList">
+<FormalSpec>QueueList:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
 	#dim LeverancierNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Halux())
-	Set ..TOENrSpecials = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer,QueueList)
+	
+	Quit ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer, QueueList)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakBatch">
 <FormalSpec>lbTOENrs:%List</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.BatchImpl</ReturnType>
 <Implementation><![CDATA[
-	Set TOENrs=##class(%ListOfDataTypes).%New()
-	For I=1:1:$LL(lbTOENrs)
-	{
-		Do TOENrs.Insert(..ToeleveringAPI.GeefToelevering($LI(lbTOENrs,I)))
+	#dim ToeleveringNummers As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Index As %Integer
+
+	For Index=1:1:$ListLength(lbTOENrs) {
+		Do ToeleveringNummers.Insert(..ToeleveringAPI.GeefToelevering($List(lbTOENrs, Index)))
 	}
-	Set ..Batch = ##class(vhUnitTest.APPS.Halux.BatchUtils).GeefNieuweBatch(TOENrs)
+	
+	Set ..Batch = ##class(vhUnitTest.APPS.Halux.BatchUtils).GeefNieuweBatch(ToeleveringNummers)
 	Do ..Batch.%Save()
-	Set SequentieService=##class(APPS.Halux.common.impl.SequentieService).%New()
+	
+	#dim SequentieService As APPS.Halux.common.SequentieService = ##class(APPS.Halux.common.impl.SequentieService).%New()
 	Do SequentieService.GenereerSequentie(..Batch)
+	
 	Quit ..Batch
 ]]></Implementation>
 </Method>
@@ -199,7 +169,7 @@
 <FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set BatchService=##class(APPS.Halux.common.impl.BatchService).%New()
+	#dim BatchService As APPS.Halux.common.BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
 	Do BatchService.VerwijderBatch(Batch.%Id())
 ]]></Implementation>
 </Method>