Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler/Bereken/Test.cls.xml
===================================================================
diff -u -r41647 -r70140
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 41647)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 70140)
@@ -3,8 +3,11 @@
 <Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler.Bereken.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: schrijft optiboxbestand met referentie en groep als unieke sleutel">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: schrijft optiboxbestand met referentie en groep als unieke sleutel"()
+{
 	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
 	#dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New(FileUtilsFake)
 	#dim RequestWriter As vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake)
@@ -17,11 +20,10 @@
 	Do StapelingBepaler.Bereken(ColliOpPalletDummy)
 	
 	Do RequestWriter.Verifieer()
-]]></Implementation>
-</Method>
+}
 
-<Method name="Test: schrijft optiboxbestand aan de hand van CollisOpPallet">
-<Implementation><![CDATA[
+Method "Test: schrijft optiboxbestand aan de hand van CollisOpPallet"()
+{
 	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
 	#dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New(FileUtilsFake)
 	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake)
@@ -66,8 +68,10 @@
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<packagetoload id=""Packagetoload.1"" solutionid=""DummyReferentie;DummyGroep"" auto=""1"" packageid=""Package.1"" quantity=""2"" batch=""#0#100#0""></packagetoload>"))
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</packagestoload>"))
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</cubeiq>"))
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="GeefBestandVolledigNaam">
 <Private>1</Private>