Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49931 -r49974
--- DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49931)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49974)
@@ -212,7 +212,7 @@
KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String
DOM.VKP.LeverAdres
1000 ..GeefViaAXLeverAdresIdEnKlantNummer(LeverAdresID, ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID))
+ Quit:((+LeverAdresID>1000)||(##class(TECH.StringUtils).StartsWith(LeverAdresID,"000"))) ..GeefViaAXLeverAdresIdEnKlantNummer(LeverAdresID, ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID))
#Dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
#Dim LeverAdres As DOM.VKP.LeverAdres = ""