Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r63972 -r64280
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 63972)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 64280)
@@ -445,23 +445,24 @@
 <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){
 		Set Resultaat = $$$True
 	}
-	If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant() {
+	If (..GeefKlantID() = Klant.HaefeleBelgie) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant() {
 		Set Resultaat = $$$True
 	}
-	If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).Pavanello()) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefPavanelloNaarEindklant() {
+	If (..GeefKlantID() = Klant.Pavanello) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefPavanelloNaarEindklant() {
 		Set Resultaat = $$$True
 	}
-	If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).Ferexpert()) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefFerexpertNaarEindklant() {
+	If (..GeefKlantID() = Klant.Ferexpert) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefFerexpertNaarEindklant() {
 		Set Resultaat = $$$True
 	}
-	If ((..GeefKlantID() = ##class(DOM.VKP.enu.Klant).DuPont()) && ($Piece(..NodeAdres,"\",29)="")) {
+	If ((..GeefKlantID() = Klant.DuPont) && ($Piece(..NodeAdres,"\",29)="")) {
 		Set Resultaat = $$$True
 	}
-	If ((..GeefKlantID() = ##class(DOM.VKP.enu.Klant).VanRaemdonck()) && ($Piece(..NodeAdres,"\",29)="") && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefVanRaemdonckNaarEindklant()) {
+	If ((..GeefKlantID() = Klant.VanRaemdonck) && ($Piece(..NodeAdres,"\",29)="") && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefVanRaemdonckNaarEindklant()) {
 		Set Resultaat = $$$True
 	}