Index: OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r74734 -r74827
--- OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74734)
+++ OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74827)
@@ -4,9 +4,9 @@
 <Description>
 Verwerken van de door AX gegenereerde voorraadcorrecties.
 Sommige van deze correcties hebben hun oorsprong in OBJT MES
-- StockCorrectie
-- Replenishment
-- SOPR reconciliatie</Description>
+- StockCorrectie (oorsprong MES)
+- Replenishment (oorsprong MES)
+- SOPR reconciliatie (oorsprong AX)</Description>
 <IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
@@ -56,9 +56,9 @@
 
 <Method name="PropagateFout">
 <Implementation><![CDATA[
-	If ..pxWijziging.Fout'=""
+	If (..pxWijziging.Fout'="") &&(..pxWijzigingen.Fout'[..pxWijziging.Fout)
 	{
-		Set ..pxWijzigingen.Fout=..pxWijziging.Fout
+		Set ..pxWijzigingen.Fout=..pxWijzigingen.Fout_$S(..pxWijzigingen.Fout'="":"; ",1:"")_..pxWijziging.Fout
 	}
 ]]></Implementation>
 </Method>
@@ -91,7 +91,7 @@
 		Do ##class(vhLib.OldSchool).InitVars()
 		Set CUserId="OBJT MES"
 		
-	 	Do ..Logger.Warning("Voorraadniveau ",..pxWijziging.BronSysteem," PRNr:"_..pxWijziging.PRNr_" Entiteit:"_..pxWijziging.Entiteit_" Delta:"_..pxWijziging.Delta_" Actie:"_..pxWijziging.OorsprongWijziging_" Oms:"_..pxWijziging.RedenWijziging) 
+	 	Do ..Logger.Warning("Voorraadniveau ",..pxWijziging.ProductieSysteem," PRNr:"_..pxWijziging.PRNr_" Entiteit:"_..pxWijziging.Entiteit_" Delta:"_..pxWijziging.Delta_" Actie:"_..pxWijziging.OorsprongWijziging_" Oms:"_..pxWijziging.RedenWijziging) 
 		Set Magazijn=..BepaalMagazijn()
 		Set Actie=..BepaalActie()
 		
@@ -112,7 +112,7 @@
 <Implementation><![CDATA[
 	Quit:..pxWijziging.OorsprongWijziging="SOPR Reconciliatie" "O" ; optimalisatie
 	Quit:..pxWijziging.OorsprongWijziging="CycleCount" "M" ; manuele correctie
-	Quit:..pxWijziging.OorsprongWijziging="Replenish" "T" ; transfer
+	Quit:..pxWijziging.OorsprongWijziging="Replenishment" "T" ; transfer
 	Set ..pxWijziging.Fout="Onbekende oorsprong"
 	Quit "X"
 ]]></Implementation>
@@ -121,8 +121,9 @@
 <Method name="BepaalGeldig">
 <Implementation><![CDATA[
 	Set:..pxWijziging.Entiteit="" ..pxWijziging.Fout="Entiteit niet ingevuld"
+	Set:(..pxWijziging.ProductieSysteem'="MES")&&(..pxWijziging.ProductieSysteem'="AX") ..pxWijziging.Fout="ProductieSysteem niet ingevuld"
 	Set:..pxWijziging.PRNr="" ..pxWijziging.Fout="Onbekend product"
-	If (..pxWijziging.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxWijziging.PRNr,..pxWijziging.Entiteit,..pxWijziging.BronSysteem))
+	If (..pxWijziging.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxWijziging.PRNr,..pxWijziging.Entiteit,..pxWijziging.ProductieSysteem))
 	{
 		Set ..pxWijziging.Fout="Sync niet toegelaten. Fase:"_..CheckOBJTFase.GeefFase()
 	}
Index: APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml
===================================================================
diff -u -r29059 -r74827
--- APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 29059)
+++ APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74827)
@@ -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: OBJTimpl/CheckObjectiveFase.cls.xml
===================================================================
diff -u -r67315 -r74827
--- OBJTimpl/CheckObjectiveFase.cls.xml	(.../CheckObjectiveFase.cls.xml)	(revision 67315)
+++ OBJTimpl/CheckObjectiveFase.cls.xml	(.../CheckObjectiveFase.cls.xml)	(revision 74827)
@@ -6,6 +6,7 @@
 0. Voor live gang OBJT
 1. OBJT beheert alleen de vertikale liften. Verder verloopt het WMS in Admin
 2. OBJT beheert alleen de beslag producten (geen maatwerk).
+3. OBJT MES beheert het plaatmateriaal TLM en maakt de eindproducten
 5. OBJT beheert het ganse WMS en de transferorders voor productie worden doorgegeven van Admin naar OBJT voor picking</Description>
 <IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
 <Super>%RegisteredObject</Super>
@@ -18,49 +19,107 @@
 </UDLText>
 
 <Parameter name="OBJTFaseDefault">
-<Default>0</Default>
+<Default>2</Default>
 </Parameter>
 
+<Parameter name="OBJTMESSamengesteld">
+<Default>OMS</Default>
+</Parameter>
+
 <Method name="PickingDoorOBJT">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3) ;OBJT 1ste fase : Opslagzone=Langgoed dan VERT liften
 	Quit:..GeefFase()=2 ($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1) ||($$$PRGet($$$OpslagZone)=3) ;OBJT 2de fase : alleen beslag
-	Quit:..GeefFase()=5 1 ;OBJT 5de fase : alle pickings lopen via OBJT en Admin
-	Quit 0 ; voor live gang OBJT
+	Quit:..GeefFase()=3 ($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1) ||($$$PRGet($$$OpslagZone)=3) ;OBJT 2de fase : alleen beslag
+	Quit 0 ;
 ]]></Implementation>
 </Method>
 
 <Method name="ReceptieNaarOBJT">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%Integer,ProductieSysteem:%String="WMS"</FormalSpec>
+<Implementation><![CDATA[
+	If (ProductieSysteem="MES") || (ProductieSysteem="AX" )
+	{
+		Quit:..GeefFase()=3 (Entiteit="VHBE") && ($$$PRGet($$$ProductGroepWMS)=..#OBJTMESSamengesteld) ; alleen eindproducten bij creatie van LPN (ASN)
+		Quit 0 
+	} Else {
+		Quit 0
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsProductieSysteemMESViaToelevering">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set FabKey=$$FABKEYT^HADOPV(ToeleveringID, ToeleveringLijnID)
+	Set TLNr=$G(^TO("IU",ToeleveringID,ToeleveringLijnID),"*")
+	Set PRNr=$P($G(^KTO($$$LevHalux,ToeleveringID,TLNr)),"\",2)
+	Quit:'PRNr 1
+	Quit ..IsProductieSysteemMES(PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="IsProductieSysteemMES">
+<ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3) ;OBJT 1ste fase : Opslagzone=Langgoed dan VERT liften
-	Quit 0 ; voor live gang OBJT
+	If ..GeefFase()=3 
+	{
+		Set GenPRNr=$P($G(^KPR(PRNr,0)),"\",3)
+		If GenPRNr?4.N
+		{
+			Set IsSamengesteld=$$$ProductGet(GenPRNr,$$$ProductGroepWMS)=..#OBJTMESSamengesteld ; backflush wordt uitgevoerd door MES en AX en mag niet meer in Admin gebeuren voor bepaalde moederproducten
+		}
+	}
+	Quit $G(IsSamengesteld)
 ]]></Implementation>
 </Method>
 
 <Method name="VoorraadSync">
-<FormalSpec>PRNr:%Integer,Entiteit:%String</FormalSpec>
+<FormalSpec>PRNr:%Integer,Entiteit:%String,ProductieSysteem:%String="WMS"</FormalSpec>
 <Implementation><![CDATA[
-	Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3)&&(Entiteit="VHBE")  ;OBJT 1ste fase : Langgoed dan VERT liften
-	Quit:..GeefFase()=2 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3))&&(Entiteit="VHBE") ;OBJT 2 de fase : OBJT kent aleen de VHBE voorraad voor beslag producten
-	Quit:..GeefFase()=5 1 ;OBJT 5de fase : OBJT beheert de voorraad van zowel HLX als VHBE
-	Quit 0 ; voor live gang OBJT
+	If (ProductieSysteem="MES") || (ProductieSysteem="AX" )
+	{
+		Quit 0 ; kan niet voorkomen
+	} Else {
+		Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3)&&(Entiteit="VHBE")  ;OBJT 1ste fase : Langgoed dan VERT liften
+		Quit:..GeefFase()=2 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3))&&(Entiteit="VHBE") ;OBJT 2 de fase : OBJT kent alleen de VHBE voorraad voor beslag producten
+		;Plaatmateriaal TLM en Karton wordt opgeslagen in OBJT WMS bij entiteit HLX -> wordt niet verwerkt in Admin Werkvloer
+		;Plaatmateriaal TA'OR wordt opgeslagen in de Winstore en wordt gesynced van de Winstore naar de Admin werkvloer
+		Quit:..GeefFase()=3 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3))&&(Entiteit="VHBE") ;OBJT 3 de fase : OBJT kent alleen de VHBE voorraad voor beslag producten 
+		Quit 0
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="VoorraadWijziging">
-<FormalSpec>PRNr:%Integer,Entiteit:%String</FormalSpec>
+<FormalSpec>PRNr:%Integer,Entiteit:%String,ProductieSysteem:%String="WMS"</FormalSpec>
 <Implementation><![CDATA[
-	Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3)&&(Entiteit="VHBE")  ;OBJT 1ste fase : Langgoed dan VERT liften
-	Quit:..GeefFase()=2 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3)) ;OBJT 2 de fase : OBJT doet de inboundverwerking voor zowel VHBE als HLX
-	Quit:..GeefFase()=5 1 ;OBJT 5de fase : OBJT beheert de voorraad van zowel HLX als VHBE
-	Quit 0 ; voor live gang OBJT
+	If (ProductieSysteem="MES") || (ProductieSysteem="AX" )
+	{
+		Quit:..GeefFase()=3 (Entiteit'="HLX")  ; alles behalve die componenten die door OBJT MES worden beheerd
+		Quit 0
+	} Else {
+		Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3)&&(Entiteit="VHBE")  ;OBJT 1ste fase : Langgoed dan VERT liften
+		Quit:..GeefFase()=2 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3)) ;OBJT 2 de fase : OBJT doet de inboundverwerking voor zowel VHBE als HLX
+		Quit:..GeefFase()=3 ((($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3))&&(Entiteit="VHBE")) ; OBJT 3 de fase : OBJT doet de inboundverwerking voor zowel VHBE als HLX
+		Quit 0 ;
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="IsFase3">
+<Description>
+##class(OBJTimpl.CheckObjectiveFase).IsFase3()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit ..GeefFase()>2
+]]></Implementation>
+</Method>
+
 <Method name="GeefFase">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetString("OBJTimpl.Fase", ..#OBJTFaseDefault)
Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u -r67052 -r74827
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 67052)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74827)
@@ -34,6 +34,12 @@
 <Parameter name="XMLITEMNAME" value="Entiteit"/>
 </Property>
 
+<Property name="ProductieSysteem">
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="ProductieSysteem"/>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
 <Property name="Delta">
 <Type>%Integer</Type>
 <Parameter name="XMLITEMNAME" value="Delta"/>
@@ -89,6 +95,9 @@
 <Value name="9">
 <Value>ItemIdAX</Value>
 </Value>
+<Value name="10">
+<Value>ProductieSysteem</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: OBJTimpl/MES/TestVoorraadWijziging.cls.xml
===================================================================
diff -u -r74734 -r74827
--- OBJTimpl/MES/TestVoorraadWijziging.cls.xml	(.../TestVoorraadWijziging.cls.xml)	(revision 74734)
+++ OBJTimpl/MES/TestVoorraadWijziging.cls.xml	(.../TestVoorraadWijziging.cls.xml)	(revision 74827)
@@ -11,13 +11,21 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="pxWijzigingen">
-<Type>dtoCorrelateVoorraadWijzigingen</Type>
+<Type>OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen</Type>
 </Property>
 
 <Property name="pxWijziging">
-<Type>dtoCorrelateVoorraadWijziging</Type>
+<Type>%RegisteredObject</Type>
 </Property>
 
+<Property name="ProductieSysteem">
+<Type>%String</Type>
+</Property>
+
+<Property name="OorsprongWijziging">
+<Type>%String</Type>
+</Property>
+
 <Property name="CheckOBJTFase">
 <Type>OBJTimpl.CheckObjectiveFase</Type>
 </Property>
@@ -34,45 +42,120 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test1">
+<Method name="TestAX">
 <Description>
-D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().Test1()</Description>
+D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().TestAX()</Description>
 <Implementation><![CDATA[
-	Set ..pxWijzigingen=##class(dtoCorrelateVoorraadWijzigingen).%New()
-	Do ..VoegtoeWijziging("VHBE","K.407.819.8",-4,"CycleCount","Palet onvindbaar")
-	Do ..VoegtoeWijziging("VHBE","0.407.819.8",-10,"CycleCount","Palet onvindbaar")
-	Do ..VoegtoeWijziging("HLX","K.407.819.8",+4,"CycleCount","Palet onvindbaar")
-	Do ..VoegtoeWijziging("HLX","0.407.819.8",+10,"CycleCount","Palet onvindbaar")
-	Do ##class(ImporteerVoorraadWijziging).%New().VerwerkWijzigingen(..pxWijzigingen)
+	Set ..pxWijzigingen=##class(OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen).%New()
+	Set ..ProductieSysteem="MES"
+	Set ..OorsprongWijziging="CycleCount"
+	Do ..VoegtoeWijziging("VHBE","K.407.819.8",-4,"Palet onvindbaar")
+	Do ..VoegtoeWijziging("VHBE","0.407.819.8",-10,"Palet onvindbaar")
+	Do ..VoegtoeWijziging("HLX","K.407.819.8",+4,"Palet onvindbaar")
+	Do ..VoegtoeWijziging("HLX","0.407.819.8",+10,"Palet onvindbaar")
+	Do ##class(OBJTimpl.MES.ImporteerVoorraadWijziging).%New().VerwerkWijzigingen(..pxWijzigingen)
 	Do ..Show()
+	
+	Set ..pxWijzigingen=##class(OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen).%New()
+	Set ..ProductieSysteem="MES"
+	Set ..OorsprongWijziging="Replenishment"
+	Do ..VoegtoeWijziging("VHBE","K.407.819.8",-4,"")
+	Do ..VoegtoeWijziging("VHBE","0.407.819.8",-10,"")
+	Do ..VoegtoeWijziging("HLX","K.407.819.8",+4,"")
+	Do ..VoegtoeWijziging("HLX","0.407.819.8",+10,"")
+	Do ##class(OBJTimpl.MES.ImporteerVoorraadWijziging).%New().VerwerkWijzigingen(..pxWijzigingen)
+	Do ..Show()
+
+	Set ..pxWijzigingen=##class(OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen).%New()
+	Set ..ProductieSysteem="AX"
+	Set ..OorsprongWijziging="SOPR Reconciliatie"
+	Do ..VoegtoeWijziging("VHBE","K.407.819.8",-4,"SOPR")
+	Do ..VoegtoeWijziging("VHBE","0.407.819.8",-10,"SOPR")
+	Do ..VoegtoeWijziging("HLX","K.407.819.8",+4,"SOPR")
+	Do ..VoegtoeWijziging("HLX","0.407.819.8",+10,"SOPR")
+	Do ##class(OBJTimpl.MES.ImporteerVoorraadWijziging).%New().VerwerkWijzigingen(..pxWijzigingen)
+	Do ..Show()
 ]]></Implementation>
 </Method>
 
+<Method name="TestWMS">
+<Description>
+D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().TestWMS()</Description>
+<Implementation><![CDATA[
+	; lossing
+	Set ..ProductieSysteem="WMS"
+	Do ..CreateWMSWijziging("VHBE","0.407.819.8","K.407.819.8",-4,"LosID")
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	Do ..CreateWMSWijziging("VHBE","0.407.819.8","0.407.819.8",-10,"LosID")
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	Do ..CreateWMSWijziging("HLX","0.407.819.8","K.407.819.8",+4,"LosID")
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	Do ..CreateWMSWijziging("HLX","0.407.819.8","0.407.819.8",+10,"LosID")
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	; cyclecount
+	Do ..CreateWMSWijziging("VHBE","0.407.819.8",,-4)
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	Do ..CreateWMSWijziging("HLX","0.407.819.8",,+4)
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+]]></Implementation>
+</Method>
+
 <Method name="VoegtoeWijziging">
-<FormalSpec>Entiteit:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,OorsprongWijziging:%String,RedenWijziging:%String</FormalSpec>
+<FormalSpec>Entiteit:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,RedenWijziging:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set pxWijziging=##class(dtoCorrelateVoorraadWijziging).%New()
-	Set pxWijziging.Entiteit=Entiteit
-	Set pxWijziging.ItemIdAX=ItemIdAX
-	Set pxWijziging.Delta=VoorraadWijziging
-	Set pxWijziging.RedenWijziging = $G(RedenWijziging)
-	Set pxWijziging.OorsprongWijziging = OorsprongWijziging
-	Set pxWijziging.BronSysteem = "MES"
-	Do ..pxWijzigingen.Lijst.Insert(pxWijziging)
+	Set ..pxWijziging=##class(OBJTimpl.MES.dtoCorrelateVoorraadWijziging).%New()
+	Set ..pxWijziging.Entiteit=Entiteit
+	Set ..pxWijziging.ItemIdAX=ItemIdAX
+	Set ..pxWijziging.Delta=VoorraadWijziging
+	Set ..pxWijziging.RedenWijziging = $G(RedenWijziging)
+	Set ..pxWijziging.OorsprongWijziging = ..OorsprongWijziging
+	Set ..pxWijziging.ProductieSysteem =..ProductieSysteem
+	Do ..pxWijzigingen.Lijst.Insert(..pxWijziging)
 ]]></Implementation>
 </Method>
 
+<Method name="CreateWMSWijziging">
+<FormalSpec>Entiteit:%String,ItemId:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,Lossing:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..pxWijziging=##class(OBJTimpl.WMSOrder.dtoCorrelateVoorraadWijziging).%New()
+	Set ..pxWijziging.Entiteit=Entiteit
+	Set ..pxWijziging.ItemId=ItemId
+	Set ..pxWijziging.ItemIdAX=$G(ItemIdAX)
+	Set ..pxWijziging.Delta=VoorraadWijziging
+	Set ..pxWijziging.Lossing = $G(Lossing)
+	Set ..pxWijziging.ProductieSysteem =..ProductieSysteem
+]]></Implementation>
+</Method>
+
 <Method name="Show">
 <Implementation><![CDATA[
 	Set it=##class(TECH.ListIterator).%New(..pxWijzigingen.Lijst)
 	While it.HasNext()
 	{
 		Set pxWijziging=it.Next()
-		Do DumpObject^%apiOBJ(pxWijziging)
+		;Do DumpObject^%apiOBJ(pxWijziging)
+		Write pxWijziging.ProductieSysteem," ",pxWijziging.OorsprongWijziging
+		Write " ",pxWijziging.Entiteit, " ", pxWijziging.ItemIdAX, " ",$s(pxWijziging.Fout="":"OK",1:"Fout:"_pxWijziging.Fout)
+		Write !
 	}
-	Write !,..pxWijzigingen.Fout,!
+	Write "alle fouten: ",..pxWijzigingen.Fout,!!
 ]]></Implementation>
 </Method>
+
+<Method name="ShowWMS">
+<Implementation><![CDATA[
+		Set pxWijziging=..pxWijziging
+		Write pxWijziging.ProductieSysteem
+		Write " ",pxWijziging.Entiteit, " ", pxWijziging.ItemIdAX, " ",$s(pxWijziging.Fout="":"OK",1:"Fout:"_pxWijziging.Fout)
+		Write !
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: PRODUKT4.mac.rou
===================================================================
diff -u -r73709 -r74827
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 73709)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 74827)
@@ -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=""
Index: PV.mac.rou
===================================================================
diff -u -r73192 -r74827
--- PV.mac.rou	(.../PV.mac.rou)	(revision 73192)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 74827)
@@ -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: OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u -r74734 -r74827
--- OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74734)
+++ OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74827)
@@ -52,11 +52,11 @@
 <Parameter name="XMLITEMNAME" value="OorsprongWijziging"/>
 </Property>
 
-<Property name="BronSysteem">
+<Property name="ProductieSysteem">
 <Description>
 MES of WMS</Description>
 <Type>%String</Type>
-<Parameter name="XMLITEMNAME" value="BronSysteem"/>
+<Parameter name="XMLITEMNAME" value="ProductieSysteem"/>
 </Property>
 
 <Property name="Fout">
Index: OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r68334 -r74827
--- OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 68334)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74827)
@@ -55,21 +55,31 @@
 </UDLText>
 
 <Method name="VerwerkWebservice">
-<FormalSpec>Entiteit:%String,ItemId:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,Lossing:%String</FormalSpec>
+<FormalSpec>Entiteit:%String,ItemId:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,Lossing:%String,ProductieSysteem:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..pxVoorraad=##class(dtoCorrelateVoorraadWijziging).%New()
 	Set ..pxVoorraad.Entiteit=Entiteit
 	Set ..pxVoorraad.ItemId=ItemId
 	Set ..pxVoorraad.ItemIdAX=$G(ItemIdAX)
 	Set ..pxVoorraad.Delta=VoorraadWijziging
 	Set ..pxVoorraad.Lossing = $G(Lossing)
+	Set ..pxVoorraad.ProductieSysteem = $G(ProductieSysteem)
 	
 	Do ..VerwerkVoorraad()
 	
 	Quit ..pxVoorraad.Fout
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkObject">
+<FormalSpec>pxWijziging:dtoCorrelateVoorraadWijziging</FormalSpec>
+<Implementation><![CDATA[
+	
+	Set ..pxVoorraad=pxWijziging
+	Do ..VerwerkVoorraad()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVoorraad">
 <Implementation><![CDATA[
 	Do ..BepaalPRNr()
@@ -179,9 +189,10 @@
 
 <Method name="BepaalGeldig">
 <Implementation><![CDATA[
-	Set:..pxVoorraad.Entiteit="" ..pxVoorraad.Fout="Entiteit niet ingevuld"
+	Set:(..pxVoorraad.Entiteit'="VHBE")&&(..pxVoorraad.Entiteit'="HLX") ..pxVoorraad.Fout="Entiteit ongeldig:"_..pxVoorraad.Entiteit
+	Set:(..pxVoorraad.ProductieSysteem'="")&&(..pxVoorraad.ProductieSysteem'="WMS") ..pxVoorraad.Fout="ProductieSysteem ongeldig:"_..pxVoorraad.ProductieSysteem
 	Set:..pxVoorraad.PRNr="" ..pxVoorraad.Fout="Onbekend product"
-	If (..pxVoorraad.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxVoorraad.PRNr,..pxVoorraad.Entiteit))
+	If (..pxVoorraad.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxVoorraad.PRNr,..pxVoorraad.Entiteit,..pxVoorraad.ProductieSysteem))
 	{
 		Set ..pxVoorraad.Fout="Sync niet toegelaten. Fase:"_..CheckOBJTFase.GeefFase()
 	}
Index: APPS/PM/enu/ProductGroep.cls.xml
===================================================================
diff -u -r64707 -r74827
--- APPS/PM/enu/ProductGroep.cls.xml	(.../ProductGroep.cls.xml)	(revision 64707)
+++ APPS/PM/enu/ProductGroep.cls.xml	(.../ProductGroep.cls.xml)	(revision 74827)
@@ -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: HADOPV.mac.rou
===================================================================
diff -u -r73522 -r74827
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 73522)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 74827)
@@ -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: vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml
===================================================================
diff -u -r29059 -r74827
--- vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74827)
@@ -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 -r64708 -r74827
--- PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 64708)
+++ PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 74827)
@@ -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: 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
Index: HADSTAT2.mac.rou
===================================================================
diff -u -r70681 -r74827
--- HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 70681)
+++ HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 74827)
@@ -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: PRHF.mac.rou
===================================================================
diff -u -r67309 -r74827
--- PRHF.mac.rou	(.../PRHF.mac.rou)	(revision 67309)
+++ PRHF.mac.rou	(.../PRHF.mac.rou)	(revision 74827)
@@ -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")