Index: KLVERZW.mac.rou
===================================================================
diff -u -r49858 -r49865
--- KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 49858)
+++ KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 49865)
@@ -65,33 +65,23 @@
  ;
  ; Verzendwijze voor postkode eventueel via klant
 POSTKODE(PostCode, KlantNummer) 
- ; [DEPRECATED] use BL.Legacy.KLVERZW -> PostCode()
+ // [DEPRECATED] use BL.Legacy.KLVERZW -> PostCode()
  
  Set PostCode = $Get(PostCode)
  Set KlantNummer = $Get(KlantNummer)
  
  Quit ##class(BL.Legacy.KLVERZW).%New().PostCode(PostCode, KlantNummer)
  ;
  ; Default verzendwijze
-DEFAULT(PostKode,KLNr,ORDNr) 
- New VerzW,D
- Set D="\"
- If '$G(KLNr),$G(ORDNr) Set KLNr = ##class(BL.Legacy.Order).GeefKlantNrVanBestaandOrder(ORDNr)
- Set VerzW="" Set:$G(ORDNr) VerzW=$P(^KOD(KLNr,"F",ORDNr,1),D,7)
- If VerzW="",$G(KLNr) Do
- .Set VerzW=$P(^KKL(^KK1(KLNr),2),D,16)
- .Set:VerzW="" VerzW=$$POSTKODE(,KLNr)
- Set:VerzW=""&$L($G(PostKode)) VerzW=$$POSTKODE(PostKode)
- If (VerzW=1064) {
-	 New OngeldigeVerzendwijze
-	 Set OngeldigeVerzendwijze = VerzW
-	 Set VerzW = $$DEFAULT(,KLNr)   ; Terugzetten naar default van de klant 
-	 
-	 Do ##class(vhLib.Logger).%New("OV").WarningMail("Default verzendwijze","Foutieve Verzendwijze ("_OngeldigeVerzendwijze_") voor klant "_KLNr_"  OrderNr "_$G(ORDNr)_".  Waarde terug op klant-default "_VerzW_"."_$C(13,10,13,10)_$$GetJobInfo^vhLib.System())
-	 ;d WLIP^vhDBG(97, $$GetStackToString^vhLib())
- }
- Quit VerzW
+DEFAULT(PostCode, KlantNummer, OrderNummer)
+ // [DEPRECATED] use BL.Legacy.KLVERZW -> Default()
  
+  Set PostCode = $Get(PostCode)
+  Set KlantNummer = $Get(KlantNummer)
+  Set OrderNummer = $Get(OrderNummer)
+ 
+ Quit ##class(BL.Legacy.KLVERZW).%New().Default(PostCode, KlantNummer, OrderNummer)
+ 
   ; Welke dagen er gereden wordt naar de klant
 DAGEN(KLNr) ;
  New Verzwen,Dag,Dagen,I
Index: BL/Legacy/KLVERZW.cls.xml
===================================================================
diff -u -r49856 -r49865
--- BL/Legacy/KLVERZW.cls.xml	(.../KLVERZW.cls.xml)	(revision 49856)
+++ BL/Legacy/KLVERZW.cls.xml	(.../KLVERZW.cls.xml)	(revision 49865)
@@ -38,6 +38,32 @@
  	Quit VerzendWijze
 ]]></Implementation>
 </Method>
+
+<Method name="Default">
+<FormalSpec>PostKode,KLNr,ORDNr</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	New VerzW,D
+ 	Set D="\"
+ 	If ((KlantNummer = "") && $$$Not(ORDNr = "")) {
+	 	Set KLNr = ##class(BL.Legacy.Order).GeefKlantNrVanBestaandOrder(ORDNr)
+ 	}
+ 	Set VerzW="" Set:$G(ORDNr) VerzW=$P(^KOD(KLNr,"F",ORDNr,1),D,7)
+ 	If VerzW="",$G(KLNr) Do
+ 	.Set VerzW=$P(^KKL(^KK1(KLNr),2),D,16)
+ 	.Set:VerzW="" VerzW=..PostCode(,KLNr)
+ 	Set:VerzW=""&$L($G(PostKode)) VerzW=..PostCode(PostKode)
+ 	If (VerzW=1064) {
+	 	New OngeldigeVerzendwijze
+	 	Set OngeldigeVerzendwijze = VerzW
+	 	Set VerzW = ..Default(,KLNr)   ; Terugzetten naar default van de klant 
+	 	
+	 	Do ##class(vhLib.Logger).%New("OV").WarningMail("Default verzendwijze","Foutieve Verzendwijze ("_OngeldigeVerzendwijze_") voor klant "_KLNr_"  OrderNr "_$G(ORDNr)_".  Waarde terug op klant-default "_VerzW_"."_$C(13,10,13,10)_$$GetJobInfo^vhLib.System())
+	 }
+	 Quit VerzW
+]]></Implementation>
+</Method>
 </Class>