Index: RPLMBON.mac.rou
===================================================================
diff -u -r918 -r1031
--- RPLMBON.mac.rou	(.../RPLMBON.mac.rou)	(revision 918)
+++ RPLMBON.mac.rou	(.../RPLMBON.mac.rou)	(revision 1031)
@@ -221,7 +221,7 @@
  
  ; IsCommAkt = 1 (de test is op een hoger niveau uitgevoerd)
 ASK(PRNr,IsCommAkt,Mirror) 
- New %R,%C,prompt,ln,X,Aantal,Quit
+ New %R,%C,prompt,ln,X,Aantal,Quit,sAftPrmp
  New IsStock,PerStuk,GrootVp,NormVp,KleinVp
  New Grens,OnderGr,BovenGr,Korting,MirrorPRNr,Aantal,Proc
  Set R=##Class(CHUI.Derde.Kennis.Kennis).KlantProductUnRead(KC,PRNr,$LB($$$adOrderVerwerkingIngave),1) Quit:R="ANNULEER"
@@ -248,7 +248,7 @@
  .Set X=$P(^KPR(PRNr,0),D,23) 
  .If X="K",KC'=$$$KlantHalux Set X=$P(^KPR(PRNr,0),D),X=$$^vhTXTPOP("FLOWORD","VERKKIND","",X) If 'X Set X="-" Quit
  .If $E(X)="H",KC'=$$$KlantHalux Set X=$P(^KPR(PRNr,0),D),X=$$^vhTXTPOP("FLOWORD","VERKHALFFABR","",X) If 'X Set X="-" Quit
- .Set %R=24,%C=1,prompt="Aantal stuks : ",ln=6
+ .Set %R=24,%C=1,prompt="Aantal stuks : ",ln=6,sAftPrmp=$$AfterPromptAantal(KC,PRNr)
  .Set X=$P($G(^MBLOG("D",$$IO^cQ5,KC,PRNr)),D)
  .Do ^vhINP
  If X Do
@@ -301,6 +301,21 @@
  Do @($G(Proc,"EL")_"^PROC") ; Indien een lijn, dan EL^PROC. Indien meerdere lijnen (mirrorring), dan WL^PROC.
  Quit
  
+ ; Zal een lijn eventueel moeten verschoven worden naar later?
+AfterPromptAantal(KLNr,PRNr)
+ New AfterPrompt,VerzendWijze,LandCode,PostCode,MagOpschuiven,blVerzendWijze,blLeveringsTermijn,VroegsteLeverDag
+ If '$$MagazijnBeschikbaarVoorProduct^EWORDSM(PRNr,,,1) Do  ; Het magazijn voor dit product is niet beschikbaar voor automatisch doorsturen
+ .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 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)
+ 
 KST 
  New %R,%C,prompt,ln,R,X,PRNr,HPrijs,Korting
  Set R=^HULP($J,"K"_KC,"VM",VMB(6)),PRNr=$P(R,D,15),HPrijs=$P(R,D,9)