Index: vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter/Test.cls.xml
===================================================================
diff -u -r42157 -r55702
--- vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42157)
+++ vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 55702)
@@ -81,6 +81,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Test: Caché verzendwijze GL4 wordt DI1">
+<Implementation><![CDATA[
+	Do ..Leveradres.ZetVerzendingWijze("GL4;2`GL4;5")
+	
+	#dim GeconverteerdeLeverAdres As AXif.Crm.CustomerAddressUpsertOut.MessageParts.Address = ..GeefAddress(..Leveradres.GeefID())
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.Verzendwijze,"DI1(Di),DI1(Vr)")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Geen landcode in leveradres -&gt; defaulten naar landcode van hoofdadres">
 <Implementation><![CDATA[
 	Do ..Leveradres.ZetLandNr("")