Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml
===================================================================
diff -u -r63596 -r63607
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml	(.../LosseComponentHoofdingBepaler.cls.xml)	(revision 63596)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml	(.../LosseComponentHoofdingBepaler.cls.xml)	(revision 63607)
@@ -60,65 +60,67 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..Vertaler = Vertaler
-	set ..KleurCodeVertaler = KleurCodeVertaler
-	set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
-	set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()	
-	quit $$$OK
+	Set ..Vertaler = Vertaler
+	Set ..KleurCodeVertaler = KleurCodeVertaler
+	Set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	Set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalHoofding">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,KortTekst:%String</FormalSpec>
 <Implementation><![CDATA[
-	set ..IngegevenKenmerken = IngegevenKenmerken
-	set ..HalffabItemsBoom = HalffabItemsBoom
-	set ..Taal = Taal
-	set ..KortTekst = KortTekst
+	Set ..IngegevenKenmerken = IngegevenKenmerken
+	Set ..HalffabItemsBoom = HalffabItemsBoom
+	Set ..Taal = Taal
+	Set ..KortTekst = KortTekst
 	
-	set ..LosseComponentType = ..ProductieWijzeNaarLosseComponentConverter.Convert(..IngegevenKenmerken.ProductieWijze)
+	Set ..LosseComponentType = ..ProductieWijzeNaarLosseComponentConverter.Convert(..IngegevenKenmerken.ProductieWijze)
 	
-	set ..Hoofding = "TA'OR BOX "
-	do ..Verwerk(IngegevenKenmerken.ProductieWijze)
-	quit ..Hoofding
+	Set ..Hoofding = "TA'OR BOX "
+	Do ..Verwerk(IngegevenKenmerken.ProductieWijze)
+	Quit ..Hoofding
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkRug">
 <Implementation><![CDATA[
 	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(##class(TECH.StringUtils).ToLower(..LosseComponentType), "", $$$True)
+	Set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(##class(TECH.StringUtils).ToLower(..LosseComponentType), "", $$$True)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBodem">
 <Implementation><![CDATA[
 	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(..LosseComponentType)
+	Set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(..LosseComponentType)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkFront">
 <Implementation><![CDATA[
 	#dim Front As DOM.PM.Maatwerk.LadeInfo.Bodem = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
-	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("FrontBinnenlade")
+	Set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("FrontBinnenlade")
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkFrontLBX">
-<Implementation><![CDATA[	Do ..VerwerkFront()
+<Implementation><![CDATA[
+	Do ..VerwerkFront()
+	Set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("voor LEGRABOX")
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkZijkantLinks">
 <Private>1</Private>
-<Implementation><![CDATA[	set ..Hoofding = ..Hoofding _ ..GeefZijkantHoofdingTekst(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links())
+<Implementation><![CDATA[	Set ..Hoofding = ..Hoofding _ ..GeefZijkantHoofdingTekst(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkZijkantRechts">
 <Private>1</Private>
-<Implementation><![CDATA[	set ..Hoofding = ..Hoofding _ ..GeefZijkantHoofdingTekst(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts())
+<Implementation><![CDATA[	Set ..Hoofding = ..Hoofding _ ..GeefZijkantHoofdingTekst(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts())
 ]]></Implementation>
 </Method>
 
@@ -129,23 +131,23 @@
 <Implementation><![CDATA[
 	#dim ZijkantHoofding As TECH.String = ""
 	
-	set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling("Zijkant") _ " "
-	set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling(ZijkantRol)
-	quit ZijkantHoofding
+	Set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling("Zijkant") _ " "
+	Set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling(ZijkantRol)
+	Quit ZijkantHoofding
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBinnenmaatKastTekst">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ..Vertaler.GeefVertaling("BinnenmaatKast") _ " " _ ..IngegevenKenmerken.CorpusBinnenbreedte _ "mm"
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("BinnenmaatKast") _ " " _ ..IngegevenKenmerken.CorpusBinnenbreedte _ "mm"
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLadeHoogteTekst">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	quit ..Vertaler.GeefVertaling("Hoogte") _ " " _ ..IngegevenKenmerken.LadeHoogte
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Hoogte") _ " " _ ..IngegevenKenmerken.LadeHoogte
 ]]></Implementation>
 </Method>
 </Class>