Index: EWORDSW.mac.rou
===================================================================
diff -u -r38931 -r39393
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 38931)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 39393)
@@ -126,8 +126,12 @@
  Set (OldDOut,DOut)=$P(^ORDW("D",CONSNr),D,3)
  Set SubMagazijnen=$$BepaalSubMagazijnen(CONSNr)
  Set Verzendwijze=$P($P($P(^ORDW("D",CONSNr),D,2),"`"),";")
- If (Verzendwijze?1"OD"1N)&&(SubMagazijnen["E")
+ If Verzendwijze?1"AF"1E
  {
+	 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