Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r40340 -r40342
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 40340)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 40342)
@@ -97,6 +97,7 @@
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	Do Mail.ZetVerzender($$$SystemMail("EDI Bestelling"))
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($$$SystemUser)
 	Do Mail.VoegToeOntvanger(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())
 	#dim Inhoud As %String = "Er werd een EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen"
 	#dim Onderwerp As %String = "EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen"