Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml
===================================================================
diff -u -r48720 -r48757
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml	(.../KlantAdresDixfConverter.cls.xml)	(revision 48720)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml	(.../KlantAdresDixfConverter.cls.xml)	(revision 48757)
@@ -14,10 +14,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="IsPrimaryLijst">
-<Type>%ListOfDataTypes</Type>
-<Private>1</Private>
-</Property>
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Property IsPrimaryLijst As %ListOfDataTypes [ Private ];
+*/
+]]></Content>
+</UDLText>
 
 <Method name="%OnNew">
 <Private>1</Private>
@@ -27,7 +30,7 @@
 <Implementation><![CDATA[
 	Set ..AdminToAXUtils = ##class(AXimpl.AdminToAxUtils).%New()
 	Set ..AXimplFormatter = ##class(AXimpl.Formatter).%New()
-	Set ..IsPrimaryLijst = ##class(%ListOfDataTypes).%New()
+	;Set ..IsPrimaryLijst = ##class(%ListOfDataTypes).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -49,7 +52,7 @@
 	Set AxKlantAdres.DlvModeId = ..GeefDlvModeId(AdresEnKlantObject)
 	Set AxKlantAdres.DlvTermId = ..GeefDlvTermId(AdresEnKlantObject)
 	Set AxKlantAdres.LocationRole = ..GeefLocationRole(AdresEnKlantObject)
-	Set AxKlantAdres.IsPrimary = ..GeefIsPrimary(AdresEnKlantObject, AxKlantAdres.LocationRole)
+	;Set AxKlantAdres.IsPrimary = ..GeefIsPrimary(AdresEnKlantObject, AxKlantAdres.LocationRole)
 	Set AxKlantAdres.Street = AdresEnKlantObject.Adres.GeefStraat()
 	Set AxKlantAdres.ZipCode = AdresEnKlantObject.Adres.GeefPostcode()
 	
@@ -71,11 +74,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIsPrimary">
-<FormalSpec>AdresEnKlantObject:AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres,LocationRole:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method GeefIsPrimary(AdresEnKlantObject As AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres, LocationRole As %String) As %String [ Private ]
+{
 	Quit:LocationRole="Business" "1"
 	
 	If $$$Not(##class(TECH.ListUtils).Contains(..IsPrimaryLijst, AdresEnKlantObject.Klant.GeefID()_AdresEnKlantObject.Adres.Type)) {
@@ -84,8 +87,10 @@
 	}
 	
 	Quit "0"
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="GeefDlvModeId">
 <FormalSpec>AdresEnKlantObject:AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres</FormalSpec>