Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r60828 -r72255
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 60828)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 72255)
@@ -130,11 +130,19 @@
 </Method>
 
 <Method name="GeefVerzendwijze">
-<ReturnType>DOM.VKP.enu.VerzendWijze</ReturnType>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $P($P(..NodeHoofding,"\",7),"#")
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerzendwijzeID">
+<ReturnType>DOM.VKP.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[
+	#dim Verzendwijze As %String = ..GeefVerzendwijze()
+	Quit $P($P(Verzendwijze,";"),"`")
+]]></Implementation>
+</Method>
+
 <Method name="GeefGewichtInGram">
 <ReturnType>%Double</ReturnType>
 <Implementation><![CDATA[	Quit $P($P(..NodeHoofding,"\",13),"#",3)*1000
@@ -437,13 +445,27 @@
 <Method name="IsRechtstreeksTeLeveren">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
 	#dim Resultaat As %Boolean = $$$False
-	If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleNederland()) || (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()) {
+	If (..GeefKlantID() = Klant.HaefeleNederland) || (..GeefKlantID() = Klant.HaefeleDuitsland) || (..GeefKlantID() = Klant.HaefeleOostenrijk)|| (..GeefKlantID() = Klant.HaefeleItalie)|| (..GeefKlantID() = Klant.HaefeleFrankrijk)|| (..GeefKlantID() = Klant.HaefeleDenemarken)|| (..GeefKlantID() = Klant.HaefeleZwitserland){
 		Set Resultaat = $$$True
 	}
-	If ((..GeefKlantID() = ##class(DOM.VKP.enu.Klant).DuPont()) && ($Piece(..NodeAdres,"\",29)="")) {
+	If (..GeefKlantID() = Klant.HaefeleBelgie) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant() {
 		Set Resultaat = $$$True
 	}
+	If (..GeefKlantID() = Klant.Pavanello) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefPavanelloNaarEindklant() {
+		Set Resultaat = $$$True
+	}
+	If (..GeefKlantID() = Klant.Ferexpert) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefFerexpertNaarEindklant() {
+		Set Resultaat = $$$True
+	}
+	If ((..GeefKlantID() = Klant.DuPont) && ($Piece(..NodeAdres,"\",29)="")) {
+		Set Resultaat = $$$True
+	}
+	If ((..GeefKlantID() = Klant.VanRaemdonck) && ($Piece(..NodeAdres,"\",29)="") && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefVanRaemdonckNaarEindklant()) {
+		Set Resultaat = $$$True
+	}
+
 	
 	Quit Resultaat
 ]]></Implementation>
@@ -461,6 +483,18 @@
 <Implementation><![CDATA[	Quit $Piece(^KUL(..KlantNr,"F",..BonNummer,1),"\",63)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAXSalesId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $P(..NodeHoofding,"\",58)
+]]></Implementation>
+</Method>
+
+<Method name="GeefEmailAddressTrackTrace">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $P(..NodeHoofding,"\",64)
+]]></Implementation>
+</Method>
 </Class>