Index: EWORDSW.mac.rou
===================================================================
diff -u -r59958 -r59978
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59958)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59978)
@@ -139,14 +139,17 @@
 	If Verzendwijze="OD5" Set $P(DOut,",",2)=36000 ; 10 uur
 }
 
- 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
-	}
- } 
+ 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.