Index: cw.mac.rou
===================================================================
diff -u -r948 -r1033
--- cw.mac.rou	(.../cw.mac.rou)	(revision 948)
+++ cw.mac.rou	(.../cw.mac.rou)	(revision 1033)
@@ -5,23 +5,67 @@
 #Include %Prod.Product
 #Include %CHUI.System
  
+ ; Zal een lijn eventueel moeten verschoven worden naar later?
+DPlus2(KLNr,PRNrs)
+ New PRNr,VerzendWijze,LandCode,PostCode,MagOpschuiven,blVerzendWijze,blLeveringsTermijn,VroegsteLeverDag,Producten,SortKey,Tekst
+ Set VerzendWijze=$$DEFAULT^KLVERZW(,KLNr)
+ Set LandCode=$$LAND^vhRtn1(KLNr,"K")
+ Set PostCode=$P(^KKL(^KK1(KLNr),0),D,6)
+ Set blVerzendWijze=##class(DOM.VKP.VerzendWijze).%New(KLNr,VerzendWijze,LandCode,PostCode)
+ Set blLeveringsTermijn=##class(DOM.VKP.LeveringsTermijn).%New($H,blVerzendWijze)
+ Set MagOpschuiven=blVerzendWijze.MagOpschuivenIndienAutoSendAf() ; Mag men voor deze verzendwijze opschuiven naar D+2?
+ If MagOpschuiven { ; Deze verzendwijze mag opschuiven naar D+2
+	 Set PRNr=""
+	 For {
+		 Set PRNr=$O(PRNrs(PRNr))
+		 Quit:'PRNr
+		 Continue:$$MagazijnBeschikbaarVoorProduct^EWORDSM(PRNr,,,1)  ; Het magazijn voor dit product is niet beschikbaar voor automatisch doorsturen
+		 Set VroegsteLeverDag=$$GetLeverDag^FLOW3(KLNr,PRNr,,1)
+		 Continue:VroegsteLeverDag>$$CALCDATE^vhDTyp(,"A",1)  ; Is voor levering na volgende arbeidsdag
+		 Set SortKey=$$SORTKEY^PRODUKT(PRNr)
+		 Set Producten(SortKey)=PRNr
+	 }
+	 If $D(Producten) {
+		 Set Tekst(1)="Volgende levertermijnen naar D+2"
+		 Set Tekst(2)="wegens stop op automatisch magazijn",Tekst(3)="&S",SortKey=""
+		 For {
+			 Set SortKey=$O(Producten(SortKey))
+			 Quit:SortKey=""
+			 Set PRNr=Producten(SortKey)
+			 Set Tekst(PRNr)=$P(^KPR(PRNr,0),D)
+		 }
+		 ;Do WARN^vhTXTPOP(Tekst,"")
+		 Set Tekst="Tekst"
+		 Do WILD^vhTXTPOP("C;C","",.Tekst,.Button)
+	 }
+ }
+ Quit
+ 
+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
+ 
+E
+H
+ 
 jcl
- For  Set Date=$$ASK^vhINP("Datum: ",8,$G(Date)) Quit:"-"[Date  Do VALDATE^vhDTyp(Date,"DK",$H) If %TC Set Date=%EXT
+ For  Set Date=$$ASK^vhINP("Datum: ",8,$G(Date)) Quit:"-"[Date  Do VALDATE^vhDTyp(Date,"DK",$H) If %TC Set Date=%EXT Quit
  Quit
  
  
 okl
- New B,Node
+ New cw,Node
+ Set Q="K"
+ Do ^cA604
+ 
+ ; Inladen van de gegevens van onze testklant, op die manier moet ik niet alles zelf in te geven
  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","")
+ For  Set Node=$O(^DKL("K","KL.A",1000,Node)) Quit:Node=""  Set cw(Node+1)=^DKL("K","KL.A",1000,Node)
+ 
+ ; De nieuwe naam invullen
+ Set $P(cw(1),D,2)="JB TEST JB" //"CW TEST CW"
+ 
+ ; Verwerking Data-M software
+ Do P^cAN220("KL","","","cw","")
+ 
  Quit
  ;
 CheckAutoSend(ORDNr)