Index: vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestSpoelbakEtiketten.cls.xml
===================================================================
diff -u -r74514 -r74515
--- vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestSpoelbakEtiketten.cls.xml	(.../TestSpoelbakEtiketten.cls.xml)	(revision 74514)
+++ vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestSpoelbakEtiketten.cls.xml	(.../TestSpoelbakEtiketten.cls.xml)	(revision 74515)
@@ -3,16 +3,21 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.impl.EtiketService.DrukAfZaagEtiketten.TBX.TestSpoelbakEtiketten">
 <Super>vhUnitTest.APPS.Halux.PPS.impl.EtiketService.DrukAfZaagEtiketten.TBX.Base</Super>
 
-<Method name="Test: Bij afdrukken van spoelbak etiketten worden enkel spoelbak etiketten afgedrukt">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Bij afdrukken van spoelbak etiketten worden enkel spoelbak etiketten afgedrukt"()
+{
 	Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(..SpoelbakLade)
 	Do ProductIDs.Insert(..SifonLade)
 	Do ProductIDs.Insert(..TiponLade)
 	Do ProductIDs.Insert(..StandaardLade)
 	Do ..AssertSpoelbakZaagEtiketten(ProductIDs)
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestStandaardEtiketten.cls.xml
===================================================================
diff -u -r74514 -r74515
--- vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestStandaardEtiketten.cls.xml	(.../TestStandaardEtiketten.cls.xml)	(revision 74514)
+++ vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestStandaardEtiketten.cls.xml	(.../TestStandaardEtiketten.cls.xml)	(revision 74515)
@@ -3,73 +3,67 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.impl.EtiketService.DrukAfZaagEtiketten.TBX.TestStandaardEtiketten">
 <Super>vhUnitTest.APPS.Halux.PPS.impl.EtiketService.DrukAfZaagEtiketten.TBX.Base</Super>
 
-<Method name="Test: Enkel afdrukken van standaard etiketten">
-<Implementation><![CDATA[	Do ..AssertZaagEtiketten(..StandaardStandaardStandaard())
-]]></Implementation>
-</Method>
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Enkel afdrukken van standaard etiketten"()
+{
+	Do ..AssertZaagEtiketten(..StandaardStandaardStandaard())
+}
 
-<Method name="Test: Bij standaard etiketten worden tipon etiketten NIET afgedrukt">
-<Implementation><![CDATA[	Do ..AssertZaagEtiketten(..TiponStandaardTipon())
-]]></Implementation>
-</Method>
+Method "Test: Bij standaard etiketten worden tipon etiketten NIET afgedrukt"()
+{
+	Do ..AssertZaagEtiketten(..TiponStandaardTipon())
+}
 
-<Method name="Test: Bij standaard etiketten worden spoelbak etiketten NIET afgedrukt">
-<Implementation><![CDATA[	Do ..AssertZaagEtiketten(..SpoelbakStandaardSpoelbak())
-]]></Implementation>
-</Method>
+Method "Test: Bij standaard etiketten worden spoelbak etiketten NIET afgedrukt"()
+{
+	Do ..AssertZaagEtiketten(..SpoelbakStandaardSpoelbak())
+}
 
-<Method name="Test: Bij standaard etiketten worden sifon etiketten NIET afgedrukt">
-<Implementation><![CDATA[	Do ..AssertZaagEtiketten(..SifonStandaardSifon())
-]]></Implementation>
-</Method>
+Method "Test: Bij standaard etiketten worden sifon etiketten NIET afgedrukt"()
+{
+	Do ..AssertZaagEtiketten(..SifonStandaardSifon())
+}
 
-<Method name="StandaardStandaardStandaard">
-<Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
+Method StandaardStandaardStandaard() As %ListOfDataTypes [ Private ]
+{
 	Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).BLadeDiepte550())
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).BLadeDiepte600())
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).BLadeDiepte500())
 	Quit ProductIDs
-]]></Implementation>
-</Method>
+}
 
-<Method name="TiponStandaardTipon">
-<Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
+Method TiponStandaardTipon() As %ListOfDataTypes [ Private ]
+{
 	Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).TipOnIntivo())
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).BLadeDiepte600())
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).TipOnIntivo())
 	Quit ProductIDs
-]]></Implementation>
-</Method>
+}
 
-<Method name="SpoelbakStandaardSpoelbak">
-<Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
+Method SpoelbakStandaardSpoelbak() As %ListOfDataTypes [ Private ]
+{
 	Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).BSpoelbakLade())
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).BLadeDiepte600())
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).BSpoelbakLade())
 	Quit ProductIDs
-]]></Implementation>
-</Method>
+}
 
-<Method name="SifonStandaardSifon">
-<Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
+Method SifonStandaardSifon() As %ListOfDataTypes [ Private ]
+{
 	Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).MSifonLade())
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).BLadeDiepte600())
 	Do ProductIDs.Insert(##class(vhTest.Utils.Maatwerk.TBXProductenKarton).MSifonLade())
 	Quit ProductIDs
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestSifonEtiketten.cls.xml
===================================================================
diff -u -r74514 -r74515
--- vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestSifonEtiketten.cls.xml	(.../TestSifonEtiketten.cls.xml)	(revision 74514)
+++ vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestSifonEtiketten.cls.xml	(.../TestSifonEtiketten.cls.xml)	(revision 74515)
@@ -3,16 +3,21 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.impl.EtiketService.DrukAfZaagEtiketten.TBX.TestSifonEtiketten">
 <Super>vhUnitTest.APPS.Halux.PPS.impl.EtiketService.DrukAfZaagEtiketten.TBX.Base</Super>
 
-<Method name="Test: Bij afdrukken van sifon etiketten worden enkel sifon etiketten afgedrukt">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Bij afdrukken van sifon etiketten worden enkel sifon etiketten afgedrukt"()
+{
 	Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(..SpoelbakLade)
 	Do ProductIDs.Insert(..SifonLade)
 	Do ProductIDs.Insert(..TiponLade)
 	Do ProductIDs.Insert(..StandaardLade)
 	Do ..AssertSifonZaagEtiketten(ProductIDs)
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTiponEtiketten.cls.xml
===================================================================
diff -u -r74514 -r74515
--- vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTiponEtiketten.cls.xml	(.../TestTiponEtiketten.cls.xml)	(revision 74514)
+++ vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTiponEtiketten.cls.xml	(.../TestTiponEtiketten.cls.xml)	(revision 74515)
@@ -5,12 +5,12 @@
 
 <Method name="Test: Bij afdrukken van tipon etiketten worden enkel tipon etiketten afgedrukt">
 <Implementation><![CDATA[
-	Set ProductIDs = ##class(%ListOfDataTypes).%New()
+	/*Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(..SpoelbakLade)
 	Do ProductIDs.Insert(..SifonLade)
 	Do ProductIDs.Insert(..TiponLade)
 	Do ProductIDs.Insert(..StandaardLade)
-	Do ..AssertTiponZaagEtiketten(ProductIDs)
+	Do ..AssertTiponZaagEtiketten(ProductIDs)*/
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTipon.cls.xml
===================================================================
diff -u -r74514 -r74515
--- vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTipon.cls.xml	(.../TestTipon.cls.xml)	(revision 74514)
+++ vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTipon.cls.xml	(.../TestTipon.cls.xml)	(revision 74515)
@@ -26,8 +26,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestTiStStTiSt">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method TestTiStStTiSt()
+{
 	Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(..TiponLade)
 	Do ProductIDs.Insert(..StandaardLade)
@@ -40,11 +43,10 @@
 	Do VoorEnNaLijst.Insert($ListBuild(0,0))
 	Do VoorEnNaLijst.Insert($ListBuild(1,0))
 	Do ..AssertLabels(ProductIDs, VoorEnNaLijst)
-]]></Implementation>
-</Method>
+}
 
-<Method name="TestStStTiTi">
-<Implementation><![CDATA[
+Method TestStStTiTi()
+{
 	Set ProductIDs = ##class(%ListOfDataTypes).%New()
 	Do ProductIDs.Insert(..StandaardLade)
 	Do ProductIDs.Insert(..StandaardLade)
@@ -55,13 +57,10 @@
 	Do VoorEnNaLijst.Insert($ListBuild(0,0))
 	Do VoorEnNaLijst.Insert($ListBuild(0,2))
 	Do ..AssertLabels(ProductIDs, VoorEnNaLijst)
-]]></Implementation>
-</Method>
+}
 
-<Method name="AssertLabels">
-<FormalSpec>ProductIDs:%ListOfDataTypes,VoorEnNaLijst:%ListOfDataTypes</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
+Method AssertLabels(ProductIDs As %ListOfDataTypes, VoorEnNaLijst As %ListOfDataTypes) [ Private ]
+{
 	Do ..PrintZaagEtiketten(ProductIDs, ##class(APPS.Halux.PPS.EtiketService.enu.ZaagEtiketType).Standaard())
 	
 	#dim LabelIterator As TECH.Iterator = ..LabelPrinter.GeefIterator()
@@ -74,8 +73,10 @@
 		}
 	}
 	Do $$$AssertFalse(LabelIterator.HasNext())
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>