Index: APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml
===================================================================
diff -u -r74842 -r74848
--- APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74842)
+++ APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74848)
@@ -35,7 +35,10 @@
 <Method name="IsVolledigKlaarGezet">
 <FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $P($G(^HADPR("F",##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(ToeleveringID, ToeleveringLijnID),"K")),"\",3)="A"
+<Implementation><![CDATA[
+	Set ViaMES=##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMESViaToelevering(ToeleveringID, ToeleveringLijnID)  ; Producten worden uitgevoerd door MES
+	Quit:ViaMES 1
+	Quit $P($G(^HADPR("F",##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(ToeleveringID, ToeleveringLijnID),"K")),"\",3)="A"
 ]]></Implementation>
 </Method>
 </Class>
Index: PRHF.mac.rou
===================================================================
diff -u -r74842 -r74848
--- PRHF.mac.rou	(.../PRHF.mac.rou)	(revision 74842)
+++ PRHF.mac.rou	(.../PRHF.mac.rou)	(revision 74848)
@@ -2,6 +2,7 @@
  ;
 HADPR(TOENr,TLUNr,PRNr,AantWMS,RCPODate) 
  New R,HFCode,HFPRNr,Aantal,KLNr,WVAantal,DimUitV,QtyWVRes,ResRec,FabKey
+ Quit:##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr) ; geen backflush in Admin wordt verwerkt door MES
  Do LogMoeder("M",PRNr,PRNr_D_TOENr_D_TLUNr_D_AantWMS)
  If '$$ISHALUX^PRODUKT2(PRNr),'$$ISNV^PRODUKT2(PRNr) Quit
  Set HFCode="",KLNr=$$GETALG^DEFAULTS("MRP","KLNR")
Index: vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml
===================================================================
diff -u -r74842 -r74848
--- vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74842)
+++ vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74848)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.Halux.Voorbereiding.VoorbereidingService">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.Voorbereiding.VoorbereidingService,Tools.Mock.MockClassBase</Super>
 
Index: PRODUKT.mac.rou
===================================================================
diff -u -r74842 -r74848
--- PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 74842)
+++ PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 74848)
@@ -27,7 +27,7 @@
  Lock  ZD
  Quit LScreen_D_LElement_D_Aktie
  ;
- ;Opvragen klassificatie bij Afdrukken  Prijsuitzondering
+ ;Opvragen klassificatie bij Afdrukken Prijsuitzondering
  ;***** Te vervangen door SELECT^KLAS
 KLASKEY(Ref,Key) 
  New H,G,S,h,g,s,R
@@ -340,6 +340,7 @@
  .If GenTyp["LBX" Set Groep=##class(APPS.PM.enu.ProductGroep).Legrabox()
  .If GenTyp["TAO" Set Groep=##class(APPS.PM.enu.ProductGroep).TAORBOX()
  .If GenTyp["MVX" Set Groep=##class(APPS.PM.enu.ProductGroep).Merivobox()
+ .If GenTyp["RVG" Set Groep=##class(APPS.PM.enu.ProductGroep).Revego()
  Set Key=$O(^KPR(PRNr,"I"))
  If $E(Key)="I" Quit:$P(^KPR(PRNr,Key),"\")["OL" "OL"
  Else  If $G(CheckOldProducts)  Set Key=$O(^KPRO(PRNr,"I")) If $E(Key)="I" Quit:$P(^KPRO(PRNr,Key),"\")["OL" "OL"  
Index: APPS/PM/enu/ProductGroep.cls.xml
===================================================================
diff -u -r74842 -r74848
--- APPS/PM/enu/ProductGroep.cls.xml	(.../ProductGroep.cls.xml)	(revision 74842)
+++ APPS/PM/enu/ProductGroep.cls.xml	(.../ProductGroep.cls.xml)	(revision 74848)
@@ -6,11 +6,11 @@
 <Super>%EnumString</Super>
 
 <Parameter name="VALUELIST">
-<Default>,???,BLUM,HAL,OL,REST,TBX,TA.B,TA.C,LBX,MVX</Default>
+<Default>,???,BLUM,HAL,OL,REST,TBX,TA.B,TA.C,LBX,MVX,RVG</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,Onbekend,Blum,Halux,Orgalux,Rest,Tandembox,TA'OR BOX, TA'OR Indeling,Legrabox,Merivobox</Default>
+<Default>,Onbekend,Blum,Halux,Orgalux,Rest,Tandembox,TA'OR BOX, TA'OR Indeling,Legrabox,Merivobox,Revego</Default>
 </Parameter>
 
 <Method name="Onbekend">
@@ -82,6 +82,13 @@
 <Implementation><![CDATA["MVX"
 ]]></Implementation>
 </Method>
+
+<Method name="Revego">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["RVG"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: HADSTAT2.mac.rou
===================================================================
diff -u -r74842 -r74848
--- HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 74842)
+++ HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 74848)
@@ -122,6 +122,7 @@
  Set GenRec=$$GENTYP^HAD(PRNr)
  If $L($P(GenRec,D)) Do
  .Set:$P(GenRec,D)="KAD" Montage="KZ"  ; Kaderdeur ongemonteerd
+ .Set:$P(GenRec,D)="RVG" Montage="RV"  ; Revego
  .Set:Montage="KZ"&($P(GNode,D,11)!($P(GNode,D,11)["K")) Montage="KM" ; Kaderdeur gemonteerd
  .Set:$P(GenRec,D)="BAN" Montage="BA" ; Banco
  .Set:$P(GenRec,D)="GLA" Montage="DV" ; Glas
@@ -165,8 +166,9 @@
  Quit
  
 DTLPR(Soort) 
- New VolgNr,Rec,FabKey
+ New VolgNr,Rec,FabKey,IsMES
  Set FabKey=$$FABKEYT^HADOPV(TOENr,TLUNr)
+ Set IsMES=##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr)
  If $P($G(^HADPR("F",FabKey),"\\\1"),"\",4) Do 
  . Kill ^HADPR("F",FabKey) ; Opkuis van oude data bij hergebruik van toeleveringsnummer (round robin)
  . Do MARKDEF^HADOPV(PRNr,TOENr,TLUNr) ; Indien eerste maal default markeringen
@@ -182,6 +184,8 @@
  .Set:($E(Soort)="L") Batch=$E(Soort,1,2)_" " ; Legrabox
  .Set:($E(Soort)="M") Batch=$E(Soort,1,2)_" " ; Merivobox
  .Set:(Soort="VM")||(Soort="PM")||(Soort="GM")||(Soort="BB")||(Soort="MM") Batch=Soort_" "
+ .Set:Soort="RV" Batch="RVG"
+ .Set:IsMES Batch="MES" ; alle lades die in OBJT MES verwerkt worden
  .Set $P(Rec,D,1)=Batch
  .Set:LevWk=ProdWk $P(Rec,D,2)="A"
  .Set $P(Rec,D,3)=PRNr
@@ -195,7 +199,9 @@
  .Set:$E(Soort)="M" Rec="MVX "_$S($E(Soort,2)="X":"V1",1:"Probox,...")
  .Set:$E(Soort,1,2)="MM" Rec="Mat op maat"
  .Set:$E(Soort,1,2)="TA" Rec="TAX"
-  .Set $P(Rec,D,2)=$H
+ .Set:Soort="RV" Rec="Revego"
+ .Set:IsMES Rec="Verwerkt door MES" ; alle lades die in OBJT MES verwerkt worden
+ .Set $P(Rec,D,2)=$H
  .Set $P(Rec,D,3)=$$CALCDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(ProdWk,"W","FD"),"A","-0")
  .Set $P(Rec,D,4)=$$CALCDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(ProdWk,"W","LD"),"A","+0")
  .Set ^HADPR("B",Batch)=Rec
Index: MRPRES.mac.rou
===================================================================
diff -u -r74842 -r74848
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 74842)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 74848)
@@ -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
Index: PV.mac.rou
===================================================================
diff -u -r74842 -r74848
--- PV.mac.rou	(.../PV.mac.rou)	(revision 74842)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 74848)
@@ -3,7 +3,30 @@
 #include BL.Derde.KlantSpecifiek
 #include BL.Derde.LevSpecifiek
 q
+MESStockage
+	;Resource stockagegrp
+	s ^RES("PRODUKT","PI","STOCKAGEGRP","D","OMC")="5`Objt MES component"
+	s ^RES("PRODUKT","PI","STOCKAGEGRP","D","OMS")="6`Objt MES samengesteld"
+	; Aanpassen stockagegroep in Admin
+	Set PRNr=5000000
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	. Set KT=$$$PRGet($$$KortTekst)
+	. Set LEVNr=$$$PRGet($$$LeveranciersNr)
+	. ;If (";VF2;"[(";"_$E(KT,1,3)_";")) && (LEVNr=7631) Do ;Europal fanfold
+	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
+	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
+	. ;If (";VPK;"[(";"_$E(KT,1,3)_";")) && (KT'["TAX") && (KT'["SYF") && (LEVNr=6317) Do ;Lefevere 
+	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
+	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
+	. ;If (";SLE.;SLME;SME.;SPE.;"[(";"_$E(KT,1,4)_";")) && (LEVNr=7802) Do ;spaanplaat egger
+	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
+	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
+	. If ("GEN.HAL"=$E(KT,1,7)) && (";TBX;LBX;MVX;"[(";"_$P($$GENTYP^HAD(PRNr,,1),"\")_";")) Do
+	. . Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$P($$GENTYP^HAD(PRNr,,1),"\")," OMS",$$$PRGet($$$ProductGroepWMS),!
+	. . D $$$PRSet($$$ProductGroepWMS,"OMS")
+	
 
+	q
 
 HFL
 	Read "Klant:",HflKlant
Index: HADOPV.mac.rou
===================================================================
diff -u -r74842 -r74848
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 74842)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 74848)
@@ -40,6 +40,7 @@
  Set FabKeyGlobRef=$G(FabKeyGlobRef)
  Set SubPRNr=""
  Do INIT^vhLIST("HADOPV","OVZ",.LD)
+ Set IsObjtFase3=##class(OBJTimpl.CheckObjectiveFase).IsFase3()
  Quit
  
 REFRESH 
@@ -653,7 +654,7 @@
  Quit
  
 MARKBEG(Mode)  ; Markeringstype opslaan 
- Set JaNee=$$JaNee^vhTXTPOP("Waarschuwing", "Vanaf fase M2 mag dit niet meer gebruikt worden voor TBX, LBX en MVX! Wil je toch verdergaan?") //Leeg of 1
+ Set JaNee="1" ;$$JaNee^vhTXTPOP("Waarschuwing", "Vanaf fase M2 mag dit niet meer gebruikt worden voor TBX, LBX en MVX! Wil je toch verdergaan?") //Leeg of 1
  If JaNee="1" Do
  . If $L(Batches,";")>1&(Mode'="BATCH")&("AKGBFTPZMV"'[Mode) Do WARN^vhTXTPOP("Meerdere batches door elkaar~dan is markering niet mogelijk") Quit
  . If $G(MarkTyp)'="" Do MARKEND(1) 
Index: PRODUKT4.mac.rou
===================================================================
diff -u -r74842 -r74848
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 74842)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 74848)
@@ -100,6 +100,7 @@
  Set U2=""
  Set (TotaalH,TotaalK)=0
  For  Set MPRNr=$O(^TO("IP",MPRNr)) Quit:MPRNr=""  Do  ;loop over moederproducten in toeleveringen
+ . Quit:##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(MPRNr) ; goederen worden verwerkt door MES
  . Quit:'$D(^PRBS("IP",PRNr,MPRNr)) ;Moederproduct bevat bouwsteen niet  
  . Set (FaktorH,FaktorK)=0
  . Set BSKey=""