Index: OBJTimpl/CheckObjectiveFase.cls.xml
===================================================================
diff -u -r74842 -r74843
--- OBJTimpl/CheckObjectiveFase.cls.xml	(.../CheckObjectiveFase.cls.xml)	(revision 74842)
+++ OBJTimpl/CheckObjectiveFase.cls.xml	(.../CheckObjectiveFase.cls.xml)	(revision 74843)
@@ -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)