Index: vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/GeefAfleveradres/Test.cls.xml
===================================================================
diff -u -r35146 -r44101
--- vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/GeefAfleveradres/Test.cls.xml	(.../Test.cls.xml)	(revision 35146)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/GeefAfleveradres/Test.cls.xml	(.../Test.cls.xml)	(revision 44101)
@@ -71,6 +71,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test bij standaard LeverAdres wordt volmacht GLS overgenomen van de Klant">
+<Implementation><![CDATA[
+	Do ..LeverAdresData.ZetDelimitedString("1\Naam\Toenaam\Aanspreking\Straat\Postcode\Gemeente\"_##class(DOM.common.enu.Land).Belgie()_"\Taal\10\11\12\13\14\15\16\17\18\19\20\21\22\Volmacht GLS\Opmerking1\Opmerking2\VerzendingsWijze\")
+	Do ..Order.ZetAfleverAdresData(..LeverAdresData)
+	Do ..Order.ZetHoofdingData(..GeefOrderHoofdingData())
+	
+	#Dim AfleverAdres As DOM.VKP.LeverAdres = ..Order.GeefAfleveradres()
+	
+	Do ..AssertAfleverAdres(AfleverAdres)
+	
+	Do $$$AssertEquals(AfleverAdres.GeefVolmacht(), "Volmacht GLS")
+]]></Implementation>
+</Method>
+
 <Method name="AssertAfleverAdres">
 <FormalSpec>AfleverAdres:DOM.VKP.LeverAdres</FormalSpec>
 <Private>1</Private>