Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresId.cls.xml =================================================================== diff -u -r49367 -r49907 --- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresId.cls.xml (.../GeefViaAxLeveradresId.cls.xml) (revision 49367) +++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresId.cls.xml (.../GeefViaAxLeveradresId.cls.xml) (revision 49907) @@ -40,7 +40,7 @@ Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings)) Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New() - #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresId("AXID1234") + #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer("AXID1234",..#TestKlantnummer) ]]> @@ -56,7 +56,7 @@ Do ..VoegToeLeveradres("1") Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New() - #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresId("AXID12341") + #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer("AXID12341",..#TestKlantnummer) Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12341"),"") @@ -83,7 +83,7 @@ Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12342"),"") Do $$$AssertFalse(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12343"),"") - #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresId("AXID12342") + #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer("AXID12342",..#TestKlantnummer) Do $$$AssertEquals(LeverAdres.GeefUniekId(),"84692") Do $$$AssertEquals(LeverAdres.Straat,"TRADEBOULEVARD 5 A")