Index: DOM/AKP/event/ProductToelevLijnEventData.cls.xml
===================================================================
diff -u -r16794 -r19520
--- DOM/AKP/event/ProductToelevLijnEventData.cls.xml	(.../ProductToelevLijnEventData.cls.xml)	(revision 16794)
+++ DOM/AKP/event/ProductToelevLijnEventData.cls.xml	(.../ProductToelevLijnEventData.cls.xml)	(revision 19520)
@@ -45,11 +45,11 @@
 	
 	Set LeverancierNr = LeverancierID
 	If (LeverancierNr'="")&&(ToeleveringID'=""){
-		Set Inhoud = ""
-		Set Inhoud = Inhoud_$$ArrayToText^vhLib($NAME(^KTO(LeverancierNr,ToeleveringID)))	
-		Set Inhoud = Inhoud_$C(13,10)_$C(13,10)_$$ArrayToText^vhLib($NAME(^KTO1(ToeleveringID)))
-		Set Inhoud = Inhoud_$C(13,10)_$C(13,10)_$$ArrayToText^vhLib($NAME(^KTO3(ToeleveringID)))
-		Set Inhoud = Inhoud_$C(13,10)_$C(13,10)_$$ArrayToText^vhLib($NAME(^TO("IU",ToeleveringID)))
+		Set Inhoud = ##class(%GlobalCharacterStream).%New()
+		Do Inhoud.Write( $$ArrayToText^vhLib($NAME(^KTO(LeverancierNr,ToeleveringID))))
+		Do Inhoud.Write($C(13,10)_$C(13,10)_$$ArrayToText^vhLib($NAME(^KTO1(ToeleveringID))))
+		Do Inhoud.Write($C(13,10)_$C(13,10)_$$ArrayToText^vhLib($NAME(^KTO3(ToeleveringID))))
+		Do Inhoud.Write($C(13,10)_$C(13,10)_$$ArrayToText^vhLib($NAME(^TO("IU",ToeleveringID))))
 		Do ##class(vhLib.Logger).%New("EventLog").Debug("ProductToelevLijnEventData",Inhoud)
 	}Else{
 		Do ##class(vhLib.Logger).%New("EventLog").Debug("ToeleveringEventData","Data niet ingevuld.")