Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r220 -r222
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 220)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 222)
@@ -925,7 +925,7 @@
 	Quit
 MShowVervaldagOFFText(TBXOrdersDto,Taal)
 	New Melding
-	Set Melding=TBXOrdersDto.GeefMeldingOfferteGeldig(Taal)
+	Set Melding=TBXOrdersDto.GeefMeldingOfferteGeldig(Taal,"HTML")
 	If $L(Melding) {
 		Set arShow("VervaldagOFF","INFO")=1
 		Set arShow("VervaldagOFF","TEXT")=Melding
Index: APPS/TBXWeb/dto/TBXOrderLijst.cls.xml
===================================================================
diff -u -r220 -r222
--- APPS/TBXWeb/dto/TBXOrderLijst.cls.xml	(.../TBXOrderLijst.cls.xml)	(revision 220)
+++ APPS/TBXWeb/dto/TBXOrderLijst.cls.xml	(.../TBXOrderLijst.cls.xml)	(revision 222)
@@ -6,6 +6,10 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="OutputHTML">
+<Default>HTML</Default>
+</Parameter>
+
 <Property name="TBXContext">
 <Type>APPS.TBXWeb.TBXContext</Type>
 <Private>1</Private>
@@ -59,7 +63,7 @@
 </Method>
 
 <Method name="GeefMeldingOfferteGeldig">
-<FormalSpec>Taal:%String</FormalSpec>
+<FormalSpec>Taal:%String,OutputFormaat:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Melding=""
@@ -68,16 +72,16 @@
 		Set Vervaldatum=$$$TextBetween(TBXOrder.ExtraTekst,"VVOFF-",";")
 		If (TBXOrder.BevatActies()) {
 		;	  --> indien we Vervaldatum correct kunnnen berekenen, dan : 
-		;	Set OfferteGeldigheidTekst=$$$Replace(##class(cspBasis.GAProdTBox).WebTextValue("OfferteGeldigheidTekst_ofTotEindeActie",Taal,"O"),"::VervalDatum",Vervaldatum)   ; "Deze offerte is 30 dagen geldig of tot einde actie, tot" ... 
-			Set OfferteGeldigheidTekst=##class(cspBasis.GAProdTBox).WebTextValue("OfferteGeldigheidTekst_ofTotEindeActie",Taal,"O")                           ; "Deze offerte is 30 dagen geldig of tot einde actie." 
+		;	Set OfferteGeldigheidTekst=$$$Replace(..GeefVertaling("OfferteGeldigheidTekst_ofTotEindeActie",Taal,"O",OutputFormaat),"::VervalDatum",Vervaldatum)   ; "Deze offerte is 30 dagen geldig of tot einde actie, tot" ... 
+			Set OfferteGeldigheidTekst=..GeefVertaling("OfferteGeldigheidTekst_ofTotEindeActie",Taal,"O",OutputFormaat)                                           ; "Deze offerte is 30 dagen geldig of tot einde actie." 
 		}
 		Else {
-			Set OfferteGeldigheidTekst=$$$Replace(##class(cspBasis.GAProdTBox).WebTextValue("OfferteGeldigheidTekst",Taal,"O"),"::VervalDatum",Vervaldatum)   ; "Deze offerte is 30 dagen geldig, tot" 
+			Set OfferteGeldigheidTekst=$$$Replace(..GeefVertaling("OfferteGeldigheidTekst",Taal,"O",OutputFormaat),"::VervalDatum",Vervaldatum)   ; "Deze offerte is 30 dagen geldig, tot" 
 		}
 
 		If (..MinimaleBestelhoeveelheid>1) {
-			Set VerpakkingOmschrijving=##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_..VerpakkingType,Taal,"L")
-			Set OfferteVoorwaardenTekst=##class(cspBasis.GAProdTBox).WebTextValue("OfferteVoorwaardenTekst",Taal,"O")   ; de placeholders nog te vervangen : volgende lijn! 
+			Set VerpakkingOmschrijving=..GeefVertaling("VPK_"_..VerpakkingType,Taal,"L",OutputFormaat)
+			Set OfferteVoorwaardenTekst=..GeefVertaling("OfferteVoorwaardenTekst",Taal,"O",OutputFormaat)   ; de placeholders nog te vervangen : volgende lijn! 
 			Set Melding=$$$Replace($$$Replace($$$Replace(OfferteVoorwaardenTekst,"::MinimaleBest",..MinimaleBestelhoeveelheid),"::Verpakking",VerpakkingOmschrijving),"::OfferteGeldigTekst",OfferteGeldigheidTekst)
 		}
 		Else {
@@ -132,15 +136,50 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVertalingNietGeformateerd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Intern:%String,Taal:%String="N",TextType:%String="L"</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(Res.Vertaling).GetVertalingPlus("TBW",Intern,TextType,Taal,,1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHtmlVertaling">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Intern:%String,Taal:%String="N",TextType:%String="L"</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(cspBasis.GAProdTBox).WebTextValue(Intern,Taal,TextType)
+]]></Implementation>
+</Method>
+
 <Method name="GeefJavascriptVertaling">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Intern:%String,Taal:%String="N",TextType:%String="L"</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set VertaaldeWaarde=##class(Res.Vertaling).GetVertalingPlus("TBW",Intern,TextType,Taal,,1)
+	Set VertaaldeWaarde=..GeefVertalingNietGeformateerd(Intern,Taal,TextType)
 	Quit $$$Replace(VertaaldeWaarde,$$$CRLF,"\n")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVertaling">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Intern:%String,Taal:%String="N",TextType:%String="L",OutputFormaat:%String=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set VertaaldeWaarde=""
+	If OutputFormaat= ..#OutputHTML {
+		Set VertaaldeWaarde=..GeefHtmlVertaling(Intern,Taal,TextType)
+	}
+	Else {
+		Set VertaaldeWaarde=..GeefVertalingNietGeformateerd(Intern,Taal,TextType)
+	}
+	Quit VertaaldeWaarde
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r216 -r222
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 216)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 222)
@@ -233,6 +233,15 @@
 <Parameter name="XMLNAME" value="MUNT"/>
 </Property>
 
+<Property name="MeldingOfferteGeldig">
+<Description>
+Waarde wordt on-the-flight berekend en ingevuld (proxy) </Description>
+<Type>%String</Type>
+<Transient>1</Transient>
+<Parameter name="XMLIO" value="OUT"/>
+<Parameter name="XMLNAME" value="MELDING_OFFERTE_GELDIG"/>
+</Property>
+
 <Property name="ShowInHist">
 <Type>%Integer</Type>
 <Parameter name="XMLNAME" value="SHOWINHIST"/>
Index: csp/tbx/printpage.cls.xml
===================================================================
diff -u -r134 -r222
--- csp/tbx/printpage.cls.xml	(.../printpage.cls.xml)	(revision 134)
+++ csp/tbx/printpage.cls.xml	(.../printpage.cls.xml)	(revision 222)
@@ -35,7 +35,7 @@
 <Implementation><![CDATA[
 	#define cBln(%v)   ''(%v)
 	
-	New lbDomLU,sDomVERW,XSLhref,pxWSOrd,blnShowVK,blnShowAK,Munt,DataStream,writer,sc
+	New sDomVERW,XSLhref,pxWSOrd,blnShowVK,blnShowAK,Munt,DataStream,writer,sc
 	Set %RemoteIP=$G(%request.CgiEnvs("REMOTE_ADDR"))
 	Set Taal=$$DataFromRqOrSes^cspBasis.Library("Taal",,"N")
     Set wsID=$$DataFromRqOrSes^cspBasis.Library("WSID")
@@ -72,8 +72,6 @@
 	
 	If $IsObject(pxWSOrd) Do
 	. Set:($G(blnBeursUser)) pxWSOrd.TotPrijs=""
-	. ;Set lbDomLU=pxWSOrd.DomainLookUp(pxWSOrd.WebDomain,$LB("VERW"))
-	. ;Set sDomVERW=$LG(lbDomLU,1)
 	. If 'ShowXML Do
 	. . Set XSLhref="TBox WebOrder"_$S($L(sDomVERW)&&(sDomVERW'="VHEPN"):" "_sDomVERW, 1:" VH")_$S(Taal?1(1"N",1"F",1"E",1"D"):"_"_$E(Taal,1), 1:"")_".xsl"
 	. . Set sc=writer.WriteProcessingInstruction("xml-stylesheet","type=""text/xsl"" href="""_XSLhref_"""")
@@ -100,13 +98,15 @@
 	#define ShowNone     ('blnShowVK && 'blnShowAK)
 	#define GetVertaling(%i,%tl,%tt)    ##class(Res.Vertaling).GetVertalingPlus("TBW",%i,%tt,%tl,,1)
 
-	New i,TotPrijs,str,blnContainsGlas
+	New i,TotPrijs,str,blnContainsGlas,TBXContext,TBXOrdersDto
 	Quit:('$IsObject(WSOrd))
 	Set pxWSOrd=WSOrd.%ConstructClone(1)
 	Quit:('$IsObject(pxWSOrd))
-	
-	Set lbDomLU=pxWSOrd.DomainLookUp(pxWSOrd.WebDomain,$LB("VERW"))
-	Set sDomVERW=$LG(lbDomLU,1)
+
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New(pxWSOrd.WebDomain,"")
+	Set sDomVERW=TBXContext.GeefDomeinVerwerker()
+	Set TBXOrdersDto=##class(APPS.TBXWeb.dto.TBXOrderLijst).%New(##class(TECH.ListUtils).CreateListOfObjects(pxWSOrd),TBXContext)
+
 	Set Munt=$$GetUserMunt^cspBasis.Library(sDomVERW,)
 	Set pxWSOrd.Munt=Munt
 	If sDomVERW="SFS" Do
@@ -128,6 +128,8 @@
 	. Set:($L(pxWSOrd.LeverTijd," (")>1) pxWSOrd.LeverTijd=$$$Trim($P(pxWSOrd.LeverTijd," (",1))_" ("_$P(pxWSOrd.LeverTijd," (",2,99)
 	. Set pxWSOrd.LeverTijd=$$$Replace(pxWSOrd.LeverTijd,"Semaine","Sem.")
 	
+	Set pxWSOrd.MeldingOfferteGeldig=TBXOrdersDto.GeefMeldingOfferteGeldig(Taal,"")
+	
 	Do   ; If $L(pxWSOrd.NietMeeleveren) Do
 	. Set str=""
 	. For i=1:1:$L(pxWSOrd.NietMeeleveren,";") Do