Index: KLVERZW.mac.rou
===================================================================
diff -u -r29059 -r30139
--- KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 29059)
+++ KLVERZW.mac.rou	(.../KLVERZW.mac.rou)	(revision 30139)
@@ -94,6 +94,14 @@
  .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
  
   ; Welke dagen er gereden wordt naar de klant