Index: vhUnitTest/BL/Legacy/KLVERZW/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/Legacy/KLVERZW/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/Legacy/KLVERZW/Test.cls.xml	(revision 51198)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.Legacy.KLVERZW.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantNummer">
+<Default>1000</Default>
+</Parameter>
+
+<Method name="Test: Default werking PostCode">
+<Implementation><![CDATA[
+	#dim Verzendwijze As %String = ##class(BL.Legacy.KLVERZW).%New().GeefVerzendwijze("9100", ..#KlantNummer)
+	
+	Do $$$AssertEquals(Verzendwijze,"OD;1`OD;3")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PostCode - &gt; De PostCode moet niet als parameter meegegeven worden">
+<Implementation><![CDATA[
+	#dim Verzendwijze As %String = ##class(BL.Legacy.KLVERZW).%New().GeefVerzendwijze(, ..#KlantNummer)
+	
+	Do $$$AssertEquals(Verzendwijze,"OD;1`OD;3")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/Legacy/KLVERZW.cls.xml
===================================================================
diff -u -r49868 -r51198
--- BL/Legacy/KLVERZW.cls.xml	(.../KLVERZW.cls.xml)	(revision 49868)
+++ BL/Legacy/KLVERZW.cls.xml	(.../KLVERZW.cls.xml)	(revision 51198)
@@ -3,15 +3,15 @@
 <Class name="BL.Legacy.KLVERZW">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="PostCode">
-<FormalSpec>PostCode:%String,KlantNummer:%String</FormalSpec>
+<Method name="GeefVerzendwijze">
+<FormalSpec>PostCode:%String=0,KlantNummer:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
  	#dim VerzendWijze As %String = "OD"	
  	
  	If (KlantNummer) {
-	 	#dim KlantId As %String = ^KK1(KlantNummer)
-	 	#dim KlantData As %String = ^KKL(KlantId, 0)
+	 	#dim KlantKey As %String = ^KK1(KlantNummer)
+	 	#dim KlantData As %String = ^KKL(KlantKey, 0)
 	 	
 	 	Set PostCode = $Piece(KlantData, "\", 6)
  	}
@@ -58,11 +58,11 @@
  	}
  	
  	If (VerzendWijze = "") {
-	 	Set VerzendWijze = ..PostCode(, KlantNummer)
+	 	Set VerzendWijze = ..GeefVerzendwijze(, KlantNummer)
  	}
  	
  	If ((VerzendWijze = "") & $Length(PostCode)) {
-	 	Set VerzendWijze = ..PostCode(PostCode)
+	 	Set VerzendWijze = ..GeefVerzendwijze(PostCode)
  	}
  	
  	If (VerzendWijze = 1064) {
Index: KLVERZW.mac.rou
===================================================================
diff -u -r49868 -r51198
--- KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 49868)
+++ KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 51198)
@@ -70,7 +70,7 @@
  Set PostCode = $Get(PostCode)
  Set KlantNummer = $Get(KlantNummer)
  
- Quit ##class(BL.Legacy.KLVERZW).%New().PostCode(PostCode, KlantNummer)
+ Quit ##class(BL.Legacy.KLVERZW).%New().GeefVerzendwijze(PostCode, KlantNummer)
  ;
  ; Default verzendwijze
 DEFAULT(PostCode, KlantNummer, OrderNummer)
@@ -178,4 +178,3 @@
  ;
 
 
-