Index: MRPRES.mac.rou
===================================================================
diff -u -r74827 -r74842
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 74827)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 74842)
@@ -17,8 +17,6 @@
  ;Do ONERES(CRef,FabKey,PRNr,QtyToe,"FPW",.Status) ; De hercalculatie gebeurt globaal op voorhand, niet meer individueel
   ; Nakijken of een transfer order nodig is
  ;If ((Status["W")!(Status["F")!(Status["P")),(Status'["X") Do 
- 
- Quit:##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr) ; deze producten worden verwerkt door het OBJT MES 
  Set Status=""
  Set ForeCastDagen=3 ; aantal forecast dagen voor werkvloerproducten op voorraad
  Do BLDTORD(CRef,FabKey,PRNr,ForeCastDagen)
@@ -64,8 +62,6 @@
  ; Status via .Local
  ; Opties: wat te controleren F=Fysische stock,Praktische stock, W=werkvloer magazijn, T=toelevering, Z = Alles of niets
  Set Status=""
- Quit:##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr) ; deze producten worden verwerkt door het OBJT MES 
-
  Do DELONE(FabKey,PRNr,.Status,$G(NoResDel))
  Quit:Status="LCK"  ; HF gelockt
  Do CHKONE(CRef,FabKey,PRNr,QtyToe,Opties,.Status)
@@ -389,7 +385,6 @@
  Set Status=""
  Quit:$P($G(^HADPR("F",FabKey,"K")),D,3)="A"  ; Reeds productie klaar
  Quit:$P($G(^HADPR("F",FabKey,"A")),D,3)'="A"  ; Niet actief
- 
  Set QtyRes=QtyToe  ; veronderstelling, dat alles kan geleverd worden
  Set HFCode=""
  Set Stop=0