Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u -r1921 -r1924
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1921)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1924)
@@ -23,6 +23,7 @@
 	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Voor product 1000")
 	Do $$$AssertEquals(ProductOpPallet.AantalSecties,1,"Er is 1 sectie op de pallet")
 	Do $$$AssertEquals(ProductOpPallet.MagazijnOmschrijving,"LANG","Langgoed magazijn")
+	Do $$$AssertFalse(ProductOpPallet.PalletIsBezet,"De pallet is niet bezet")
 	
 	Set AanwezigInMagazijn = ProductOpPallet.AanwezigInMagazijnen.GetAt(1)
 	
@@ -49,6 +50,7 @@
 	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Voor product 1000")
 	Do $$$AssertEquals(ProductOpPallet.AantalSecties,1,"Er is 1 sectie op de pallet")
 	Do $$$AssertEquals(ProductOpPallet.MagazijnOmschrijving,"LANG","Langgoed magazijn")
+	Do $$$AssertFalse(ProductOpPallet.PalletIsBezet,"De pallet is niet bezet")
 ]]></Implementation>
 </Method>
 
Index: WS/MAG/Inventaris/InventarisService.cls.xml
===================================================================
diff -u -r1921 -r1924
--- WS/MAG/Inventaris/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1921)
+++ WS/MAG/Inventaris/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1924)
@@ -36,5 +36,12 @@
 <Implementation><![CDATA[	Quit ##class(APPS.MAG.InventarisService).%New().GeefProductReceptieDetail(PalletID, ProductID)
 ]]></Implementation>
 </Method>
+
+<Method name="PalletOpvragenAutoMagazijn">
+<FormalSpec>PalletID:%String,Uitgang:APPS.MAG.Inventaris.enu.AutoMagazijnUitgang</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(APPS.MAG.InventarisService).%New().PalletOpvragenAutoMagazijn(PalletID, Uitgang)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhDeploy/CSC/Deploy20110830x0900.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20110830x0900.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20110830x0900.cls.xml	(revision 1924)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20110830x0900">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("EWMS_KanPalletOpvragen",0)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
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>
Index: APPS/MAG/Inventaris/enu/AutoMagazijnUitgang.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/enu/AutoMagazijnUitgang.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/enu/AutoMagazijnUitgang.cls.xml	(revision 1924)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.enu.AutoMagazijnUitgang">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;UGLY;TRANSIT</Default>
+</Parameter>
+
+<Method name="Ugly">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.Inventaris.enu.AutoMagazijnUitgang</ReturnType>
+<Implementation><![CDATA[	Quit "UGLY"
+]]></Implementation>
+</Method>
+
+<Method name="Transit">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.Inventaris.enu.AutoMagazijnUitgang</ReturnType>
+<Implementation><![CDATA[	Quit "TRANSIT"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml
===================================================================
diff -u -r1909 -r1924
--- APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(.../ProductOpPallet.cls.xml)	(revision 1909)
+++ APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(.../ProductOpPallet.cls.xml)	(revision 1924)
@@ -33,6 +33,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="PalletIsBezet">
+<Type>%Boolean</Type>
+</Property>
+
 <Property name="AanwezigInMagazijnen">
 <Type>APPS.MAG.Inventaris.dto.AanwezigInMagazijn</Type>
 <Collection>list</Collection>
Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r1921 -r1924
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1921)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1924)
@@ -1,12 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-08-29 15:44:49">
+<Project name="CSC Ugly Picking" LastModified="2011-08-30 09:01:29">
   <Items>
     <ProjectItem name="APPS.MAG.Inventaris.dto.AanwezigInMagazijn" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.ProductOpPallet" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.ProductReceptieDetail" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.ProductenOpPallet" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.ReceptieDetail" type="CLS"/>
+    <ProjectItem name="APPS.MAG.Inventaris.enu.AutoMagazijnUitgang" type="CLS"/>
     <ProjectItem name="APPS.MAG.InventarisService" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Bon" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Bonnen" type="CLS"/>
@@ -63,6 +64,7 @@
     <ProjectItem name="EWMS.Inventory" type="CLS"/>
     <ProjectItem name="EWMS.Locations" type="CLS"/>
     <ProjectItem name="EWMS.ToReceive" type="CLS"/>
+    <ProjectItem name="EWMS.Trans.Transport" type="CLS"/>
     <ProjectItem name="EWMS.TransLoc" type="CLS"/>
     <ProjectItem name="Flow.OrderWMS.PalletReservatie" type="CLS"/>
     <ProjectItem name="Flow.OrderWMS.Sub" type="CLS"/>
@@ -111,6 +113,7 @@
     <ProjectItem name="WS.MAG.Inventaris.InventarisService" type="CLS"/>
     <ProjectItem name="WS.MAG.UGLYPicking.UGLYPickingService" type="CLS"/>
     <ProjectItem name="vhDeploy.CSC.Deploy20110829x1329" type="CLS"/>
+    <ProjectItem name="vhDeploy.CSC.Deploy20110830x0900" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.Inventaris.TestInventarisService" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.MAGProducten" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock" type="CLS"/>