Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml
===================================================================
diff -u -r63187 -r63218
--- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 63187)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 63218)
@@ -81,19 +81,7 @@
 	Set Device = $$$DummyString
 	Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device)
 	
-	Do $$$AssertEquals(Etiket.Device, Device)
-	Do $$$AssertEquals(Etiket.Aantal, 1)
-	Do $$$AssertEquals(Etiket.KlantNaam, Partij.GeefNaam())
-	Do $$$AssertEquals(Etiket.InhoudAlsHTML, InhoudAlsHTML)
-	Do $$$AssertEquals(Etiket.PalletBarcode, ..DnaCode1.PalletCode)
-	Do $$$AssertEquals(Etiket.PalletBarcodeTxt, "TBX1 2345")
-	
-	Do $$$AssertEquals(Etiket.OrderRef, Order.GeefOrderReferentie())
-	Do $$$AssertEquals(Etiket.OrderNr, Order.GeefID())
-	Do $$$AssertEquals(Etiket.ToeleveringNr, ..DnaCode1.Toelevering)
-	Do $$$AssertEquals(Etiket.VerzendingWijze, $$$DummyString)
-	Do $$$AssertEquals(Etiket.ProductieWeek, "1126")
-	Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie())
+	Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order)
 		
 	Do PartijAPIMock.Verifieer()
 	Do HtmlInhoudProboxEtiketBepalerMock.Verifieer()
@@ -128,6 +116,19 @@
 	Set Device = $$$DummyString
 	Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device)
 	
+	Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order)
+		
+	Do PartijAPIMock.Verifieer()
+	Do HtmlInhoudProboxEtiketBepalerMock.Verifieer()
+	Do OrderAPIMock.Verifieer()
+	Do ToeleveringAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="AssertTicket">
+<FormalSpec>Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Do $$$AssertEquals(Etiket.Device, Device)
 	Do $$$AssertEquals(Etiket.Aantal, 1)
 	Do $$$AssertEquals(Etiket.KlantNaam, Partij.GeefNaam())
@@ -141,11 +142,6 @@
 	Do $$$AssertEquals(Etiket.VerzendingWijze, $$$DummyString)
 	Do $$$AssertEquals(Etiket.ProductieWeek, "1126")
 	Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie())
-		
-	Do PartijAPIMock.Verifieer()
-	Do HtmlInhoudProboxEtiketBepalerMock.Verifieer()
-	Do OrderAPIMock.Verifieer()
-	Do ToeleveringAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>