TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.VerzendWijzeBepaler LeveringInfo:APPS.TRANSP.dto.LeveringInfo APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze 50) && '..IsLeveringInBelgie(LeveringInfo)) || ((GemiddeldGewicht > 32) && ..IsLeveringInBelgie(LeveringInfo)) || (IsCashOnDelivery && '(..IsLeveringInBelgie(LeveringInfo))) { If (IsCashOnDelivery){ Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery() }Else{ Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight() } Set IsMeestBeperkendeVerzendWijze = 0 }Elseif VerpakkingEenheid.%ClassName()="Colli" { If (IsCashOnDelivery) { Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery() }ElseIf (..IsDeposit(LeveringInfo)) { Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit() }Else{ Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel() } } else { set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(VerpakkingEenheid.%ClassName()_"is niet ondersteund") do ##class(TECH.ExceptionHandler).Throw(Exception) } } Quit VerzendWijze ]]> LeveringData:APPS.TRANSP.dto.LeveringInfo 1 %Boolean LeveringData:APPS.TRANSP.dto.LeveringInfo 1 %Boolean LeveringData:APPS.TRANSP.dto.LeveringInfo 1 %Boolean