Index: APPS/TRANSP/GLS/GLSv1/impl/BerichtVerzenderTemplate.cls.xml
===================================================================
diff -u -r40697 -r54196
--- APPS/TRANSP/GLS/GLSv1/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 40697)
+++ APPS/TRANSP/GLS/GLSv1/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 54196)
@@ -18,15 +18,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ResponseControleur">
+<Type>APPS.TRANSP.GLS.GLSv1.impl.ResponseControleur</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>CommunicatieServiceLocator:APPS.TRANSP.GLS.GLSv1.CommunicatieServiceLocator</FormalSpec>
+<FormalSpec>CommunicatieServiceLocator:APPS.TRANSP.GLS.GLSv1.CommunicatieServiceLocator,ResponseControleur:APPS.TRANSP.GLS.GLSv1.impl.ResponseControleur=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..CommunicatieServiceLocator = $$$Inject(CommunicatieServiceLocator,##class(APPS.TRANSP.GLS.GLSv1.impl.CommunicatieServiceLocator).%New())
 	set ..RequestBouwer = ..CommunicatieServiceLocator.GeefRequestBouwer()
+	Set ..ResponseControleur = $$$Inject(ResponseControleur,##class(APPS.TRANSP.GLS.GLSv1.impl.ResponseControleur).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -59,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)
 	
@@ -79,7 +86,7 @@
 <FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VerzendData As APPS.TRANSP.GLS.data.VerzendData = ..GeefVerzendData(Request.GeefVerzendDataID())
+	#dim VerzendData As APPS.TRANSP.GLS.GLSv1.data.VerzendData = ..GeefVerzendData(Request.GeefVerzendDataID())
 	
 	#dim IsNieuweVerzendData As %Boolean = ( VerzendData.%Id() = "" )
 	if IsNieuweVerzendData {
@@ -105,10 +112,10 @@
 
 	set VerzendData.Response = Response
 	
-	If ..ResponseBevatFout(Response) {
+	If ..ResponseControleur.ResponseBevatFout(Response) {
 		set VerzendData.Status = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status).Failed()
 		do VerzendData.Save()
-		Set Error = ..GeefFoutInResponse(Response)
+		Set Error = ..ResponseControleur.GeefFoutInResponse(Response)
 		do ..ThrowError(Error, VerzendData)
 	}
 	
@@ -159,25 +166,38 @@
 
 <Method name="ThrowError">
 <Final>1</Final>
-<FormalSpec>Error:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error,VerzendData:APPS.TRANSP.GLS.data.VerzendData</FormalSpec>
+<FormalSpec>Error:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error,VerzendData:APPS.TRANSP.GLS.GLSv1.data.VerzendData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim BerichtVoorGebruiker As %String = ""
 	#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()){
@@ -190,15 +210,15 @@
 <Final>1</Final>
 <FormalSpec>ID:%String=""</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.TRANSP.GLS.data.VerzendData</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.data.VerzendData</ReturnType>
 <Implementation><![CDATA[
-	#dim VerzendData As APPS.TRANSP.GLS.data.VerzendData
+	#Dim VerzendData As APPS.TRANSP.GLS.GLSv1.data.VerzendData
 	if $length(ID) {
-	  	set VerzendData = ##class(APPS.TRANSP.GLS.data.VerzendData).OpenId(ID)
+	  	set VerzendData = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).OpenId(ID)
 	} else {
-	  	set VerzendData = ##class(APPS.TRANSP.GLS.data.VerzendData).%New()		
+	  	set VerzendData = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).%New()		
 	}
-	quit VerzendData
+	Quit VerzendData
 ]]></Implementation>
 </Method>
 
@@ -207,55 +227,22 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim BerichtVoorICT As %String = $$$CRLF_Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_$$$CRLF
+	#Dim BerichtVoorICT As %String = $$$CRLF_Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_$$$CRLF
 	Quit BerichtVoorICT
 ]]></Implementation>
 </Method>
 
 <Method name="ResponseBevatFout">
 <FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim BevatFout As %Boolean = 0
-	set Filter = ##class(TECH.ClassUtils.PropertyFilter).%New()
-	set Filter.BeginnendMet = "E"
-	set Filter.SkipPrivate = 1
-	set itProperties = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties(Response.%ClassName(1),Filter))
-	while itProperties.HasNext() && 'BevatFout {
-		#dim Property As %String = itProperties.Next()
-		#dim Waarde As %String = ##class(TECH.StringUtils).TrimWhitespaces($property(Response,Property))
-		If (Property = "E000"){
-			Set BevatFout = 0	
-			If ((Waarde '= "") && (Waarde '= "OK") && ('(##class(TECH.Integer).IsValid(Waarde)))) {
-				Do ##class(vhLib.Logger).%New("GLS").Warning("ResponseBevatFout",Waarde_$C(13,10)_$C(13,10)_$$ObjToText^vhLib(Response))		
-			}
-		}Else{
-			Set BevatFout = (Waarde '= "")
-		}
-	}
-	quit BevatFout
+<Implementation><![CDATA[	Quit ..ResponseControleur.ResponseBevatFout(Response)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFoutInResponse">
 <FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response</FormalSpec>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error</ReturnType>
-<Implementation><![CDATA[
-	set Fout = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error).%New()
-	
-	set Filter = ##class(TECH.ClassUtils.PropertyFilter).%New()
-	set Filter.BeginnendMet = "E"
-	set Filter.SkipPrivate = 1
-	set itProperties = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties(Response.%ClassName(1),Filter))
-	while itProperties.HasNext() {
-		#dim Property As %String = itProperties.Next()
-		#dim Waarde As %String = $property(Response,Property)
-		if $length(Waarde) {
-			set Fout = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.Error).%New(Property,Waarde)
-		}
-	}
-	
-	quit Fout
+<Implementation><![CDATA[	Quit ..ResponseControleur.GeefFoutInResponse(Response)
 ]]></Implementation>
 </Method>
 </Class>