Index: CW Identnummers prefix a.prj.xml
===================================================================
diff -u -r973 -r1033
--- CW Identnummers prefix a.prj.xml	(.../CW Identnummers prefix a.prj.xml)	(revision 973)
+++ CW Identnummers prefix a.prj.xml	(.../CW Identnummers prefix a.prj.xml)	(revision 1033)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-18 09:23:06">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:25">
 <Project name="CW Identnummers prefix a" LastModified="2011-02-18 09:23:06">
   <Items>
     <ProjectItem name="BL.Flow.Offerte.Product" type="CLS"/>
@@ -22,5 +22,5 @@
     <ProjectItem name="vhRtn1.mac" type="MAC"/>
   </Items>
 </Project>
-<Checksum value="1519563296"/>
+<Checksum value="1264568338"/>
 </Export>
Index: DCTOE.mac.rou
===================================================================
diff -u -r921 -r1033
--- DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 921)
+++ DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 1033)
@@ -156,9 +156,15 @@
  ; Afdruk titel Halux
 HTITEL
  New OrdDat,I,R,T,Blank,Titel,Allign,VPerfo,ToeRef,LevInd,Aanspr,Naam,Woonpl,ORDNr,KLNr,KlTaal,DueOut,VerzW,bl,arCnt,TipOn,SifSpb,Baliko,Specials
+ 
+ New ToeleveringAPI, Toelevering, ToeleveringProductInfo
+ Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+ Set Toelevering = ToeleveringAPI.GeefToelevering(TOENr)
  Set bl=##class(BL.PPS.TBX.LeanBatch).%New()
- Do bl.OnderdelenPerTOENr(TOENr,.arCnt)
- Set TipOn=$P(arCnt,D,2),SifSpb=$P(arCnt,D,3),Baliko=$P(arCnt,D,4)
+ Set ToeleveringProductInfo = bl.GeefToeleveringProductInfo(Toelevering)
+ Set TipOn=ToeleveringProductInfo.AantalTipon
+ Set SifSpb=ToeleveringProductInfo.AantalSifon + ToeleveringProductInfo.AantalSpoelbak
+ Set Baliko=ToeleveringProductInfo.AantalBaliko
  Set Specials=""
  For I="TipOn","SifSpb","Baliko" Do:@I
  . Set $P(Specials,D)=$P(Specials,D)+1
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)