Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r36269 -r41343
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 36269)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 41343)
@@ -262,26 +262,31 @@
 <Method name="LogExceptie">
 <FormalSpec>Exceptie:TECH.IException</FormalSpec>
 <Implementation><![CDATA[
-	#dim LogString As %String = "Context: [ Familie: " _ ..Familie _ ", Variant: " _ ..Variant _ " ]" _ $$$CRLF
+	set Log = ##class(%GlobalCharacterStream).%New()
 	
+	do Log.WriteLine("Context: [ Familie: " _ ..Familie _ ", Variant: " _ ..Variant _ " ]" )
+	
 	If ($IsObject(..BerekeningsSpecificatie)) {
-		Set LogString = LogString _ "BerekeningsSpecificatie: [ BerekenDatum: " _ ..BerekeningsSpecificatie.GeefBerekenDatum()
-		Set LogString = LogString _ ", BerekenTag: " _ ..BerekeningsSpecificatie.GeefBerekenTag()
-		Set LogString = LogString _ ", Hoeveelheid: " _ ..BerekeningsSpecificatie.GeefHoeveelheid()
-		Set LogString = LogString _ ", KlantID: " _ ..BerekeningsSpecificatie.GeefKlantID()
-		Set LogString = LogString _ ", Personality: " _ ..BerekeningsSpecificatie.GeefPersonality().GeefKlant().Nummer _ " ]" _ $$$CRLF
+		Do Log.Write("BerekeningsSpecificatie: [ BerekenDatum: " _ ..BerekeningsSpecificatie.GeefBerekenDatum())
+		Do Log.Write( ", BerekenTag: " _ ..BerekeningsSpecificatie.GeefBerekenTag())
+		Do Log.Write( ", Hoeveelheid: " _ ..BerekeningsSpecificatie.GeefHoeveelheid())
+		Do Log.Write( ", KlantID: " _ ..BerekeningsSpecificatie.GeefKlantID())
+		Do Log.Write( ", Personality: " _ ..BerekeningsSpecificatie.GeefPersonality().GeefKlant().Nummer _ " ]" _ $$$CRLF)
 	}
 	
-	Set LogString = LogString _ "Exceptie: [ " _ Exceptie.ToString() _ " ]"
-	Set LogString = LogString _ $$$CRLF _ "Geregistreerde problemen: "
+	do Log.WriteLine("Exceptie:")
+	do Log.CopyFrom(Exceptie.ToStream())
+	do Log.WriteLine("")
+
+	do Log.Write("Geregistreerde problemen: ")
 	
 	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..BerekeningProblemen)
 	
 	While (Iterator.HasNext()) {
-		Set LogString = LogString _ $$$CRLF _ Iterator.Next().ToString()
+		do Log.WriteLine(Iterator.Next().ToString())
 	}
 
-	Do ##class(vhLib.Logger).%New("Maatwerk framework").Error("Exceptie halffabcontext", LogString)
+	Do ##class(vhLib.Logger).%New().Error("Exceptie halffabcontext", Log)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml
===================================================================
diff -u -r29059 -r41343
--- DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 41343)
@@ -50,29 +50,38 @@
 
 <Method name="GeefDetailOmschrijving">
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..GeefDetailStream().Read()
+]]></Implementation>
+</Method>
+
+<Method name="GeefDetailStream">
+<ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
-	#dim ExceptieString As %String = ""
+	set Detail = ##class(%GlobalCharacterStream).%New()
+	
 	If ..HalffabLijst.Count() > 0 {
-		Set ExceptieString = "Geselecteerde halffabrikaten (ID's):"
+		do Detail.Write("Geselecteerde halffabrikaten (ID's):")
 		Set Iterator = ##class(TECH.ListIterator).%New(..HalffabLijst)
 		#dim ToonKomma As %Boolean = 0
-		While (Iterator.HasNext())
-		{
+		While (Iterator.HasNext()) {
 			#dim Halffab = Iterator.Next()
-			Set:(ToonKomma) ExceptieString = ExceptieString_","
-			Set ExceptieString = ExceptieString_" "_Halffab.GeefProductID()
+			Do:(ToonKomma) Detail.Write(", ")
+			Do Detail.Write(Halffab.GeefProductID())
 			Set ToonKomma = 1
 		}	
 	}
 	
 	If ("" '= ..IngegevenKenmerken) {
-		Set ExceptieString = ExceptieString _ " IngegevenKenmerken:{" _ ##class(Tools.ObjectDumper.Dumper).%New(..IngegevenKenmerken,1).ToString() _ "} "
+		Do Detail.Write(" IngegevenKenmerken:{" )
+		Do Detail.CopyFrom(##class(Tools.ObjectDumper.Dumper).%New(..IngegevenKenmerken,1).ToString())
+		Do Detail.WriteLine("}")
 	}
+	
 	If ("" '= ..BerekenDatum) {
-		Set ExceptieString = ExceptieString _ " BerekenDatum:{" _ ##class(TECH.DateTime).HorologToTimeStamp(..BerekenDatum) _ "} "
+		Do Detail.WriteLine(" BerekenDatum:{" _ ##class(TECH.DateTime).HorologToTimeStamp(..BerekenDatum) _ "} ")
 	}
 	
-	Quit ExceptieString
+	Quit Detail
 ]]></Implementation>
 </Method>
 
@@ -82,14 +91,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToString">
-<ReturnType>%String</ReturnType>
+<Method name="ToStream">
+<ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
-	
-	#dim ExceptieString As %String = ..GeefOmschrijving()_$C(13,10)
-	Set ExceptieString = ExceptieString_..GeefDetailOmschrijving()_$C(13,10)
-	Set ExceptieString =  ExceptieString _ $C(10,13)_##super() _ $C(10,13)
-	Quit ExceptieString
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine(..GeefOmschrijving())
+	do Stream.WriteLine("")
+	do Stream.CopyFrom(..GeefDetailStream())
+	do Stream.WriteLine("")
+	do Stream.CopyFrom(##super())
+	quit Stream
 ]]></Implementation>
 </Method>
 </Class>