Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r64643 -r64688
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 64643)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 64688)
@@ -70,20 +70,11 @@
  . ; omzetting van leverdag naar productie DueOut
  . Set DueOut=blLeveringsTermijn.GetLaatsteProductieTijdstip(LeverDatum, PRNr)
  . 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
- . . . set $Piece(DueOut,",",1) = CurrentDate
- . . . //Do InformeerHaluxPlanningOverProductieDueOutInVerleden(ORDNr)
+ . . Set $Piece(DueOut,",",1) = CurrentDate
  . ; vroegste 
  . Set:(VroegsteDueOut="")||($$DIFFTIME^vhLib.DataTypes(DueOut,VroegsteDueOut)>0) VroegsteDueOut=DueOut
  Quit VroegsteDueOut
  
-InformeerHaluxPlanningOverProductieDueOutInVerleden(ORDNr)
- Do SendMiniMail^vhLib( $$$SystemMail("system"), $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