Index: KLVERZW.mac.rou
===================================================================
diff -u -r49865 -r49868
--- KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 49865)
+++ KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 49868)
@@ -80,7 +80,7 @@
   Set KlantNummer = $Get(KlantNummer)
   Set OrderNummer = $Get(OrderNummer)
  
- Quit ##class(BL.Legacy.KLVERZW).%New().Default(PostCode, KlantNummer, OrderNummer)
+ Quit ##class(BL.Legacy.KLVERZW).%New().GeefDefaultVerzendWijze(PostCode, KlantNummer, OrderNummer)
  
   ; Welke dagen er gereden wordt naar de klant
 DAGEN(KLNr) ;
Index: BL/Legacy/KLVERZW.cls.xml
===================================================================
diff -u -r49865 -r49868
--- BL/Legacy/KLVERZW.cls.xml	(.../KLVERZW.cls.xml)	(revision 49865)
+++ BL/Legacy/KLVERZW.cls.xml	(.../KLVERZW.cls.xml)	(revision 49868)
@@ -39,29 +39,40 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Default">
-<FormalSpec>PostKode,KLNr,ORDNr</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<Method name="GeefDefaultVerzendWijze">
+<FormalSpec>PostCode:%String,KlantNummer:%String,OrderNummer:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	New VerzW,D
- 	Set D="\"
- 	If ((KlantNummer = "") && $$$Not(ORDNr = "")) {
-	 	Set KLNr = ##class(BL.Legacy.Order).GeefKlantNrVanBestaandOrder(ORDNr)
+	#dim VerzendWijze As %String = ""
+	
+ 	If ((KlantNummer = "") && $$$Not(OrderNummer = "")) {
+	 	Set KlantNummer = ##class(BL.Legacy.Order).GeefKlantNrVanBestaandOrder(OrderNummer)
  	}
- 	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 
+ 	
+ 	If $$$Not(OrderNummer = "") {
+	 	Set VerzendWijze = $Piece(^KOD(KlantNummer,  "F", OrderNummer,1), "\" ,7)
+ 	}
+ 	
+ 	If ((VerzendWijze = "") && $$$Not(KlantNummer = "")) {
+	 	Set VerzendWijze = $Piece(^KKL(^KK1(KlantNummer), 2), "\", 16)
+ 	}
+ 	
+ 	If (VerzendWijze = "") {
+	 	Set VerzendWijze = ..PostCode(, KlantNummer)
+ 	}
+ 	
+ 	If ((VerzendWijze = "") & $Length(PostCode)) {
+	 	Set VerzendWijze = ..PostCode(PostCode)
+ 	}
+ 	
+ 	If (VerzendWijze = 1064) {
+	 	#dim OngeldigeVerzendWijze As %String = VerzendWijze
 	 	
-	 	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
+	 	Set VerzendWijze = ..GeefDefaultVerzendWijze(, KlantNummer)   ; Terugzetten naar default van de klant
+	 	Do ##class(vhLib.Logger).%New("OV").WarningMail("Default verzendwijze", "Foutieve Verzendwijze (" _ OngeldigeVerzendWijze _ ") voor klant " _ KlantNummer _ " OrderNr " _ OrderNummer _ ". Waarde terug op klant-default "_ VerzendWijze _ "." _ $Char(13, 10, 13, 10) _ $$GetJobInfo^vhLib.System())
+ 	}
+ 	
+ 	Quit VerzendWijze
 ]]></Implementation>
 </Method>
 </Class>