Index: AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml
===================================================================
diff -u -r48676 -r48715
--- AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml	(.../KlantIteratorFilter.cls.xml)	(revision 48676)
+++ AX/Uitgaand/VKP/impl/KlantIteratorFilter.cls.xml	(.../KlantIteratorFilter.cls.xml)	(revision 48715)
@@ -8,33 +8,21 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Teller">
-<Type>%Numeric</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..RegioFilter = ##class(AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerCreateConverter).%New()
-	Set ..Teller = 0
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="IsValid">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	If (..RegioFilter.IsGenerationNeeded(,Klant)) {
-		Set ..Teller = ..Teller + 1
-		Quit (..Teller < 40)
-	} Else {
-		Quit 0
-	}
+<Implementation><![CDATA[	Quit ..RegioFilter.IsGenerationNeeded(,Klant)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml
===================================================================
diff -u -r48583 -r48715
--- AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml	(.../KlantAdresDixfConverter.cls.xml)	(revision 48583)
+++ AX/Uitgaand/VKP/KlantAdres/impl/KlantAdresDixfConverter.cls.xml	(.../KlantAdresDixfConverter.cls.xml)	(revision 48715)
@@ -4,6 +4,11 @@
 <IncludeCode>vhLib.Macro</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AdminToAXUtils">
+<Type>AXimpl.AdminToAxUtils</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AXimplFormatter">
 <Type>AXimpl.Formatter</Type>
 <Private>1</Private>
@@ -20,6 +25,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..AdminToAXUtils = ##class(AXimpl.AdminToAxUtils).%New()
 	Set ..AXimplFormatter = ##class(AXimpl.Formatter).%New()
 	Set ..IsPrimaryLijst = ##class(%ListOfDataTypes).%New()
 	Quit $$$OK
@@ -32,15 +38,15 @@
 <Implementation><![CDATA[
 	Set AxKlantAdres = ##class(AXdixf.KlantAdres.KlantAdres).%New()
 	
-	Set AxKlantAdres.ADUNota1External = AdresEnKlantObject.Adres.GeefOpmerking1()
-	Set AxKlantAdres.ADUNota2External = AdresEnKlantObject.Adres.GeefOpmerking2()
+	Set AxKlantAdres.ADUNota1External = $Replace(AdresEnKlantObject.Adres.GeefOpmerking1(),";",",")
+	Set AxKlantAdres.ADUNota2External = $Replace(AdresEnKlantObject.Adres.GeefOpmerking2(),";",",")
 	Set AxKlantAdres.ADUTransporterAuth = AdresEnKlantObject.Adres.GeefVolmacht()_"$$##L"_$$$LeftPadding(AdresEnKlantObject.Adres.ID,3," ")
 	Set AxKlantAdres.AddressName = AdresEnKlantObject.Adres.GeefNaam()
 	Set AxKlantAdres.AddressPhone = ""
 	Set AxKlantAdres.City = AdresEnKlantObject.Adres.GeefGemeente()
 	Set AxKlantAdres.CountryRegionId = AdresEnKlantObject.Klant.GeefAdres().GeefLand().GeefIso3()
 	Set AxKlantAdres.CustAccountNum = ..AXimplFormatter.FormatAccountNumber($Piece(AdresEnKlantObject.Klant.GeefID(),"||",2))
-	Set AxKlantAdres.DlvModeId = ""
+	Set AxKlantAdres.DlvModeId = ..GeefDlvModeId(AdresEnKlantObject)
 	Set AxKlantAdres.DlvTermId = ..GeefDlvTermId(AdresEnKlantObject)
 	Set AxKlantAdres.LocationRole = ..GeefLocationRole(AdresEnKlantObject)
 	Set AxKlantAdres.IsPrimary = ..GeefIsPrimary(AdresEnKlantObject, AxKlantAdres.LocationRole)
@@ -81,18 +87,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDlvModeId">
+<FormalSpec>AdresEnKlantObject:AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DlvModeId As %String
+	
+	Set DlvModeId = ..AdminToAXUtils.ConvertVerzendingWijze($$$If($$$Not($$$HasLength(AdresEnKlantObject.Adres.GeefVerzendingWijze())),AdresEnKlantObject.Klant.GeefVerzendingWijze(),AdresEnKlantObject.Adres.GeefVerzendingWijze()))
+	Set DlvModeId = $$$If($$$HasLength(DlvModeId),DlvModeId,"DI1")
+	
+	Quit DlvModeId
+]]></Implementation>
+</Method>
+
 <Method name="GeefDlvTermId">
 <FormalSpec>AdresEnKlantObject:AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim DlvTermId As %String = "EXW"
+	#dim Land As %String = AdresEnKlantObject.Adres.GeefLandNr()
+	#dim IsBeNlLu As %Boolean = $$$If(##class(TECH.StringUtils).Contains(Land,##class(DOM.common.enu.Land).Belgie(),##class(DOM.common.enu.Land).Nederland(),##class(DOM.common.enu.Land).Luxemburg()),$$$True,$$$False)
 	
-	If ($Piece(AdresEnKlantObject.Klant.GeefID(),"||",2) = "6279") {
+	If (($Piece(AdresEnKlantObject.Klant.GeefID(),"||",2) = "6279") || (IsBeNlLu)) {
 		Set DlvTermId = "DAP"
 	}
 	
-	
 	Quit DlvTermId
 ]]></Implementation>
 </Method>
Index: AXimpl/AdminToAxUtils.cls.xml
===================================================================
diff -u -r48679 -r48715
--- AXimpl/AdminToAxUtils.cls.xml	(.../AdminToAxUtils.cls.xml)	(revision 48679)
+++ AXimpl/AdminToAxUtils.cls.xml	(.../AdminToAxUtils.cls.xml)	(revision 48715)
@@ -217,10 +217,20 @@
 <Implementation><![CDATA[
 	Do:(""=VerzendWijze) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen AX Delivery Mode vindbaar voor lege Admin Verzendwijze!"))
 	Quit:("AFC"=VerzendWijze) "AFH" // Uitzondering: geen 1-op-1 mapping bij AFC, want AFC bestaat in AX niet (wordt dus uitgefaseerd).
+	Quit:("DI1;1`DI1;2`DI1;3`DI1;4`DI1;5"=VerzendWijze) "DI1"
+	Quit:("DI2;1`DI2;2`DI2;3`DI2;4`DI2;5"=VerzendWijze) "DI2"
+	Quit:("OD;1`OD;2`OD;3`OD;4`OD;5"=VerzendWijze) "OD"
+	Quit:("EX;"=$Extract(VerzendWijze,1,3)) "EX"
 	
 	Set VerzendWijze = $Translate( VerzendWijze, "`", "&" ) // vhPOPEDIT aanvaardt geen single backquotes; daarom is gekozen voor een andere separator.
 	
 	Set DlvMode=$Piece( $Get(^RES("KLANT","PI","VERZENDWAX","D",VerzendWijze), ""), "`", 2)
+	
+	Set:("Levermethode = OD1 Do"=DlvMode) DlvMode="OD1 Do"
+	Set:( (""=DlvMode) && (VerzendWijze?1"R"2N) ) DlvMode="AFH"
+	Set:( (""=DlvMode) && ##class(TECH.StringUtils).Equals(VerzendWijze, "TNC", "TPC", "TPU", "VT") ) DlvMode="DI1"
+
+	
 	Do:(""=DlvMode) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen AX Delivery Mode gevonden voor Admin Verzendwijze '" _ VerzendWijze _ "'."))
 	Quit DlvMode
 ]]></Implementation>