Index: DOM/AKP/event/ProductToelevLijnEventData.cls.xml
===================================================================
diff -u -r6867 -r16794
--- DOM/AKP/event/ProductToelevLijnEventData.cls.xml	(.../ProductToelevLijnEventData.cls.xml)	(revision 6867)
+++ DOM/AKP/event/ProductToelevLijnEventData.cls.xml	(.../ProductToelevLijnEventData.cls.xml)	(revision 16794)
@@ -42,6 +42,19 @@
 	Set ..ToeleveringLijnCode = ToeleveringLijnCode
 	Set ..ProductID = ProductID
 	Set ..LeverancierID = "L||"_LeverancierID
+	
+	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)))
+		Do ##class(vhLib.Logger).%New("EventLog").Debug("ProductToelevLijnEventData",Inhoud)
+	}Else{
+		Do ##class(vhLib.Logger).%New("EventLog").Debug("ToeleveringEventData","Data niet ingevuld.")
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>