Index: APPS/VKP/OrderIngaveService/TekstLijnenToevoeger.cls.xml
===================================================================
diff -u -r29059 -r34729
--- APPS/VKP/OrderIngaveService/TekstLijnenToevoeger.cls.xml	(.../TekstLijnenToevoeger.cls.xml)	(revision 29059)
+++ APPS/VKP/OrderIngaveService/TekstLijnenToevoeger.cls.xml	(.../TekstLijnenToevoeger.cls.xml)	(revision 34729)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantInstellingenService">
+<Type>APPS.common.KlantInstellingenService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>DateTimeAPI:TECH.DateTime="",FormatAPI:TECH.Format.FormatAPI=""</FormalSpec>
 <Private>1</Private>
@@ -22,6 +27,7 @@
 <Implementation><![CDATA[
 	Set ..DateTimeAPI = $$$Implementation(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
 	Set ..FormatAPI = $$$Implementation(FormatAPI, ##class(APPS.VKP.OrderIngave.IoCContainer).Instance().Resolve("Formatter"))
+	Set ..KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -40,7 +46,7 @@
 	Set OpmerkingTekstblok = $TR(OpmerkingTekstblok,$C(10)_$C(13),"~")
 	Do ..GeefWrappedTekstblok(OpmerkingTekstblok, .mdTekstLijnen, 42, "~")
 
-	#dim ToonTekstLijnenNaOpmerking As %Boolean = Offerte.GeefKlantID() = ##class(DOM.VKP.enu.Klant).SFS()
+	#dim ToonTekstLijnenNaOpmerking As %Boolean = ..KlantInstellingenService.GebruiktKlantOrderNummer(Offerte.GeefKlantID())
 	#dim PrintOBF As %String = "-"
 
 	#dim DeelNr As %Integer = $Order(mdTekstLijnen(""))
Index: FLOWORD.mac.rou
===================================================================
diff -u -r33688 -r34729
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 33688)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 34729)
@@ -33,6 +33,10 @@
  .Do:$D(PRNr) AUTOORD^FLOWORD3
  If $G(OfferteNr),$D(Offerte) Do  ; Verwerken van webshopoffertes (de lijnen)
  . New I,R,GroepKey,Count,objOfferte,Commentaar,BlockId,PrintOBF,ProjectRef,PakketRef,OffertePrijs
+ . New KlantInstellingenService,LegacyPartijAPI,KlantID  
+ . Set KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService()
+ . Set LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+ . Set KlantID = LegacyPartijAPI.GeefKlantPartijID(KLNr)
  . Set Count=0
  . Set objOfferte=##class(Flow.Offerte.Hoofding).%OpenId(OfferteNr)
  . Set Commentaar(1)=$TR(objOfferte.Commentaar,$C(10)_$C(13),"~"),Commentaar="Commentaar"
@@ -42,7 +46,7 @@
  . . For Commentaar=1:1:Commentaar Do
  . . . Set R=$P(Commentaar(Commentaar),"`",5)
  . . . Set Count=Count+1,PRNr(Count)="T\"_R_D_BlockId_PrintOBF_"\\"
- . . . If ($E(R,1,10)="Opmerking:") && (##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)=##class(DOM.VKP.enu.Klant).SFS()) Set PrintOBF="OBF"
+ . . . If ($E(R,1,10)="Opmerking:") && (KlantInstellingenService.GebruiktKlantOrderNummer(KlantID)) Set PrintOBF="OBF"
  . . Kill:$P($G(PRNr(Count)),D,2)="" PRNr(Count)
  . Set GroepKey=""
  . For  Set GroepKey=$O(Offerte("L",GroepKey)) Quit:GroepKey=""  Do
Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r32831 -r34729
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 32831)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 34729)
@@ -41,7 +41,7 @@
 <Method name="GebruiktKlantOrderNummer">
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (KlantID = ##class(DOM.VKP.enu.Klant).SFS())
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(KlantID, ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.VKP.enu.Klant).HaefeleBelgie())
 ]]></Implementation>
 </Method>
 
@@ -55,7 +55,7 @@
 <Method name="WilOrderTotaalZienOpOrderBevestiging">
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBE())
+<Implementation><![CDATA[	Quit (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie())
 ]]></Implementation>
 </Method>