TECH.Repository,TECH.Mockable DOM.PARTIJ.LegacyPartijAPI 1 DOM.PARTIJ.PartijAPI 1 DOM.VKP.VerkoopAPI 1 TECH.Query.QueryAPI 1 QueryAPI:TECH.Query.QueryAPI,LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI,PartijApi:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI 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,KlantNummer:%String %Boolean 0 ]]> AXLeverAdresId:%String,KlantNummer:%String DOM.VKP.impl.LeverAdres AXLeverAdresId:%String,KlantNummer:%String %Boolean 1 ]]> KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String DOM.VKP.LeverAdres KlantID:%String KlantNummer:%String 1 %String LeverAdresId:%String 1 %Boolean 1000)||(##class(TECH.StringUtils).StartsWith(LeverAdresId,"000"))) ]]>