Index: WS/AX/Inventory/VoorraadService.cls.xml
===================================================================
diff -u -r74850 -r75094
--- WS/AX/Inventory/VoorraadService.cls.xml	(.../VoorraadService.cls.xml)	(revision 74850)
+++ WS/AX/Inventory/VoorraadService.cls.xml	(.../VoorraadService.cls.xml)	(revision 75094)
@@ -43,16 +43,16 @@
 <Implementation><![CDATA[
 	Set Reponse = ##class(WS.AX.Inventory.WijzigVoorraadResponse).%New()
 	#dim VoorraadWijzigingen As OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen = ..MapRequest(VoorraadWijzigingRequest)
-	
-	;Do ..ImporteerVoorraadWijziging.VerwerkWijzigingen(VoorraadWijzigingen)
-	;Set Reponse.Detail = ..ConverteerDetailResponse(..ImporteerVoorraadWijziging.pxWijzigingen)
-	;If $$$Not(..ImporteerVoorraadWijziging.pxWijzigingen.Fout = "") {
-	;	Set Reponse.Success = $$$False
-	;	Set Reponse.Fout = ..ImporteerVoorraadWijziging.pxWijzigingen.Fout
-	;} Else {
+
+	Do ..ImporteerVoorraadWijziging.VerwerkWijzigingen(VoorraadWijzigingen)
+	Set Reponse.Detail = ..ConverteerDetailResponse(..ImporteerVoorraadWijziging.pxWijzigingen)
+	If $$$Not(..ImporteerVoorraadWijziging.pxWijzigingen.Fout = "") {
+		Set Reponse.Success = $$$False
+		Set Reponse.Fout = ..ImporteerVoorraadWijziging.pxWijzigingen.Fout
+	} Else {
 		Set Reponse.Success = $$$True
-	;	Set Reponse.Fout = ""
-	;}
+		Set Reponse.Fout = ""
+	}
 		
 	Quit Reponse
 ]]></Implementation>
@@ -72,12 +72,12 @@
 		#dim ProductVoorraadWijzigenDto As WS.AX.Inventory.dto.ProductDto = Iterator.Next()
 		Set DtoVoorraadWijzigingDto = ##class(OBJTimpl.MES.dtoCorrelateVoorraadWijziging).%New()
 			
-		Set DtoVoorraadWijzigingDto.Entiteit = ProductVoorraadWijzigenDto.Entiteit
+		Set DtoVoorraadWijzigingDto.Entiteit = ##class(TECH.StringUtils).ToUpper(ProductVoorraadWijzigenDto.Entiteit)
 		Set DtoVoorraadWijzigingDto.ItemIdAX = ProductVoorraadWijzigenDto.ItemIdAX
 		Set DtoVoorraadWijzigingDto.Delta = ProductVoorraadWijzigenDto.Delta
 		Set DtoVoorraadWijzigingDto.RedenWijziging = ProductVoorraadWijzigenDto.RedenWijziging
 		Set DtoVoorraadWijzigingDto.OorsprongWijziging = ProductVoorraadWijzigenDto.OorsprongWijziging
-		Set DtoVoorraadWijzigingDto.ProductieSysteem = ProductVoorraadWijzigenDto.ProductieSysteem
+		Set DtoVoorraadWijzigingDto.ProductieSysteem = ##class(TECH.StringUtils).ToUpper(ProductVoorraadWijzigenDto.ProductieSysteem)
 		
 		Do DtoWijzigingen.Lijst.Insert(DtoVoorraadWijzigingDto)
 	}
Index: OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r74843 -r75094
--- OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74843)
+++ OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 75094)
@@ -121,7 +121,7 @@
 <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.ProductieSysteem'="MES")&&(..pxWijziging.ProductieSysteem'="AX")&&(..pxWijziging.ProductieSysteem '= "ADMIN") ..pxWijziging.Fout="ProductieSysteem niet ingevuld"
 	Set:..pxWijziging.PRNr="" ..pxWijziging.Fout="Onbekend product"
 	If (..pxWijziging.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxWijziging.PRNr,..pxWijziging.Entiteit,..pxWijziging.ProductieSysteem))
 	{