Index: cw.mac.rou
===================================================================
diff -u -r922 -r948
--- cw.mac.rou	(.../cw.mac.rou)	(revision 922)
+++ cw.mac.rou	(.../cw.mac.rou)	(revision 948)
@@ -5,9 +5,46 @@
 #Include %Prod.Product
 #Include %CHUI.System
  
-A	B  C D E  F  G H I J K L M N=O P  Q  R S:T U V W  X Y,Z
-H
+jcl
+ For  Set Date=$$ASK^vhINP("Datum: ",8,$G(Date)) Quit:"-"[Date  Do VALDATE^vhDTyp(Date,"DK",$H) If %TC Set Date=%EXT
+ Quit
+ 
+ 
+okl
+ New B,Node
+ Set Node=""
+ For  Set Node=$O(^DKL("K","KL.A",1000,Node)) Quit:Node=""  Set B(Node+1)=^DKL("K","KL.A",1000,Node)
+ Set KLNr=^DIN("K","KL"),^DIN("K","KL")=KLNr+1
+ Set $P(B(1),D)=KLNr
+ Set $P(B(1),D,2)="CW TEST CW"
+ Set UI1="CWTESTCW "_KLNr
+ Set Node=""
+ For  Set Node=$O(B(Node)) Quit:Node=""  Set ^KKL(UI1,Node)=B(Node)
+ Set ^KK1(KLNr)=UI1 
+ Do P^cAN220("KL","",UI1,"B","")
+ Quit
  ;
+CheckAutoSend(ORDNr)
+ New Check,fc
+ Set Check=$$SendWMSStatus^EWORDS6(ORDNr)="A" ; Status i.v.m. het doorsturen is automatisch
+ Set:Check Check=$$IsVoorVandaagOfMorgen^EWORDS6(ORDNr)
+ Set:Check Check=$$OrderGesloten^EWORDS6(ORDNr) 
+ Set:Check Check='$$IsContractOfAfroep^EWORDS6(ORDNr)
+ Set:Check Check='$$IsTerugname^EWORDS6(ORDNr)
+ Set:Check Check='$$InWMS^EWORDS6(ORDNr)
+ Set:Check Check=$$CheckStock^EWORDS6(ORDNr)
+ Set:Check Check=$$MagazijnBeschikbaar^EWORDS6(ORDNr)
+ If Check {  ; Indien de magazijnen beschikbaar zijn, de forcast herberekenen en de beschikbaarheid terug controleren
+	 Set fc=$$FETCHSOM^EWSTAT()
+	 Do CheckTijdsraming^EWORDSM()
+	 Set Check=$$MagazijnBeschikbaar^EWORDS6(ORDNr)
+ }
+ If Check {
+	 Do:'$$CheckKredietwaardig^EWORDS6(ORDNr) MarkeerKredietProbleemInORDNr^EWORDS3(ORDNr,"A")
+	 Set Check=$$CheckBoekhouding^EWORDS6(ORDNr)
+ }
+ Quit Check
+ ;
 OLInkortbaar(MPRNr)
  New Inkortbaar,BSKey,BSRec
  Set BSKey=""