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()
 	}