Index: cw.mac.rou
===================================================================
diff -u -r1047 -r1079
--- cw.mac.rou	(.../cw.mac.rou)	(revision 1047)
+++ cw.mac.rou	(.../cw.mac.rou)	(revision 1079)
@@ -5,46 +5,22 @@
 #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
+DP2(KLNr)
+ New VerzendWijze,LandCode,PostCode,blVerzendWijze,blLeveringsTermijn
  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) {
-		 Do INIT^vhLIST("CHUI.Flow.Offerte.Offerte","DPLUS2",.LD)
-		 Do WRITE^vhLIST(.LD)
-	 }
-	 If $D(pProducten) {
-		 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)
-	 }
- }
+ w blLeveringsTermijn.GetPickDatumMagazijnGesloten(+$H)
  Quit
  
+ .Set VroegsteLeverDag=$$GetLeverDag^FLOW3(KLNr,PRNr,,1)
+ .Quit:VroegsteLeverDag>$$CALCDATE^vhDTyp(,"A",1)  ; Is voor levering na volgende arbeidsdag
+ .Set MagOpschuiven=blVerzendWijze.MagOpschuivenIndienAutoSendAf()
+ .Set:MagOpschuiven AfterPrompt=" Levertermijn D+2 wegens stop op automatisch magazijn"
+ Quit $G(AfterPrompt)
+ 
 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