Index: MRPRES.mac.rou
===================================================================
diff -u -r72928 -r74827
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 72928)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 74827)
@@ -17,6 +17,8 @@
  ;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)
@@ -62,6 +64,8 @@
  ; 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)
@@ -385,6 +389,7 @@
  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