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 KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String DOM.VKP.LeverAdres 1000 ..GeefViaAXLeverAdresIdEnKlantNummer(LeverAdresID) #Dim Klant As DOM.VKP.Klant = ..VerkoopAPI.GeefKlant(KlantID) #Dim LeverAdres As DOM.VKP.LeverAdres = "" #Dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Klant.GeefLeverAdressen()) While (Iterator.HasNext() && ($$$Not($IsObject(LeverAdres)))) { #Dim Adres As DOM.VKP.LeverAdres = Iterator.Next() If (Adres.GeefID() = LeverAdresID) { Set LeverAdres = Adres } } If ($$$Not($IsObject(LeverAdres))) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("LeverAdres '" _ LeverAdresID _ "' bestaat niet voor klant '" _ KlantID _ "'")) } Quit LeverAdres ]]> KlantNummer:%String 1 %String