Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r53936 -r57019
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 53936)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 57019)
@@ -433,6 +433,21 @@
 	Quit Personality
 ]]></Implementation>
 </Method>
+
+<Method name="IsRechtstreeksTeLeveren">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %Boolean = $$$False
+	If ..GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleNederland() {
+		Set Resultaat = $$$True
+	}
+	If ((..GeefKlantID() = ##class(DOM.VKP.enu.Klant).DuPont()) && ($Piece(..NodeAdres,"\",29)="")) {
+		Set Resultaat = $$$True
+	}
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
 </Class>