Index: BL/Legacy/KLVERZW.cls.xml
===================================================================
diff -u
--- BL/Legacy/KLVERZW.cls.xml	(revision 0)
+++ BL/Legacy/KLVERZW.cls.xml	(revision 49855)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.KLVERZW">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="PostCode">
+<FormalSpec>PostKode,KLNr</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	New R,VerzW,KlantId
+	Set PostKode=$G(PostKode),KLNr=$G(KLNr),VerzW="OD"
+	Set:KLNr KlantId=^KK1(KLNr),R=^KKL(KlantId,0),PostKode=$P(R,D,6)
+	Do:$L(PostKode)
+	.Set:PostKode'?.N VerzW="EX"
+	.Set:PostKode?.N PostKode="BE-"_PostKode Set PostKode=$P(PostKode,"-",1,2)
+	.Set:$L(PostKode,"-")=1 PostKode=PostKode_"-*"
+	.Set R=$G(^RES("KLANT","PI","POSTKODE","D",PostKode))
+	.If R="" For  Do  Quit:$L(R)  Quit:PostKode=""
+	..Set R=$G(^RES("KLANT","PI","POSTKODE","D",PostKode_"*"))
+	..Quit:$L(R)
+	..Set PostKode=$E(PostKode,1,$L(PostKode)-1)
+	.If $L(R) Do
+	..Set R=$P(R,"`",3,6)
+	..For  Quit:R=""  Quit:$L($P(R,"`",$L(R,"`")))  Set R=$P(R,"`",1,$L(R,"`")-1)
+	..Set:$L(R) VerzW=R
+	Quit VerzW
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: KLVERZW.mac.rou
===================================================================
diff -u -r37338 -r49855
--- KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 37338)
+++ KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 49855)
@@ -64,24 +64,9 @@
  Quit VerzW
  ;
  ; Verzendwijze voor postkode eventueel via klant
-POSTKODE(PostKode,KLNr) 
- New R,VerzW,KlantId
- Set PostKode=$G(PostKode),KLNr=$G(KLNr),VerzW="OD"
- Set:KLNr KlantId=^KK1(KLNr),R=^KKL(KlantId,0),PostKode=$P(R,D,6)
- Do:$L(PostKode)
- .Set:PostKode'?.N VerzW="EX"
- .Set:PostKode?.N PostKode="BE-"_PostKode Set PostKode=$P(PostKode,"-",1,2)
- .Set:$L(PostKode,"-")=1 PostKode=PostKode_"-*"
- .Set R=$G(^RES("KLANT","PI","POSTKODE","D",PostKode))
- .If R="" For  Do  Quit:$L(R)  Quit:PostKode=""
- ..Set R=$G(^RES("KLANT","PI","POSTKODE","D",PostKode_"*"))
- ..Quit:$L(R)
- ..Set PostKode=$E(PostKode,1,$L(PostKode)-1)
- .If $L(R) Do
- ..Set R=$P(R,"`",3,6)
- ..For  Quit:R=""  Quit:$L($P(R,"`",$L(R,"`")))  Set R=$P(R,"`",1,$L(R,"`")-1)
- ..Set:$L(R) VerzW=R
- Quit VerzW
+POSTKODE(PostCode, KlantNummer) 
+ ; [DEPRECATED] use BL.Legacy.KLVERZW -> PostCode()
+ Quit ##class(BL.Legacy.KLVERZW).%New().PostCode(PostCode, KlantNummer)
  ;
  ; Default verzendwijze
 DEFAULT(PostKode,KLNr,ORDNr)