Index: DOM/PM/impl/LangtekstCreator.cls.xml
===================================================================
diff -u -r67962 -r70898
--- DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 67962)
+++ DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 70898)
@@ -74,13 +74,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="CorpusBreedteBepaler">
+<Type>DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefLangtekst">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,Korttekst:%String="",HalffabItemsBoomOnHerwerkt:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	Set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal)
 	Set ..KleurCodeVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal)
 	Set ..OmleidingNaarDotNetBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler).%New()
+	Set ..CorpusBreedteBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler).%New()
 	
 	Set ..IngegevenKenmerken = IngegevenKenmerken
 	Set ..HalffabItemsBoom = HalffabItemsBoom
@@ -375,6 +381,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefExterneDimensieTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ExterneDimensieTekst As %String = ""
+	
+	If ($$$Not(..CorpusBreedteBepaler.GeefIsBinnenbreedte(..IngegevenKenmerken)) && $$$Not(##class(TECH.StringUtils).Equals(..CorpusBreedteBepaler.GeefWandDikte(..IngegevenKenmerken), "0", ""))) {
+		Set ExterneDimensieTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("corpusbreedte")_": "_..CorpusBreedteBepaler.GeefCorpusBreedte(..IngegevenKenmerken) _ ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("wanddikte")_": "_..CorpusBreedteBepaler.GeefWandDikte(..IngegevenKenmerken)
+	}
+	
+	Quit ExterneDimensieTekst
+]]></Implementation>
+</Method>
+
 <Method name="GeefDraagkrachtTekst">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>