Index: FLOWORD7.mac.rou
===================================================================
diff -u -r48162 -r48197
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 48162)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 48197)
@@ -341,6 +341,7 @@
  . Do CalcBSControl(.Control)
  . Quit:'$D(Control("L"))
  . Do:'($$BevestigdAXOrderSluitenActief()) BewerkBSControl(.Control)
+ . Do:($$BevestigdAXOrderSluitenActief()) BewerkAxBSControl(.Control)
  . Do:$D(Control("T")) ToeLevBSControl(ORDNr,.Control)
  . Do:$D(Control("M")) MailBSControl(ORDNr,.Control)
  Quit
@@ -456,6 +457,30 @@
  . Else  Set Control("M",LEVNr,$O(Control("M",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_Stock_D_Reservatie
  Quit
  
+ ; Automatisch behandelen van de problemen.
+BewerkAxBSControl(Control)
+ New I,R,List,Input,CType,BSPRNr,BSAantal,Stock,Reservatie,BestHoev,LevTerm,LEVNr,GrVerp,EenOpEenRel,PRNr,ORDNr,OLUNr
+ For I=1:1 Set R=$G(Control("L",I)) Quit:R=""  Do
+ . Set CType=$P(R,D,2),BSPRNr=$P(R,D,3),BSAantal=$P(R,D,4),Stock=$P(R,D,6),Reservatie=$P(R,D,7),BestHoev=$P(R,D,8),LevTerm=$P(R,D,9),LEVNr=$P(R,D,10),GrVerp=$P(R,D,11)
+ . If CType="NS" Do
+ . . Set EenOpEenRel=$P(Control("NS",BSPRNr),D,3)
+ . . If EenOpEenRel Set PRNr=$O(Control("NS",BSPRNr,"")) Set:$O(Control("NS",BSPRNr,PRNr)) EenOpEenRel=0
+ . . If EenOpEenRel Do  ; Een op een relatie, GEEN controle op min bestelhoev en grootverpakking
+ . . . Set ORDNr=""
+ . . . For  Set ORDNr=$O(Control("NS",BSPRNr,PRNr,ORDNr)) Quit:ORDNr=""  Do
+ . . . . Set OLUNr=""
+ . . . . For  Set OLUNr=$O(Control("NS",BSPRNr,PRNr,ORDNr,OLUNr)) Quit:OLUNr=""  Do
+ . . . . . Set BSAantal=$P(Control("NS",BSPRNr,PRNr,ORDNr,OLUNr),D)
+ . . . . . Set Control("T",LEVNr,$O(Control("T",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(,"W",LevTerm),"DW")_D_ORDNr_D_OLUNr
+ . . Else  Do
+ . . . If BSAantal'>BestHoev Set BSAantal=BestHoev  ; Controle op min bestelhoev en grootverpakking
+ . . . Else  If BSAantal'>GrVerp Set BSAantal=GrVerp
+ . . . Else  If BSAantal#GrVerp Set BSAantal=BSAantal+(GrVerp-(BSAantal#GrVerp))
+ . . . Set Control("T",LEVNr,$O(Control("T",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(,"W",LevTerm),"DW")
+ . Else  
+ . . Set Control("M",LEVNr,$O(Control("M",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_Stock_D_Reservatie
+ Quit
+ 
  ; Aanmaken van de toeleveringen (niet-stock)
 ToeLevBSControl(ORDNr,Control)
  New R,KLNr,LEVNr,TOENr,PRNr,FBLocal,Data
@@ -477,7 +502,8 @@
  . . . If TOENr,TLUNr,ORDNr,OLUNr Do SetKomLink(ORDNr,OLUNr,TOENr,TLUNr),RecalcToeLevWeek(ORDNr,OLUNr,TOENr,TLUNr)
  . Do SetDueOutProductieORD^FLOWHALUX(ORDNr,1)
  . Set Data("TextId")="Z"
- . Do EXTERN^DCPRINT("T",TOENr,,,,.Data),TOE^HADETIK(TOENr)
+ . Do:'$$BevestigdAXOrderSluitenActief() EXTERN^DCPRINT("T",TOENr,,,,.Data)
+ . Do:'$$BevestigdAXOrderSluitenActief() TOE^HADETIK(TOENr)
  . Kill ^KTOB(TOENr)
  Quit
  
Index: CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml
===================================================================
diff -u -r48029 -r48197
--- CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 48029)
+++ CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 48197)
@@ -73,6 +73,9 @@
 
 		New zb,R,OrdDat,Closed,TLNr,OLNr,Data,IntPers,ExtPers,FaxNrOrEmail,DevNr,KredLock,Created,LEVNr,DueOutOk,ORDNrs,TempORDNr,OrdBev,FaxType,Exit,BevatMaatWerk,KlantID,OrderBevestiger
 		New Bevestiger
+
+		Set blVerzendWijze = Order.GeefVerzendWijze() 
+		Set blLeveringsTermijn=##class(APPS.VKP.LeveringsTermijn).%New(,blVerzendWijze)
 		
 		Set Closed = 0
 		Do:'Closed ..SpaceTowerSplitser.SplitsSpaceTowerLijnen(ORDNr)
@@ -103,8 +106,6 @@
 		.Do ProductieOrder^FLOWHALUX(ORDNr,1)
 
 		Do:'Closed
-		.Set blVerzendWijze = Order.GeefVerzendWijze() 
-		.Set blLeveringsTermijn=##class(APPS.VKP.LeveringsTermijn).%New(,blVerzendWijze)
 		.Do SetDueOutProductieORD^FLOWHALUX(ORDNr,1)
 		.Do:KLNr'=$$$KlantKeller CheckTBXDagPlus^FLOWORD2(ORDNr)