Index: MRPRES.mac.rou
===================================================================
diff -u -r74848 -r75087
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 74848)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 75087)
@@ -26,19 +26,23 @@
  
 BLDTORD(CRef,FabKey,PRNr,ForeCastDagen) 
  ; Controle welke halffabrikaten moeten opgenomen worden in een transferorder
- New HFCode,HFPRNr,DimBrut,HFQty,ARRec,HFRec,HFRecD
+ New HFCode,HFPRNr,DimBrut,HFQty,ARRec,HFRec,HFRecD,MesFaseActief,IsClassificatieMatHalux,IsClassificatieVerpakkingHalux
  
  Quit:$P($G(^HADPR("F",FabKey,"K")),D,3)="A"  ; Reeds productie klaar
- 
+ Set MesFaseActief=##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
  Set (HFCode)=""
  For  Set HFCode=$O(^HADPR("F",FabKey,"AR",HFCode)) Quit:HFCode=""  Do  
  . Set ARRec=^HADPR("F",FabKey,"AR",HFCode)
  . Set HFRec=$G(^PRBS("BS",PRNr,HFCode)) ; als de bouwstenen gewijzigd werden nadat het product geactiveerd was.
  . Quit:$P(HFRec,D,3)'="H"  ; Geen halffabrikaat
  . Set HFRecD=$G(^PRBS("BS",PRNr,HFCode,"D"))
  . Set HFPRNr=$P(HFRec,D,1)
+ . Set IsClassificatieMatHalux = ($$$ProductGet(HFPRNr,$$$KlassificatieKey) = ##class(DOM.PM.enu.Classificatie).MatHalux())
+ . Set IsClassificatieVerpakkingHalux = ($$$ProductGet(HFPRNr,$$$KlassificatieKey) = ##class(DOM.PM.enu.Classificatie).VerpakkingHalux())
  . Quit:('$P(^KPR(HFPRNr,2),D,15))&&($$GETSTOCK^PRODUKT4(HFPRNr,"F",,0,1)<1)  ; Werkvloer product zonder voorraad in magazijn
  . Quit:($$$ProductGet(HFPRNr,$$$WerkvloerSubMag)?1"KANBAN".E) ; Kanban niet opnemen in transferorder
+ . Quit:(IsClassificatieMatHalux && (MesFaseActief>1)) ; Dit is enkel voor tlm, zie routine hierboven waar wordt gecheckt of het prnr moet een transferorder aanmaken
+ . Quit:(IsClassificatieVerpakkingHalux && (MesFaseActief>1)) ; Dit is enkel voor tlm, zie routine hierboven waar wordt gecheckt of het prnr moet een transferorder aanmaken
  . If HFCode?1(1"PRBOONDE.",1"PRKOPLI.",1"PRKOPRE.",1"PRFRONTB.",1"PRFB.")3N,($$PRODGRP^PRODUKT(PRNr)="TA.B"),$$IsGemonteerdeBinnenlade(PRNr) Do ;TA'OR onderdelen te monteren bij binnenlade
  . . Set @CRef@("TAX ASSEMBLAGE",HFPRNr,FabKey)=$P(ARRec,D,2)_"\"_$P(HFRecD,D,2)
  . If $L($P($G(^KPR(HFPRNr,15)),D,5)) Do  ; Er is een herbestelpunt ingevuld daarom overlaten aan de SCAN^MRPSTOCK