Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r1921 -r1924
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1921)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1924)
@@ -14,7 +14,8 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	
 	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT rtrim(product) as ProductID, CAST(qty_pcs AS INT) as Aantal, I.loc_m, L.loc_g, L.loc_x, L.loc_y, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id) as AantalSecties FROM EWMS.Inventory I JOIN EWMS.Locations L ON I.loc_m = L.loc_m and I.loc_id = L.loc_id WHERE I.loc_id = ? AND I.loc_m < 5")
+	Do ResultSet.Prepare("SELECT rtrim(product) as ProductID, CAST(qty_pcs AS INT) as Aantal, I.loc_m, L.loc_g, L.loc_x, L.loc_y, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id) as AantalSecties"
+							_" FROM EWMS.Inventory I JOIN EWMS.Locations L ON I.loc_m = L.loc_m and I.loc_id = L.loc_id WHERE I.loc_id = ? AND I.loc_m < 5")
 	Do ResultSet.Execute(PalletID)
 	While (ResultSet.Next())
 	{
@@ -38,6 +39,7 @@
 	{
 		Set ProductOpPallet = ProductOpPalletIterator.Next()
 		Set ProductOpPallet.AanwezigInMagazijnen = ..GeefAanwezigInMagazijnen(ProductOpPallet.ProductID)
+		Set ProductOpPallet.PalletIsBezet = ##class(BL.MB.UGLYPicking.Opslag).PalletIsBusy(PalletID)
 	}
 	
 	Quit ProductenOpPallet
@@ -72,6 +74,14 @@
 	}
 	Do ResultSet.Close()
 	
+	/// Busy status achteraf ophalen omdat een resultset in een resultset niet werkt.
+	Set ProductOpPalletIterator = ##class(TECH.ListIterator).%New(ProductenOpPallet)
+	While (ProductOpPalletIterator.HasNext())
+	{
+		Set ProductOpPallet = ProductOpPalletIterator.Next()
+		Set ProductOpPallet.PalletIsBezet = ##class(BL.MB.UGLYPicking.Opslag).PalletIsBusy(ProductOpPallet.LocatieID)
+	}
+	
 	Quit ProductenOpPallet
 ]]></Implementation>
 </Method>
@@ -114,6 +124,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PalletOpvragenAutoMagazijn">
+<FormalSpec>PalletID:%String,Uitgang:APPS.MAG.Inventaris.enu.AutoMagazijnUitgang</FormalSpec>
+<Implementation><![CDATA[
+	Set Result = ""
+	If ('##class(BL.MB.UGLYPicking.Opslag).PalletIsBusy(PalletID,.Result))
+	{
+		If (Result = "")
+		{
+			If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("EWMS_KanPalletOpvragen"))
+			{
+				Set Result = $$SendTransport^EWPAL(PalletID,Uitgang,"Opvragen pallet")
+			}
+			Else
+			{
+				Set Result = "Palletten opvragen is niet mogelijk vanop deze server"
+			}
+		}
+	}
+	Else
+	{
+		Set Result = "Pallet is in gebruik"
+	}
+	
+	If (Result '= "")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Opvragen pallet "_PalletID_" mislukt: "_Result))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanwezigInMagazijnen">
 <FormalSpec>ProductID:%Integer</FormalSpec>
 <Private>1</Private>