Index: EWORDSW.mac.rou
===================================================================
diff -u -r59835 -r59949
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59835)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59949)
@@ -130,7 +130,16 @@
  {
 	 Set $P(DOut,",",2)=1200
  }
-  
+
+ If ((Verzendwijze="DI1")||(Verzendwijze="DD1")) ; DHL of VRD
+ {	 
+	Set PostCode=$P($G(^ORDW("D",CONSNr,"A")),"\",6)
+	If (($E(PostCode,1,2)="NL") && ("1,7,8,9"[$E(PostCode,4))) || ($E(PostCode,1,1)="L")
+	{
+		Set $P(DOut,",",2)=$P(DOut,",",2)-(60*60) ; Een uur vroeger voor het hoge Noorden
+	}
+ } 
+
  Set:$LF(lbBevat,"ORGALUX") $P(DOut,",",2)=$P(DOut,",",2)-(10*60) ; Orgalux orders voortrekken met 10 min.
  Set:$$IsAlpnachOfHerzog(CONSNr) $P(DOut,",",2)=$P(DOut,",",2)-(20*60) ; picking voor AlpNach of Herzog (klant van SFS) wordt voorgetrokken met 20 min
  Do INFO^EWLOG($T(DUEOUT))