Index: APPS/TRANSP/GLS/GLSv1/Bericht/dto/Error.cls.xml
===================================================================
diff -u -r40367 -r52250
--- APPS/TRANSP/GLS/GLSv1/Bericht/dto/Error.cls.xml	(.../Error.cls.xml)	(revision 40367)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/dto/Error.cls.xml	(.../Error.cls.xml)	(revision 52250)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="ErrorCode">
 <Type>%String</Type>
@@ -33,8 +33,8 @@
 <ReturnType>TECH.Exceptions.enu.Niveau</ReturnType>
 <Implementation><![CDATA[
 	#dim Niveau As TECH.Exceptions.enu.Niveau = ##class(TECH.Exceptions.enu.Niveau).Error()
-	if ..ErrorCode?1(1"E001",1"E007",1"E012",1"E013",1"E017",1"E018",1"E666") set Niveau = ##class(TECH.Exceptions.enu.Niveau).InterneError()
-	if ..ErrorCode?1(1"E000",1"E002",1"E003",1"E006",1"E014",1"E015",1"E820") set Niveau = ##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker()
+	if ..ErrorCode?1(1"E007",1"E012",1"E013",1"E017",1"E018",1"E666") set Niveau = ##class(TECH.Exceptions.enu.Niveau).InterneError()
+	if ..ErrorCode?1(1"E000",1"E001",1"E002",1"E003",1"E006",1"E014",1"E015",1"E820") set Niveau = ##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker()
 	if ..ErrorCode?1(1"E998") set Niveau = ##class(TECH.Exceptions.enu.Niveau).InterneWaarschuwing()
 	if ..ErrorCode?1(1"E999") set Niveau = ##class(TECH.Exceptions.enu.Niveau).PleaseRetryError()
 	quit Niveau
@@ -46,7 +46,7 @@
 <Implementation><![CDATA[
 	#dim Omschrijving As %String = i%Omschrijving
 	#dim ExtraInfoVanPropertyOmschrijving As %String = ..HaalExtraInfoVanPropertyOmschrijving()
-	quit $select($length(ExtraInfoVanPropertyOmschrijving):ExtraInfoVanPropertyOmschrijving_" : ",1:"")_Omschrijving
+	quit $select($length(ExtraInfoVanPropertyOmschrijving):ExtraInfoVanPropertyOmschrijving_" : ",1:"")_..VoegToeVeldOmschrijving(Omschrijving)
 ]]></Implementation>
 </Method>
 
@@ -68,6 +68,30 @@
 	quit Info
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeVeldOmschrijving">
+<FormalSpec>Omschrijving:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ConversieTabel As TECH.MultiDim = ""
+	Set ConversieTabel("T863") = "(T863) straat bestemmeling"
+	Set ConversieTabel("T864") = "(T864) woonplaats bestemmeling"
+	Set ConversieTabel("T330") = "(T330) postcode bestemmeling"
+	Set ConversieTabel("T758") = "(T758) telefoon bestemmeling"
+	Set ConversieTabel("T820") = "(T820) straat afzender"
+	Set ConversieTabel("T821") = "(T821) land afzender"
+	Set ConversieTabel("T822") = "(T822) postcode afzender"
+	
+	#dim Key As %String = $Order(ConversieTabel(""))
+	while $$$Not(Key="") {
+		Set Omschrijving = $Replace(Omschrijving, Key, $Get(ConversieTabel(Key)))
+		Set Key = $Order(ConversieTabel(Key))
+	}
+	
+	Quit Omschrijving
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/TestResponse.cls.xml
===================================================================
diff -u -r40545 -r52250
--- vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/TestResponse.cls.xml	(.../TestResponse.cls.xml)	(revision 40545)
+++ vhUnitTest/APPS/TRANSP/GLS/CommunicatieService/TestResponse.cls.xml	(.../TestResponse.cls.xml)	(revision 52250)
@@ -80,7 +80,7 @@
 
 <Method name="TestGeefFoutNiveau">
 <Implementation><![CDATA[
-	do ..AssertFoutNiveau("E001",##class(TECH.Exceptions.enu.Niveau).InterneError())
+	do ..AssertFoutNiveau("E001",##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker())
 	do ..AssertFoutNiveau("E002",##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker())
 	do ..AssertFoutNiveau("E003",##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker())
 	do ..AssertFoutNiveau("E006",##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker())
Index: APPS/TRANSP/GLS/GLSv1/impl/BerichtVerzenderTemplate.cls.xml
===================================================================
diff -u -r40892 -r52250
--- APPS/TRANSP/GLS/GLSv1/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 40892)
+++ APPS/TRANSP/GLS/GLSv1/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 52250)
@@ -172,18 +172,31 @@
 	#dim Calling As %List = ##class(TECH.ClassUtils).GetCallingMethod()
 	#dim CallingMethod As %String = $listget(Calling,1)_" -> "_$listget(Calling,2)
 	
-	If (Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).Waarschuwing()) || (Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker()){
+	If (Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).Waarschuwing()) {
+		
 		Set BerichtVoorGebruiker = Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_"Gelieve zelf of via OV actie te ondernemen."
 		Do ##class(vhLib.Logger).%New("GLS").Warning(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+		
+	}ElseIf(Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).FoutmeldingTeMeldenAanGebruiker()){
+
+		Set BerichtVoorGebruiker = Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_"Gelieve zelf of via OV actie te ondernemen."
+		Do ##class(vhLib.Logger).%New("GLS").Warning(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+		
 	}ElseIf(Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).InterneWaarschuwing()){
+		
 		Set BerichtVoorGebruiker = Error.Niveau_$C(13,10)_"Dit is enkel een waarschuwing. Code en data zijn correct."
 		Do ##class(vhLib.Logger).%New("GLS").WarningMail(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+		
 	}ElseIf(Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).PleaseRetryError()){
+		
 		Set BerichtVoorGebruiker = "Niet gelukt. Gelieve opnieuw te proberen."
 		Do ##class(vhLib.Logger).%New("GLS").WarningMail(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+		
 	}Else{
+		
 		Set BerichtVoorGebruiker = Error.Niveau_$$$CRLF_"Dit probleem moet door ICT opgelost worden."		
 		Do ##class(vhLib.Logger).%New("GLS").ErrorMail(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
+		
 	}
 	
 	If (Error.Niveau '= ##class(TECH.Exceptions.enu.Niveau).InterneWaarschuwing()){