Index: WS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56087 -r56090
--- WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56087)
+++ WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56090)
@@ -92,11 +92,13 @@
 		Set Result.Header.Omschrijving = Exception.GeefOmschrijving()
 	}
 	If $$$HasLength(Result.Header.Omschrijving) {
+		#dim TeLoggenTekst As %String = ""
 		If $$$HasLength(Result.Header.OmschrijvingVoorLogging) {
-			Do ##class(vhLib.Logger).%New("WS.Halux.AAP.DnaCodeService").Warning(UitTeVoerenMethod,Result.Header.OmschrijvingVoorLogging)
+			Set TeLoggenTekst = Result.Header.OmschrijvingVoorLogging
 		} Else {
-			Do ##class(vhLib.Logger).%New("WS.Halux.AAP.DnaCodeService").Warning(UitTeVoerenMethod,Result.Header.Omschrijving)
+			Set TeLoggenTekst = Result.Header.Omschrijving
 		}
+		Do ##class(vhLib.Logger).%New("WS.Halux.AAP.DnaCodeService").Warning(UitTeVoerenMethod,Request.Header.Initialen_" - "_UitTeVoerenMethod,Request.Header.ComputerNaam_" - "_TeLoggenTekst)
 	}
 	Quit Result
 ]]></Implementation>