Index: EWORDSW.mac.rou
===================================================================
diff -u -r59835 -r59978
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59835)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59978)
@@ -130,8 +130,30 @@
  {
 	 Set $P(DOut,",",2)=1200
  }
-  
+ ElseIf (Verzendwijze?1"OD"1N)&&(SubMagazijnen["E")
+{
+	If Verzendwijze="OD1" Set $P(DOut,",",2)=21600 ; 6 uur
+	If Verzendwijze="OD2" Set $P(DOut,",",2)=25200 ; 7 uur
+	If Verzendwijze="OD3" Set $P(DOut,",",2)=28800 ; 8 uur
+	If Verzendwijze="OD4" Set $P(DOut,",",2)=32400 ; 9 uur
+	If Verzendwijze="OD5" Set $P(DOut,",",2)=36000 ; 10 uur
+}
+
+ If ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsTranssmartActive()
+ {
+ 	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 NL of Luxemburg
+		}
+	} 
+}
+ 
+ Set:OmzFakt>1 $P(DOut,",",2)=$P(DOut,",",2)-(4*60) ; Grote klanten worden voorgetrokken met 4 min.
  Set:$LF(lbBevat,"ORGALUX") $P(DOut,",",2)=$P(DOut,",",2)-(10*60) ; Orgalux orders voortrekken met 10 min.
+ Set:$L(SubMagazijnen)=1 $P(DOut,",",2)=$P(DOut,",",2)-(5*60) ; picking uit slechts 1 submagazijn wordt voorgetrokken met 5 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))
  Set $P(^ORDW("D",CONSNr),D,3)=DOut ; sinds uglypicking actief is niet meer nodig