Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49684 -r49694
--- DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49684)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49694)
@@ -110,6 +110,24 @@
]]>
+
+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,AdresVolgNr:%String
DOM.VKP.impl.LeverAdres