TECH.RegisteredObject,APPS.TRANSP.Transsmart.VerzendWijzeBepaler LeveringInfo:APPS.TRANSP.dto.LeveringInfo APPS.TRANSP.Transsmart.enu.VerzendWijze 31.5) { Set VerzendWijze = ##class(APPS.TRANSP.Transsmart.enu.VerzendWijze).Freight() }Elseif VerpakkingEenheid.%ClassName()="Colli" { Set VerzendWijze = ##class(APPS.TRANSP.Transsmart.enu.VerzendWijze).Parcel() } else { set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(VerpakkingEenheid.%ClassName()_" is niet ondersteund") do ##class(TECH.ExceptionHandler).Throw(Exception) } } If $$$Not($Length(VerzendWijze)) { set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(VerpakkingEenheid.%ClassName()_" is niet ondersteund") do ##class(TECH.ExceptionHandler).Throw(Exception) } Quit VerzendWijze ]]>