Index: vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml
===================================================================
diff -u -r29059 -r58998
--- vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml	(.../TestTipon.cls.xml)	(revision 29059)
+++ vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml	(.../TestTipon.cls.xml)	(revision 58998)
@@ -16,7 +16,7 @@
 	Set LabelPrinterMockT = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
 
 	for i=1:1:4 {
-	 	Set pxLabel=##class(BL.PPS.TBX.sub.pxLabelV1).%New()
+	 	Set pxLabel=##class(LabelMock).%New()
 		Do pxLabel.SetTipon(0)
 		Set pxLabel.VolgNr = i
 		Set pxLabel.BatchID = "123"
@@ -62,7 +62,7 @@
 	#dim i=0
 	Set pxLabelIterator = ##class(TECH.ListIterator).%New(LabelList)
 	While pxLabelIterator.HasNext() {
-		#dim pxLabel As BL.PPS.TBX.sub.pxLabelV1 = pxLabelIterator.Next()
+		#dim pxLabel As vhUnitTest.BL.PPS.TBX.LabelMock = pxLabelIterator.Next()
 		Set i=i+1
 		Do:MultiProcessorZ.Process(.pxLabel) LabelPrinterMockZ.Add(pxLabel)
 		Set:(i=4) NextLabel = pxLabel
@@ -80,7 +80,7 @@
 	Do $$$AssertEquals(LabelPrinterMockT.Count, 2, "T # labels added to printer")
 	Do $$$AssertEquals(LabelPrinterMockT.LastSeqNr, 3, "T Last label sequence number")
 	// Intermediate tipon indication on the label in "zaaglijst" following a series of tipons
-	Do $$$AssertEquals(NextLabel.TiponCountBefore, 2, "Z Intermediate tipon count")
+	Do $$$AssertEquals(NextLabel.GeefTiponCount(), 2, "Z Intermediate tipon count")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -102,7 +102,7 @@
 
 	Set pxLabelIterator = ##class(TECH.ListIterator).%New(LabelList)
 	While pxLabelIterator.HasNext() {
-		#dim pxLabel As BL.PPS.TBX.sub.pxLabelV1 = pxLabelIterator.Next()
+		#dim pxLabel As vhUnitTest.BL.PPS.TBX.LabelMock = pxLabelIterator.Next()
 		Do:TestClassZ.Process(.pxLabel) LabelPrinterMockZ.Add(pxLabel)
 		Do:TestClassT.Process(.pxLabel) LabelPrinterMockT.Add(pxLabel)
 	}
@@ -114,9 +114,9 @@
 	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
 	Do $$$AssertEquals(LabelPrinterMockZ.Count, 3, "Z # labels added to printer")
 	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 3, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountAfter,1,"Er is 1 tipon achter")
+	Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(3).GetTiponCountAfter(),1,"Er is 1 tipon achter")
 	// Asserts for tipon list
 	Do $$$AssertEquals(LabelPrinterMockT.Printed, 1, "T Printed")
 	Do $$$AssertEquals(LabelPrinterMockT.Count, 1, "T # labels added to printer")
@@ -143,7 +143,7 @@
 
 	Set pxLabelIterator = ##class(TECH.ListIterator).%New(LabelList)
 	While pxLabelIterator.HasNext() {
-		#dim pxLabel As BL.PPS.TBX.sub.pxLabelV1 = pxLabelIterator.Next()
+		#dim pxLabel As vhUnitTest.BL.PPS.TBX.LabelMock = pxLabelIterator.Next()
 		Do:TestClassZ.Process(.pxLabel) LabelPrinterMockZ.Add(pxLabel)
 		Do:TestClassT.Process(.pxLabel) LabelPrinterMockT.Add(pxLabel)
 	}
@@ -155,14 +155,14 @@
 	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
 	Do $$$AssertEquals(LabelPrinterMockZ.Count, 3, "Z # labels added to printer")
 	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 5, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountBefore,1,"Er is 1 voorgaande tipon")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountBefore,1,"Er is 1 voorgaande tipon")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountAfter,0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(1).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+	Do $$$AssertEquals(LabelList.GetAt(3).GeefTiponCount(),1,"Er is 1 voorgaande tipon")
+	Do $$$AssertEquals(LabelList.GetAt(5).GeefTiponCount(),1,"Er is 1 voorgaande tipon")
+	Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(3).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(4).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(5).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
 	// Asserts for tipon list
 	Do $$$AssertEquals(LabelPrinterMockT.Printed, 1, "T Printed")
 	Do $$$AssertEquals(LabelPrinterMockT.Count, 2, "T # labels added to printer")
@@ -190,7 +190,7 @@
 
 	Set pxLabelIterator = ##class(TECH.ListIterator).%New(LabelList)
 	While pxLabelIterator.HasNext() {
-		#dim pxLabel As BL.PPS.TBX.sub.pxLabelV1 = pxLabelIterator.Next()
+		#dim pxLabel As vhUnitTest.BL.PPS.TBX.LabelMock = pxLabelIterator.Next()
 		Do:TestClassZ.Process(.pxLabel) LabelPrinterMockZ.Add(pxLabel)
 		Do:TestClassT.Process(.pxLabel) LabelPrinterMockT.Add(pxLabel)
 	}
@@ -202,16 +202,16 @@
 	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
 	Do $$$AssertEquals(LabelPrinterMockZ.Count, 3, "Z # labels added to printer")
 	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 5, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountBefore,1,"Er is 1 voorgaande tipon")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountBefore,1,"Er is 1 voorgaande tipon")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountAfter,1,"Er is 1 tipon achter")
-	Do $$$AssertEquals(LabelList.GetAt(6).TiponCountAfter,0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(1).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+	Do $$$AssertEquals(LabelList.GetAt(2).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+	Do $$$AssertEquals(LabelList.GetAt(3).GeefTiponCount(),1,"Er is 1 voorgaande tipon")
+	Do $$$AssertEquals(LabelList.GetAt(5).GeefTiponCount(),1,"Er is 1 voorgaande tipon")
+	Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(3).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(4).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(5).GetTiponCountAfter(),1,"Er is 1 tipon achter")
+	Do $$$AssertEquals(LabelList.GetAt(6).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
 	// Asserts for tipon list
 	Do $$$AssertEquals(LabelPrinterMockT.Printed, 1, "T Printed")
 	Do $$$AssertEquals(LabelPrinterMockT.Count, 3, "T # labels added to printer")
@@ -220,7 +220,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestMultiProcessorMetTiponSpoelbakTipon">
+<Method name="aTestMultiProcessorMetTiponSpoelbakTipon">
 <Implementation><![CDATA[
 	Set LabelList = ##class(%ListOfObjects).%New()
 	#dim VolgNr As %Integer = 0
@@ -235,7 +235,8 @@
 
 	Set MultiProcessor = ##class(BL.PPS.TBX.MultiProcessorEN).%New()
 	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.TiponLabelProcessor).%New(0))
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.LadenAanPersLabelProcessor).%New(0))
+	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.SifonLabelProcessor).%New(0))
+	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.SpoelbakLabelProcessor).%New(0))
 
 	Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
 	Do ..VerwerkLabelLijst(LabelList,MultiProcessor,LabelPrinterMockZ)
@@ -244,24 +245,14 @@
 	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
 	Do $$$AssertEquals(LabelPrinterMockZ.Count, 3, "Z # labels added to printer")
 	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 7, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountBefore,0,"Er zijn geen tipons")           ; Het spoelbak label zit nog wel in deze sequentie, maar wordt uit de productielijn afgesplitst vooraleer de tipons toegevoegd worden, dus het aantal tipons blijft verder optellen nà spoelbak 
-	Do $$$AssertEquals(LabelList.GetAt(6).TiponCountBefore,3,"Er zijn 3 voorgaande tipons")   ; m.a.w. hier 2 tipons vóór spoelbak + 1 vóór Std-lade = 3 tipons voorgaand. 
-	Do $$$AssertEquals(LabelList.GetAt(7).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(6).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(7).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(1).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")           
-	Do $$$AssertEquals(LabelList.GetAt(5).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoeblak/sifonladen")   
-	Do $$$AssertEquals(LabelList.GetAt(6).LadenAanPersCountBefore,1,"Er is 1 voorgaande spoelbak/sifonladen")   
-	Do $$$AssertEquals(LabelList.GetAt(7).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(1).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(3).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(6).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(7).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	
+	Do $$$AssertEquals(LabelList.GetAt(1).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+	Do $$$AssertEquals(LabelList.GetAt(4).GeefTiponCount(),0,"Er zijn geen tipons")           ; Het spoelbak label zit nog wel in deze sequentie, maar wordt uit de productielijn afgesplitst vooraleer de tipons toegevoegd worden, dus het aantal tipons blijft verder optellen nà spoelbak 
+	Do $$$AssertEquals(LabelList.GetAt(6).GeefTiponCount(),3,"Er zijn 3 voorgaande tipons")   ; m.a.w. hier 2 tipons vóór spoelbak + 1 vóór Std-lade = 3 tipons voorgaand. 
+	Do $$$AssertEquals(LabelList.GetAt(7).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+	Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(4).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(6).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(7).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
 
 	// Asserts for tipon list
 	Set TipOnLabelProcessor = ##class(BL.PPS.TBX.TiponLabelProcessor).%New(1)
@@ -285,10 +276,11 @@
 	Do LabelList.Insert( ..MaakLabelVoorTipon($Increment(VolgNr)) )
 	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
 	Do LabelList.Insert( ..MaakLabelVoorTipon($Increment(VolgNr)) )
-	
+
 	Set MultiProcessor = ##class(BL.PPS.TBX.MultiProcessorEN).%New()
 	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.TiponLabelProcessor).%New(0))
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.LadenAanPersLabelProcessor).%New(0))
+	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.SifonLabelProcessor).%New(0))
+	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.SpoelbakLabelProcessor).%New(0))
 	Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
 
 	Do ..VerwerkLabelLijst(LabelList,MultiProcessor,LabelPrinterMockZ)
@@ -297,18 +289,12 @@
 	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
 	Do $$$AssertEquals(LabelPrinterMockZ.Count, 2, "Z # labels added to printer")
 	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 2, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(1).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountAfter,2,"Er zijn 2 tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(1).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(2).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(5).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(1).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(2).LadenAanPersCountAfter,1,"Er is 1 spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
+	Do $$$AssertEquals(LabelList.GetAt(1).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+	Do $$$AssertEquals(LabelList.GetAt(2).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+	Do $$$AssertEquals(LabelList.GetAt(4).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+	Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountAfter(),2,"Er zijn 2 tipons achter")
+	Do $$$AssertEquals(LabelList.GetAt(4).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
 
 	// Asserts for tipon list
 	Set TipOnLabelProcessor = ##class(BL.PPS.TBX.TiponLabelProcessor).%New(1)
@@ -322,270 +308,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestStandaardEnSifon">
-<Implementation><![CDATA[
-	Set LabelList = ##class(%ListOfObjects).%New()
-	#dim VolgNr As %Integer = 0
-
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	
-	Set Processor = ##class(BL.PPS.TBX.LadenAanPersLabelProcessor).%New(0)
-	Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-
-	Do ..VerwerkLabelLijst(LabelList,Processor,LabelPrinterMockZ)
-
-	// Asserts for "zaaglijst"
-	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
-	Do $$$AssertEquals(LabelPrinterMockZ.Count, 4, "Z # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 6, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(1).LadenAanPersCountBefore,0,"Er zijn geen voorgaande sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountBefore,2,"Er zijn 2 voorgaande sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(6).LadenAanPersCountBefore,0,"Er zijn geen voorgaande sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(1).LadenAanPersCountAfter,0,"Er zijn geen sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountAfter,0,"Er zijn geen sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(6).LadenAanPersCountAfter,3,"Er zijn 3 sifonladen achter")
-
-	// Asserts for tipon list
-	Set SifonLabelProcessor = ##class(BL.PPS.TBX.SifonLabelProcessor).%New(1)
-	Set LabelPrinterMockT = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-	Do ..VerwerkLabelLijst(LabelList,SifonLabelProcessor,LabelPrinterMockT)
-
-	Do $$$AssertEquals(LabelPrinterMockT.Printed, 1, "T Printed")
-	Do $$$AssertEquals(LabelPrinterMockT.Count, 5, "T # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockT.LastSeqNr, 9, "T Last label sequence number")
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="TestStandaardEnSifonEnSpoelbak">
-<Implementation><![CDATA[
-	Set LabelList = ##class(%ListOfObjects).%New()
-	#dim VolgNr As %Integer = 0
-
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	
-	Set Processor = ##class(BL.PPS.TBX.LadenAanPersLabelProcessor).%New(0)
-	Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-
-	Do ..VerwerkLabelLijst(LabelList,Processor,LabelPrinterMockZ)
-
-	// Asserts for "zaaglijst"
-	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
-	Do $$$AssertEquals(LabelPrinterMockZ.Count, 4, "Z # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 6, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(1).LadenAanPersCountBefore,0,"Er zijn geen voorgaande sifonladen/spoelbakladen")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountBefore,2,"Er zijn 2 voorgaande sifonladen/spoelbakladen")
-	Do $$$AssertEquals(LabelList.GetAt(6).LadenAanPersCountBefore,0,"Er zijn geen voorgaande sifonladen/spoelbakladen")
-	Do $$$AssertEquals(LabelList.GetAt(1).LadenAanPersCountAfter,0,"Er zijn geen sifonladen/spoelbakladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountAfter,0,"Er zijn geen sifonladen/spoelbakladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(6).LadenAanPersCountAfter,3,"Er zijn 3 sifonladen/spoelbakladen achter")
-
-	// Asserts for sifon list
-	Set SifonLabelProcessor = ##class(BL.PPS.TBX.SifonLabelProcessor).%New(1)
-	Set LabelPrinterMockT = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-	Do ..VerwerkLabelLijst(LabelList,SifonLabelProcessor,LabelPrinterMockT)
-
-	Do $$$AssertEquals(LabelPrinterMockT.Printed, 1, "T Printed")
-	Do $$$AssertEquals(LabelPrinterMockT.Count, 3, "T # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockT.LastSeqNr, 9, "T Last label sequence number")
-	
-	// Asserts for spoelbak list
-	Set SpoelbakLabelProcessor = ##class(BL.PPS.TBX.SpoelbakLabelProcessor).%New(1)
-	Set LabelPrinterMockT = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-	Do ..VerwerkLabelLijst(LabelList,SpoelbakLabelProcessor,LabelPrinterMockT)
-
-	Do $$$AssertEquals(LabelPrinterMockT.Printed, 1, "T Printed")
-	Do $$$AssertEquals(LabelPrinterMockT.Count, 2, "T # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockT.LastSeqNr, 8, "T Last label sequence number")
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="TestTiponEnSpoelbakEnSifonAtBegin">
-<Implementation><![CDATA[
-	Set LabelList = ##class(%ListOfObjects).%New()
-	#dim VolgNr As %Integer = 0
-
-	Do LabelList.Insert( ..MaakLabelVoorTipon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-
-	Set MultiProcessor = ##class(BL.PPS.TBX.MultiProcessorEN).%New()
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.TiponLabelProcessor).%New(0))
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.LadenAanPersLabelProcessor).%New(0))
-	Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-
-	Do ..VerwerkLabelLijst(LabelList,MultiProcessor,LabelPrinterMockZ)
-
-	// Asserts for "zaaglijst"
-	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
-	Do $$$AssertEquals(LabelPrinterMockZ.Count, 2, "Z # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 5, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountBefore,1,"Er is 1 voorgaande tipon")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountBefore,2,"Er zijn 2 voorgaande spoelbak/sifonladen")
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="TestMultiProcessorMetTiponSpoelbakStdTiponSpoelbak">
-<Implementation><![CDATA[
-	Set LabelList = ##class(%ListOfObjects).%New()
-	#dim VolgNr As %Integer = 0
-
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorTipon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorTipon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorTipon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-
-	Set MultiProcessor = ##class(BL.PPS.TBX.MultiProcessorEN).%New()
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.TiponLabelProcessor).%New(0))
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.LadenAanPersLabelProcessor).%New(0))
-
-	Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-	Do ..VerwerkLabelLijst(LabelList,MultiProcessor,LabelPrinterMockZ)
-	
-		// Asserts for "zaaglijst"
-	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
-	Do $$$AssertEquals(LabelPrinterMockZ.Count, 2, "Z # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 5, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountBefore,2,"Er zijn 2 voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountAfter,1,"Er is 1 tipon achter")
-	Do $$$AssertEquals(LabelList.GetAt(2).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(5).LadenAanPersCountBefore,1,"Er is 1 spoelbak/sifonlade voor")
-	Do $$$AssertEquals(LabelList.GetAt(2).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(3).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(5).LadenAanPersCountAfter,1,"Er is 1 spoelbak/sifon achter")
-
-	// Asserts for tipon list
-	Set TipOnLabelProcessor = ##class(BL.PPS.TBX.TiponLabelProcessor).%New(1)
-	Set LabelPrinterMockT = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-	Do ..VerwerkLabelLijst(LabelList,TipOnLabelProcessor,LabelPrinterMockT)
-
-	Do $$$AssertEquals(LabelPrinterMockT.Printed, 1, "T Printed")
-	Do $$$AssertEquals(LabelPrinterMockT.Count, 3, "T # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockT.LastSeqNr, 6, "T Last label sequence number")
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="TestMultiProcessorMetStdTiponStdSpoelbak">
-<Implementation><![CDATA[
-	Set LabelList = ##class(%ListOfObjects).%New()
-	#dim VolgNr As %Integer = 0
-
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorTipon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-
-	Set MultiProcessor = ##class(BL.PPS.TBX.MultiProcessorEN).%New()
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.TiponLabelProcessor).%New(0))
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.LadenAanPersLabelProcessor).%New(0))
-
-	Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-	Do ..VerwerkLabelLijst(LabelList,MultiProcessor,LabelPrinterMockZ)
-	
-		// Asserts for "zaaglijst"
-	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
-	Do $$$AssertEquals(LabelPrinterMockZ.Count, 3, "Z # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 4, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountBefore,1,"Er is 1 voorgaande tipon")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(2).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(5).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(6).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(3).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountAfter,2,"Er zijn 2 spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(5).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="TestMultiProcessorMetSpoelbakAanBeginSifonAanEind">
-<Implementation><![CDATA[
-	Set LabelList = ##class(%ListOfObjects).%New()
-	#dim VolgNr As %Integer = 0
-
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSpoelbak($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorStd($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	Do LabelList.Insert( ..MaakLabelVoorSifon($Increment(VolgNr)) )
-	
-	Set MultiProcessor = ##class(BL.PPS.TBX.MultiProcessorEN).%New()
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.TiponLabelProcessor).%New(0))
-	Do MultiProcessor.VoegProcessorToe(##class(BL.PPS.TBX.LadenAanPersLabelProcessor).%New(0))
-
-	Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
-	Do ..VerwerkLabelLijst(LabelList,MultiProcessor,LabelPrinterMockZ)
-	
-		// Asserts for "zaaglijst"
-	Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
-	Do $$$AssertEquals(LabelPrinterMockZ.Count, 2, "Z # labels added to printer")
-	Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 5, "Z Last label sequence number")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(4).TiponCountBefore,0,"Er zijn geen voorgaande tipons")
-	Do $$$AssertEquals(LabelList.GetAt(2).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(3).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(5).TiponCountAfter,0,"Er zijn geen tipons achter")
-	Do $$$AssertEquals(LabelList.GetAt(2).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountBefore,3,"Er zijn 3 spoelbak/sifonladen voor")
-	Do $$$AssertEquals(LabelList.GetAt(5).LadenAanPersCountBefore,0,"Er zijn geen voorgaande spoelbak/sifonladen")
-	Do $$$AssertEquals(LabelList.GetAt(3).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(4).LadenAanPersCountAfter,0,"Er zijn geen spoelbak/sifonladen achter")
-	Do $$$AssertEquals(LabelList.GetAt(5).LadenAanPersCountAfter,2,"Er zijn 2 spoelbak/sifonladen achter")
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkLabelLijst">
 <FormalSpec>LabelList:%ListOfObjects,LabelProcessor:BL.PPS.TBX.LabelProcessor,LabelPrinter:BL.Sys.LabelPrinter</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set pxLabelIterator = ##class(TECH.ListIterator).%New(LabelList)
 	While pxLabelIterator.HasNext() {
-		#dim pxLabel As BL.PPS.TBX.sub.pxLabelV1 = pxLabelIterator.Next()
+		#dim pxLabel As vhUnitTest.BL.PPS.TBX.LabelMock = pxLabelIterator.Next()
 		Do:LabelProcessor.Process(.pxLabel) LabelPrinter.Add(pxLabel)
 	}
 	Do:LabelProcessor.PostProcess() LabelPrinter.Print2Bartender()
@@ -595,27 +324,19 @@
 <Method name="MaakLabelVoorStd">
 <FormalSpec>VolgNr:%Integer</FormalSpec>
 <Private>1</Private>
-<ReturnType>BL.PPS.TBX.sub.pxLabelV1</ReturnType>
+<ReturnType>vhUnitTest.BL.PPS.TBX.LabelMock</ReturnType>
 <Implementation><![CDATA[	Quit ..MaakLabel(VolgNr,,0,0)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakLabelVoorTipon">
 <FormalSpec>VolgNr:%Integer</FormalSpec>
 <Private>1</Private>
-<ReturnType>BL.PPS.TBX.sub.pxLabelV1</ReturnType>
+<ReturnType>vhUnitTest.BL.PPS.TBX.LabelMock</ReturnType>
 <Implementation><![CDATA[	Quit ..MaakLabel(VolgNr,,1,0)
 ]]></Implementation>
 </Method>
 
-<Method name="MaakLabelVoorSpoelbak">
-<FormalSpec>VolgNr:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>BL.PPS.TBX.sub.pxLabelV1</ReturnType>
-<Implementation><![CDATA[	Quit ..MaakLabel(VolgNr,,0,1)
-]]></Implementation>
-</Method>
-
 <Method name="MaakLabelVoorSifon">
 <FormalSpec>VolgNr:%Integer</FormalSpec>
 <Private>1</Private>
@@ -624,23 +345,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakLabelVoorTiponSpoelbak">
+<Method name="MaakLabelVoorSpoelbak">
 <FormalSpec>VolgNr:%Integer</FormalSpec>
 <Private>1</Private>
-<ReturnType>BL.PPS.TBX.sub.pxLabelV1</ReturnType>
-<Implementation><![CDATA[	Quit ..MaakLabel(VolgNr,,1,1)
+<ReturnType>vhUnitTest.BL.PPS.TBX.LabelMock</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakLabel(VolgNr,,0,1)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakLabel">
-<FormalSpec>VolgNr:%Integer,BatchID:%String="123",IsTipon:%Boolean=0,IsSpoelbak:%Boolean=0,IsSifon:%Boolean=0</FormalSpec>
+<FormalSpec>VolgNr:%Integer,BatchID:%String="123",IsTipon:%Boolean=0,IsSpoelbak:%Boolean=0</FormalSpec>
 <Private>1</Private>
-<ReturnType>BL.PPS.TBX.sub.pxLabelV1</ReturnType>
+<ReturnType>vhUnitTest.BL.PPS.TBX.LabelMock</ReturnType>
 <Implementation><![CDATA[
-	Set pxLabel=##class(BL.PPS.TBX.sub.pxLabelV1).%New()
+	Set pxLabel=##class(vhUnitTest.BL.PPS.TBX.LabelMock).%New()
 	Do pxLabel.SetTipon(IsTipon)
 	Do pxLabel.SetSpoelbak(IsSpoelbak)
-	Do pxLabel.SetSifon(IsSifon)
 	Set pxLabel.VolgNr = VolgNr
 	Set pxLabel.BatchID = BatchID
 	Quit pxLabel