TECH.Repository,TECH.Mockable DOM.PARTIJ.LegacyPartijAPI 1 DOM.PARTIJ.PartijAPI 1 TECH.Query.QueryAPI 1 QueryAPI:TECH.Query.QueryAPI,LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI,PartijApi:DOM.PARTIJ.PartijAPI 1 1 %Status 1 Klant:DOM.VKP.VanHoeckeKlant,LeverAdres:DOM.VKP.LeverAdres UniekId:%String %Boolean UniekId:%String DOM.VKP.impl.LeverAdres UniekId:%String AXLeverAdresId:%String 0 Do ..VerwijderViaID(ResultSet.GetData(1)) } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ##class(TECH.Exceptions.IllegalArgumentException).Throw("Leveradres met AxLocationId '"_AXLeverAdresId_"' werd niet gevonden en kon dus niet verwijderd worden.") } ]]> KlantId:%String,KlantAdresNr:%String DOM.VKP.impl.LeverAdres AXLeverAdresId:%String %Boolean 0 ]]> AXLeverAdresId:%String DOM.VKP.impl.LeverAdres KlantNummer:%String 1 %String