Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r63185 -r63306
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 63185)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 63306)
@@ -33,7 +33,8 @@
 	Do Order.IndienMethodCall("GeefEindPersonality").DanReturn(##class(DOM.common.VanHoeckePersonality).Instance())
 	Do Order.IndienMethodCall("GeefEmailAdresBesteller").DanReturn("EmailAdresBesteller@vanhoecke.be")
 	Do Order.IndienMethodCall("GeefEmailAdresBevestiging").DanReturn("EmailAdresBevestiging@vanhoecke.be")
-
+	Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn("VerzendingWijze")
+	
 	Quit Order
 ]]></Implementation>
 </Method>
Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml
===================================================================
diff -u -r63218 -r63306
--- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 63218)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 63306)
@@ -40,7 +40,7 @@
 	Set ..DnaCode2.OrderId = $$$DummyString
 	Set ..DnaCode2.Toelevering = $$$DummyString
 	
-	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 ]]></Implementation>
 </Method>
 
Index: BL/Etiket/ProboxInhoud.cls.xml
===================================================================
diff -u -r63290 -r63306
--- BL/Etiket/ProboxInhoud.cls.xml	(.../ProboxInhoud.cls.xml)	(revision 63290)
+++ BL/Etiket/ProboxInhoud.cls.xml	(.../ProboxInhoud.cls.xml)	(revision 63306)
@@ -54,46 +54,46 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
-<Property name="CommissieReferentie">
+<Property name="ProductieWeek">
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
-<Property name="ProductieWeek">
+<Property name="CommissieReferentie">
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Layout = ..#Layout
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	write ..VervangNietPrintbareKaraktersDoorSpatie(..Logo),$$$TAB
-	write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantNaam),$$$TAB
-	write ..VervangNietPrintbareKaraktersDoorSpatie(..InhoudAlsHTML),$$$TAB
-	write ..VervangNietPrintbareKaraktersDoorSpatie(..PalletBarcodeTxt),$$$TAB
-	write ..VervangNietPrintbareKaraktersDoorSpatie(..PalletBarcode),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Logo),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantNaam),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..InhoudAlsHTML),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..PalletBarcodeTxt),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..PalletBarcode),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..OrderRef),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..OrderNr),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..ToeleveringNr),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..VerzendingWijze),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..ProductieWeek),$$$TAB	
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..CommissieReferentie),$$$TAB
 	
-	write $$$CRLF
-	quit $$$OK
+	Write $$$CRLF
+	Quit $$$OK
 ]]></Implementation>
 </Method>
-
-<Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set ..Layout = ..#Layout
-	quit $$$OK
-]]></Implementation>
-</Method>
 </Class>