1 DOM.PARTIJ.LegacyPartijAPI,TECH.RegisteredObject right DOM.common.CommonAPI 1 initvalue:%CacheString 1 1 %Status 1 PartijID:DOM.common.PartijID %String KlantNummer:%String DOM.common.PartijID KlantNummer:%String %Boolean PartijID:DOM.common.PartijID %String LeverancierNummer:%String DOM.common.PartijID LeverancierID:%String %String HandelKlantId:%String,PersonalityId:DOM.common.enu.Personality=1 %String HandelKlantId:%String,PersonalityId:DOM.common.enu.Personality=1 %String OorsprongKetting:%String %String 0) { Set EindklantId = $Piece($List(OorsprongKettingLijst, 1),",", 2) Set EindklantId = $Replace(EindklantId, " ", "") } Quit EindklantId ]]> OorsprongKetting:%String 1 %List