TECH.RegisteredObject TECH.Config.ConfigMgr 1 WS.Transsmart.TboxServicePort 1 DOM.common.impl.ProjectSettingsAPI 1 APPS.TRANSP.Transsmart.RequestDataBouwer 1 APPS.TRANSP.Transsmart.impl.ResponseControleur 1 APPS.TRANSP.Transsmart.data.VerzendDataRepository 1 ConfigMgr:TECH.Config.ConfigMgr="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",TranssmartWSClient:WS.Transsmart.TboxServicePort="",RequestBouwer:APPS.TRANSP.Transsmart.RequestDataBouwer="",ResponseControleur:APPS.TRANSP.Transsmart.impl.ResponseControleur="",VerzendDataRepository:APPS.TRANSP.Transsmart.data.VerzendDataRepository="" 1 1 %Status 1 1 VerzendDataID:%String SSLConfiguration:%String 1 Request:WS.Transsmart.tns.RequestBase 1 APPS.TRANSP.Transsmart.data.VerzendData 1 Error:APPS.TRANSP.Transsmart.Error,VerzendData:APPS.TRANSP.Transsmart.data.VerzendData="" 1 "_$listget(Calling,2) 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("Transsmart").Warning(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))) } If (Error.Niveau '= ##class(TECH.Exceptions.enu.Niveau).InterneWaarschuwing()){ Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(BerichtVoorGebruiker)) } ]]> 1 Request:WS.Transsmart.tns.RequestBase 1 WS.Transsmart.tns.getStatusResponse 1 ID:%String="" 1 APPS.TRANSP.Transsmart.data.VerzendData Error:APPS.TRANSP.Transsmart.Error 1 %String Request:WS.Transsmart.tns.doBooking 1 %String Request:WS.Transsmart.tns.doBooking 1 %String Response:WS.Transsmart.tns.getStatusResponse 1 %String Response:WS.Transsmart.tns.getStatusResponse 1 %String