Index: vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml
===================================================================
diff -u -r51801 -r54515
--- vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml	(.../LadeEigenschappenTBX.cls.xml)	(revision 51801)
+++ vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml	(.../LadeEigenschappenTBX.cls.xml)	(revision 54515)
@@ -37,12 +37,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DMZLade">
+<Method name="BinnenLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX</ReturnType>
 <Implementation><![CDATA[
 	#dim Kenmerken As EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX = ..StandaardLade()
 	
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+
+<Method name="DMZLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerken As EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX = ..BinnenLade()
+	
 	Set Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).D()
 	Set Kenmerken.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).D()
 	Set Kenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()