Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml
===================================================================
diff -u -r32885 -r32886
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32885)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32886)
@@ -48,12 +48,10 @@
 	Set KlantEtiketUitvoeringInfo1.ProductID = "1066928"
 	Set KlantEtiketUitvoeringInfo1.SequentieNummer = 1
 	Set KlantEtiketUitvoeringInfo1.WerklijstItemID = "2512022"
-	Set KlantEtiketUitvoeringInfo1.KlantEtiketData = ..MaakKlantEtiketData()
 
 	Set KlantEtiketUitvoeringInfo2.ProductID = "1141223"
 	Set KlantEtiketUitvoeringInfo2.SequentieNummer = 2
 	Set KlantEtiketUitvoeringInfo2.WerklijstItemID = "2512023"
-	Set KlantEtiketUitvoeringInfo2.KlantEtiketData = ..MaakKlantEtiketData()
 	
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo2)
@@ -83,13 +81,11 @@
 	Set KlantEtiketUitvoeringInfo1.ProductID = "1066928"
 	Set KlantEtiketUitvoeringInfo1.SequentieNummer = 1
 	Set KlantEtiketUitvoeringInfo1.WerklijstItemID = "2512022"
-	Set KlantEtiketUitvoeringInfo1.KlantEtiketData = ..MaakKlantEtiketData()
-	
+
 	Set KlantEtiketUitvoeringInfo2.ProductID = "1141223"
 	Set KlantEtiketUitvoeringInfo2.SequentieNummer = 2
 	Set KlantEtiketUitvoeringInfo2.ToeleveringID = "222223"
 	Set KlantEtiketUitvoeringInfo2.WerklijstItemID = "2512023"
-	Set KlantEtiketUitvoeringInfo2.KlantEtiketData = ..MaakKlantEtiketData()
 	Set KlantEtiketUitvoeringInfo2.KlantEtiketData.Dossier = 222223
 	
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
@@ -118,10 +114,7 @@
 	#dim KlantEtiketUitvoeringInfo2 As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ..MaakKlantEtiketUitvoeringInfo()
 	
 	Set KlantEtiketUitvoeringInfo1.SequentieNummer = 1
-	Set KlantEtiketUitvoeringInfo1.KlantEtiketData = ..MaakKlantEtiketData()
-	
 	Set KlantEtiketUitvoeringInfo2.SequentieNummer = 2
-	Set KlantEtiketUitvoeringInfo2.KlantEtiketData = ..MaakKlantEtiketData()
 	
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo2)
@@ -165,7 +158,8 @@
 	Set UitvoeringInfo.ToeleveringSequentieNummer = "1"
 	Set UitvoeringInfo.TotaalAantal = 1
 	Set UitvoeringInfo.VerwerkingID = ""
-	Set UitvoeringInfo.WerklijstItemID = "33333333"   
+	Set UitvoeringInfo.WerklijstItemID = "33333333" 
+	Set UitvoeringInfo.KlantEtiketData = ..MaakKlantEtiketData()  
 	
 	Quit UitvoeringInfo
 ]]></Implementation>