Index: APPS/LEV/LeverancierService.cls.xml
===================================================================
diff -u -r1133 -r1234
--- APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1133)
+++ APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1234)
@@ -115,7 +115,7 @@
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Set dtoLeverancierId = ##class(DOM.LEV.dto.LeverancierId).%New()
-	Set dtoLeverancierId.Nummer = Leverancier.GeefLeverancierNr()
+	Set dtoLeverancierId.Nummer = Leverancier.GeefNummer()
 	Set dtoLeverancierId.Naam = Leverancier.GeefNaam()
 	
 	/// Actief status
Index: vhUnitTest/DOM/LEV/TestLeverancier.cls.xml
===================================================================
diff -u -r1074 -r1234
--- vhUnitTest/DOM/LEV/TestLeverancier.cls.xml	(.../TestLeverancier.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/LEV/TestLeverancier.cls.xml	(.../TestLeverancier.cls.xml)	(revision 1234)
@@ -13,7 +13,7 @@
 	Set Leverancier = ToeleveringAPI.GeefLeverancier(6332)
 	
 	Do $$$AssertTrue($IsObject(Leverancier),"Leverancier is een object")
-	Do $$$AssertEquals(Leverancier.GeefLeverancierNr(),6332,"De leveranciersnummer")
+	Do $$$AssertEquals(Leverancier.GeefNummer(),6332,"De leveranciersnummer")
 	Do $$$AssertEquals(Leverancier.GeefNaam(),"HALUX","De naam van de leverancier")
 	Do $$$AssertTrue($IsObject(Leverancier.GeefToeleveringIterator()),"De toelevering iterator voor de leverancier")