Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r39591 -r40594
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 39591)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 40594)
@@ -298,6 +298,36 @@
 <Implementation><![CDATA[	Quit ..VerpakkingConvertor.Converteer(..GeefMaatwerkLijnenIterator(..OfferteRepository.GeefViaID(OfferteID)))
 ]]></Implementation>
 </Method>
+
+<Method name="ZetHoofding">
+<FormalSpec>Offerte:%String,Hoofding:APPS.EC.dto.Hoofding</FormalSpec>
+<Implementation><![CDATA[
+	#Dim LeverAdresConvertor As APPS.common.impl.LeverAdresConvertor = ##class(APPS.common.impl.LeverAdresConvertor).%New()
+	
+	If ($IsObject(Hoofding.LeveringDetail)) {
+		Do:($$$Not(Hoofding.LeveringDetail.Datum = "")) Offerte.ZetLeverDatum(Hoofding.LeveringDetail.Datum)
+		Do:($$$Not(Hoofding.LeveringDetail.WensDatum = "")) Offerte.ZetWensLeverDatum(Hoofding.LeveringDetail.WensDatum)
+		Do:($IsObject(Hoofding.LeveringDetail.Adres)) Offerte.ZetLeverAdres(LeverAdresConvertor.NaarObject(Hoofding.LeveringDetail.Adres)) 	
+	}
+		
+	Set Offerte.BestelOpmerking = ..GeefOpgekuisteTekst(Hoofding.BestelOpmerking)
+	Set Offerte.DocumentReferenties.OrderReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.OrderReferentie)
+	Set Offerte.DocumentReferenties.KlantOrderNummer = ..GeefOpgekuisteTekst(Hoofding.Referentie.KlantOrderNummer)
+	Set Offerte.DocumentReferenties.CommissieReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.CommissieReferentie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOpgekuisteTekst">
+<FormalSpec>Tekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AdminTekstUtils As APPS.common.AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()	
+	#dim OpgekuisteTekst As %String = ##class(TECH.StringUtils).Trim(AdminTekstUtils.MaakTekstAdminVriendelijk(Tekst))
+	Set OpgekuisteTekst = ##class(TECH.StringUtils).Replace(OpgekuisteTekst,$C(160),"")
+	Quit OpgekuisteTekst
+]]></Implementation>
+</Method>
 </Class>