Index: APPS/TRANSP/GLS/GLSv1/impl/BerichtVerzenderTemplate.cls.xml
===================================================================
diff -u -r40892 -r54196
--- 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 54196)
@@ -65,6 +65,7 @@
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</ReturnType>
 <Implementation><![CDATA[
+	do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,Request.%ClassName(1))
 	#dim SocketFactory As APPS.TRANSP.GLS.GLSv1.Socket.Factory = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSSocketFactory()		
 	#dim Socket As APPS.TRANSP.GLS.GLSv1.Socket.GLSSocket = SocketFactory.GeefSocket(Request)
 	
@@ -172,18 +173,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()){