Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou
===================================================================
diff -u -r787 -r790
--- csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 787)
+++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 790)
@@ -109,7 +109,7 @@
 	
 	Do ophInschfElmntInfo(wsIDFrom)   ;    ; blnNewFromOrd --> wsIDFrom i.p.v. wsID 
 	
-	Set arShow("ToonMeldingExtraKost40EurPerPallet","INFO")=(TBXContext.IsVHKlantAlsHandelVoorHein(KLNr))
+	Set arShow("ToonMeldingExtraKost40EurPerPallet","INFO")=(TBXContext.IsDomeinHEIN())
 	
 	// Log entry 
 	Do ophAddToLog
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r780 -r790
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 780)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 790)
@@ -464,7 +464,7 @@
 		Set arShow("ToonPrijsNietMeeCPVoorStdHein","INFO")=(TBXContext.IsDomeinHEIN())&&(WSOrd.GeefNietMeeleveren("CorpusProfiel"))&&(WSOrd.HeeftStandaardLaden())
 	}
 	
-	Set arShow("ToonMeldingExtraKost40EurPerPallet","INFO")=(TBXContext.IsVHKlantAlsHandelVoorHein(KLNr))
+	Set arShow("ToonMeldingExtraKost40EurPerPallet","INFO")=(TBXContext.IsDomeinHEIN())
 	
 	Set blnDynaplug=0 /*($IsObject(WSOrd))&&(WSOrd.WebURL="DYNAPLUG IMPORT") */
 	If blnDynaplug Do
Index: csp/vhisie/TBX/MailResult/tmpDev.mac.rou
===================================================================
diff -u -r778 -r790
--- csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 778)
+++ csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 790)
@@ -36,7 +36,7 @@
 	New Leveradres
 	Set Leveradres = $$$Trim($G(%request.Data("LEVERADRES",1)))
 	If ($L(Leveradres)) {
-		Set sComments = Leveradres _ $S(sComments="":"", 1:$$$CRLF_$$$CRLF) _ sComments
+		Set sComments = Leveradres _ $S(sComments="":"", 1:$$$CRLF) _ sComments
 	}
 	Set:($L(sComments)) WSOrd.Opmerking1=sComments
 	Set sc=WSOrd.%Save()
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r787 -r790
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 787)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 790)
@@ -1024,15 +1024,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsVHKlantAlsHandelVoorHein">
-<FormalSpec>KLNr:%String</FormalSpec>
+<Method name="LeveradresBijBestellingplaatsen">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set HandelVoorHein = $$$False
-	If (..IsVHEPN) {
-		Set HandelVoorHein = ##class(TECH.StringUtils).Equals(KLNr, "?????","4682")   ; ..GeefKlantSpecifiekeSetting(KLNr, ##class(APPS.TBXWeb.enu.KlantSpecifiekeSettingSubnode).IsVHKlantAlsHandelVoorHein(), 0)
-	}
-	Quit HandelVoorHein
+<Implementation><![CDATA[	Quit ..IsHEIN
 ]]></Implementation>
 </Method>