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