Index: EWORDS6.mac.rou
===================================================================
diff -u -r67493 -r67866
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 67493)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 67866)
@@ -312,7 +312,12 @@
  Set SendWMSStatus=$E($P(^KKL(^KK1(KLNr),2),"\",8))
  Set:SendWMSStatus'="M" SendWMSStatus="A"
  Quit SendWMSStatus
- 
+
+VerzendwDD1(ORDNr)
+ New R,KLNr
+ Set R=^KO1(ORDNr,"F"),KLNr=$P(R,"\",1)
+ Quit $$DEFAULT^KLVERZW(,KLNr,ORDNr)'="DD1"
+  
  ; Do orders moeten gesloten zijn
 OrderGesloten(ORDNr)
  New R,KLNr,ORDNrs,OrderGesloten
@@ -590,6 +595,10 @@
 			 Set:'Check Warning="Terugname."
 		 }
 		 If Check {
+ 			 Set Check='$$VerzendwDD1(ORDNr)
+			 Set:'Check Warning="Verzendwijze DD1"
+		 }
+		 If Check {
 			 Set Check=$$CheckStock(ORDNr)
 			 Set:'Check Warning="Onvoldoende voorraad.",Manueel=1
 		 }