Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFFrontPlaatv000.cls.xml
===================================================================
diff -u -r67150 -r67912
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFFrontPlaatv000.cls.xml	(.../HFFrontPlaatv000.cls.xml)	(revision 67150)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFFrontPlaatv000.cls.xml	(.../HFFrontPlaatv000.cls.xml)	(revision 67912)
@@ -10,58 +10,68 @@
 <ReturnTypeParams>ELEMENTTYPE="%Decimal"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim AfmetingPerBewerkteDimensie As array of %Decimal = ##class(%ArrayOfDataTypes).%New()
-	#dim IsLadeKleurWalnutMediumBrown As %Boolean = (IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())
-	#dim Lengte As %Decimal
 	
-	If IsLadeKleurWalnutMediumBrown {
-		Set Lengte = IngegevenKenmerken.InterneBreedte - 10
-	} Else {
-		Set Lengte = IngegevenKenmerken.InterneBreedte - 15
-	}
+	Do AfmetingPerBewerkteDimensie.SetAt(..GeefFrontPlaatHoogteInMM(IngegevenKenmerken), "Breedte")
+	Do AfmetingPerBewerkteDimensie.SetAt(..GeefFrontPlaatLengteInMM(IngegevenKenmerken), "Lengte")
 	
-	do AfmetingPerBewerkteDimensie.SetAt(..GeefFrontPlaatHoogteInMM(IngegevenKenmerken), "Breedte")
-	Do AfmetingPerBewerkteDimensie.SetAt(Lengte, "Lengte")
-	
-	quit AfmetingPerBewerkteDimensie
+	Quit AfmetingPerBewerkteDimensie
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFrontPlaatHoogteInMM">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit ..GeefFrontHoogteInMM(IngegevenKenmerken.LadeHoogte) - 0
+<Implementation><![CDATA[	Quit ..GeefFrontHoogteInMM(IngegevenKenmerken.LadeHoogte) - 0
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFrontPlaatLengteInMM">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim IsLadeKleurWalnutMediumBrown As %Boolean = (IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())
+	#dim FrontPlaatLengteInMM As %Decimal
+	
+	If IsLadeKleurWalnutMediumBrown {
+		Set FrontPlaatLengteInMM = IngegevenKenmerken.InterneBreedte - 10
+	} Else {
+		Set FrontPlaatLengteInMM = IngegevenKenmerken.InterneBreedte - 15
+	}
+	
+	Quit FrontPlaatLengteInMM
+]]></Implementation>
+</Method>
+
 <Method name="GeefFrontHoogteInMM">
 <FormalSpec>Hoogte:DOM.PM.enu.TAORZijkantHoogte</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim FrontHoogteInMM As TECH.Decimal = ""
 	
-	if (Hoogte = ..Enum.ZijkantHoogte.N) {
-		set FrontHoogteInMM = 80
-	} elseif (Hoogte = ..Enum.ZijkantHoogte.M) {
-		set FrontHoogteInMM = 103.5
-	} elseif (Hoogte = ..Enum.ZijkantHoogte.K) {
-		set FrontHoogteInMM = 141.5
-	} elseif (Hoogte = ..Enum.ZijkantHoogte.C) {
-		set FrontHoogteInMM = 191.5
-	} else {
-		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("De front hoogte, '" _ Hoogte _ "', kan niet in mm omgezet worden."))
+	If (Hoogte = ..Enum.ZijkantHoogte.N) {
+		Set FrontHoogteInMM = 80
+	} ElseIf (Hoogte = ..Enum.ZijkantHoogte.M) {
+		Set FrontHoogteInMM = 103.5
+	} ElseIf (Hoogte = ..Enum.ZijkantHoogte.K) {
+		Set FrontHoogteInMM = 141.5
+	} ElseIf (Hoogte = ..Enum.ZijkantHoogte.C) {
+		Set FrontHoogteInMM = 191.5
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("De front hoogte, '" _ Hoogte _ "', kan niet in mm omgezet worden."))
 	}
 
-	quit FrontHoogteInMM
+	Quit FrontHoogteInMM
 ]]></Implementation>
 </Method>
 
 <Method name="BuilderMoetWerken">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit 1
+<Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>
 
@@ -71,9 +81,9 @@
 <Implementation><![CDATA[
 	#dim SelectieKenmerken As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
 	
-	do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur, "LadeKleur")
+	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur, "LadeKleur")
 	
-	quit SelectieKenmerken
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/common/Document/impl/PDFDocumentMailer.cls.xml
===================================================================
diff -u -r67392 -r67912
--- APPS/common/Document/impl/PDFDocumentMailer.cls.xml	(.../PDFDocumentMailer.cls.xml)	(revision 67392)
+++ APPS/common/Document/impl/PDFDocumentMailer.cls.xml	(.../PDFDocumentMailer.cls.xml)	(revision 67912)
@@ -54,7 +54,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If 0 {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("DocumentLijst is leeg en kan niet geprint worden."))	
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("DocumentLijst is leeg en kan niet gemaild worden."))	
 	}
 ]]></Implementation>
 </Method>