Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r43338 -r46527
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 43338)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 46527)
@@ -69,12 +69,18 @@
  . If DateComparator.IsKleinerDan(+DueOut,CurrentDate) Do
  . . if (CurrentDate=LeverDatum) && (+DueOut=$$CALCDATE^vhLib.DataTypes(CurrentDate,"A",-1)) Do
  . . . set $Piece(DueOut,",",1) = CurrentDate
+ . . . Do InformeerHaluxPlanningOverProductieDueOutInVerleden(ORDNr)
  . . Else  Do
- . . . Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("DueOut '"_$zdt(DueOut)_"' ligt in het verleden."))
+ . . . set $Piece(DueOut,",",1) = CurrentDate
+ . . . Do InformeerHaluxPlanningOverProductieDueOutInVerleden(ORDNr)
  . ; vroegste 
  . Set:(VroegsteDueOut="")||($$DIFFTIME^vhLib.DataTypes(DueOut,VroegsteDueOut)>0) VroegsteDueOut=DueOut
  Quit VroegsteDueOut
  
+InformeerHaluxPlanningOverProductieDueOutInVerleden(ORDNr)
+ Do SendMiniMail^vhLib( ##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"@VANHOECKE.BE", $LB("planning_halux@vanhoecke.be"), "Order '"_ORDNr_"' heeft productie dueout in het verleden.", "Gelieve de toelevering van dit order expliciet op te zoeken en in te plannen, in overleg met OV.")
+ Quit
+ 
 DefaultFromWeek(PRNr,ToeLevWk)
  Quit $$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(ToeLevWk,"DW"),"W","FD") ; eerste dag van de week: maandag
  
@@ -349,53 +355,49 @@
  ;
  ; Wijzigen van de tandembox en legrabox productiedagen
 ModTBXProdDagen
- New R,sFL,ModFrom,ModTo,From,To,Subject,Body,K,DisplayOnly
- New Bulk   , Probox   , Karton   , VHOSS   , TAX 
- New BulkVan, ProboxVan, KartonVan, VHOSSVan, TAXVan, AlleVoor
-  Set Bulk = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Bulk")
+ New R,sFL,ModFrom,ModTo,From,To,Subject,Body,Bulk,Probox,Karton,VHOSS,K,DisplayOnly
+ New BulkVan,ProboxVan,KartonVan,VHOSSVan, AlleVoor
+ Set Bulk = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Bulk")
  Set Probox = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Probox")
  Set Karton = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Karton")
  Set VHOSS = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("VHOSS")
- Set TAX = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("TAX")
- Set AlleVoor = Bulk.GlobaleDefault_D_Probox.GlobaleDefault_D_Karton.GlobaleDefault_D_VHOSS.GlobaleDefault_D_TAX.GlobaleDefault
+ Set AlleVoor = Bulk.GlobaleDefault_D_Probox.GlobaleDefault_D_Karton.GlobaleDefault_D_VHOSS.GlobaleDefault
  Set sFL(1) = AlleVoor
- Set BulkVan=$P(sFL(1),D,1), ProboxVan=$P(sFL(1),D,2), KartonVan=$P(sFL(1),D,3) ,VHOSSVan=$P(sFL(1),D,4) ,TAXVan=$P(sFL(1),D,5)
+ Set BulkVan=$P(sFL(1),D,1), ProboxVan=$P(sFL(1),D,2), KartonVan=$P(sFL(1),D,3) ,VHOSSVan=$P(sFL(1),D,4)
  Set DisplayOnly=0
  Lock +ProductieDagenData:1 Else  Set DisplayOnly=1  
  
- If DisplayOnly {
+ If DisplayOnly
+ {
 	 Do DISPLAY^vhScherm("TBXPRODAG")
 	 Set FP=2301 Write @F,"Reeds ingebruik. Druk op <enter> om verder te gaan"
 	 Read K
  }
- Else {
+ Else
+ {
 	 Do NIEUW^vhScherm("TBXPRODAG",,,,,,,"A")
-	 If (AlleVoor '= sFL(1)) {
+	 If (AlleVoor '= sFL(1))
+	 {
 	 	Quit:$$^vhTXTPOP("FILE","SAVE2")'="J"
  	
 	 	Set Bulk.GlobaleDefault=$P(sFL(1),D,1)
 	 	Set Probox.GlobaleDefault=$P(sFL(1),D,2)
 	 	Set Karton.GlobaleDefault=$P(sFL(1),D,3)
 	 	Set VHOSS.GlobaleDefault=$P(sFL(1),D,4)
-	 	Set TAX.GlobaleDefault=$P(sFL(1),D,5)
  	
 	 	Do Bulk.Save()
 	 	Do Probox.Save()
 	 	Do Karton.Save()
 	 	Do VHOSS.Save()
-	 	Do TAX.Save()
  	
 	 	Set From=$$$SystemMail("Productie")
 	 	Set To=$LB(##class(TECH.Config.ConfigMgr).Instance().GetString("FLOWHALUX_ModTBXProdDagen_MailTo"))
-		Set Subject="TBX/LBX/TA'OR productiedagen"
-	 	
-	 	Set Body="De TBX/LBX/TA'OR productiedagen zijn door "_$$USERNAME^vhUSER(,2)_" gewijzigd.<br/>"
+		Set Subject="TBX/LBX productiedagen"
+	 	Set Body="De TBX/LBX productiedagen zijn door "_$$USERNAME^vhUSER(,2)_" gewijzigd.<br/>"
 	 	Set Body=Body_"<br/>Karton: D+"_KartonVan_$S(KartonVan'=Karton.GlobaleDefault:" naar D+"_Karton.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>Bulk: D+"_BulkVan_$S(BulkVan'=Bulk.GlobaleDefault:" naar D+"_Bulk.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>Probox: D+"_ProboxVan_$S(ProboxVan'=Probox.GlobaleDefault:" naar D+"_Probox.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>VHOSS: D+"_VHOSSVan_$S(VHOSSVan'=VHOSS.GlobaleDefault:" naar D+"_VHOSS.GlobaleDefault_".",1:"")
-	 	Set Body=Body_"<br/>TA'OR: D+"_TAXVan_$S(TAXVan'=TAX.GlobaleDefault:" naar D+"_TAX.GlobaleDefault_".",1:"")
-	 	
 	 	Set R=$$SendMiniMail^vhLib(From,To,Subject,Body,,1)
 	 }
  }