Index: APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml
===================================================================
diff -u -r60393 -r60532
--- APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 60393)
+++ APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 60532)
@@ -47,8 +47,8 @@
 		Set ..TranssmartWSClient = $$$Inject(TranssmartWSClient,##class(WS.Transsmart.impl.TboxServicePort).%New())
 		Do ..TranssmartWSClient.ZetLocationVoorOmgeving(..ConfigMgr.GeefOmgeving())
 	}
-	else {
-		if ..ProjectSettingsAPI.GebruikTranssmartAcceptOmgeving()
+	Else {
+		If ..ProjectSettingsAPI.GebruikTranssmartAcceptOmgeving()
 		{ 
 			Set ..TranssmartWSClient = $$$Inject(TranssmartWSClient,##class(WS.Transsmart.impl.TboxServicePort).%New())
 			Do ..TranssmartWSClient.ZetLocationVoorOmgeving(..ConfigMgr.GeefOmgeving())
@@ -100,22 +100,6 @@
 		
 		Set BerichtVoorGebruiker = Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_"Gelieve zelf of via OV actie te ondernemen."
 		Do ##class(vhLib.Logger).%New("Transsmart").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("Transsmart").ErrorMail(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error)))
@@ -144,7 +128,6 @@
 		Do Exception.Rethrow()
 	}	
 	Quit Response
-	; todo invalid requesttype opvangen
 ]]></Implementation>
 </Method>
 
@@ -154,12 +137,10 @@
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.Transsmart.data.VerzendData</ReturnType>
 <Implementation><![CDATA[
-	#Dim VerzendData As APPS.TRANSP.Transsmart.data.VerzendData
-	if $length(ID) {
-		;set VerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).OpenId(ID)
+	#dim VerzendData As APPS.TRANSP.Transsmart.data.VerzendData
+	If $length(ID) {
 		Set VerzendData = ..VerzendDataRepository.GeefViaID(ID)
-	} else {
-	  	;set VerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).%New()		
+	} Else {
 	  	Set VerzendData = ..VerzendDataRepository.Maak()
 	}
 	Quit VerzendData
@@ -170,9 +151,7 @@
 <FormalSpec>Error:APPS.TRANSP.Transsmart.Error</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim BerichtVoorICT As %String = $$$CRLF_Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_$$$CRLF
-	Quit BerichtVoorICT
+<Implementation><![CDATA[	Quit $$$CRLF_Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_$$$CRLF
 ]]></Implementation>
 </Method>