Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r1948 -r1970
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1948)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1970)
@@ -115,7 +115,11 @@
 
 <Method name="VoerBijladenUit">
 <FormalSpec>BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.BijladenUitgevoerd</ReturnType>
 <Implementation><![CDATA[
+	Set BijladenUitgevoerd = ##class(APPS.MAG.Inventaris.dto.BijladenUitgevoerd).%New()
+	Set BijladenUitgevoerd.BronPalletKanTerugAutoMagazijn = 0
+	
 	Set DoelResultSet = ##class(%ResultSet).%New()
 	Do DoelResultSet.Prepare("SELECT loc_m,loc_g,loc_x,loc_y,loc_z FROM EWMS.Locations WHERE loc_id = ?")
 	
@@ -131,6 +135,7 @@
 		{
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kon de locatie van doelpallet "_DoelPalletID_" niet achterhalen"))
 		}
+		
 		Set Result = ##class(BL.MB.UGLYPicking.Opslag).VerplaatsPalletOrProdFromRCP(BronPalletID,DoelLocatie,DoelPalletID,ProductID,"Stockage ToRecv Prod")
 	}
 	Else
@@ -142,10 +147,12 @@
 		Set DoelLocatie = $LB()
 		Set BronSectie = ""
 		Set DoelSectie = ""
+		Set LocM = ""
 		
 		Do ResultSet.Execute(BronPalletID, ProductID)
 		If (ResultSet.Next())
 		{
+			Set LocM = ResultSet.Data("loc_m")
 			Set BronLocatie = $LB(ResultSet.Data("loc_m"),ResultSet.Data("loc_g"),ResultSet.Data("loc_x"),ResultSet.Data("loc_y"),ResultSet.Data("loc_z"))
 			Set BronSectie = ResultSet.Data("Sectie")
 		}
@@ -174,12 +181,63 @@
 		}
 		
 		Set Result = ##class(BL.MB.UGLYPicking.Opslag).Bijladen(BronLocatie,BronPalletID,BronSectie,DoelLocatie,DoelPalletID,DoelSectie,ProductID,AantalBijTeLaden,"Bijladen")
+	
+		If ($LI(Result) < 0)
+		{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New($LI(Result,2)))
+		}
+		
+		If (##class(BL.MB.UGLYPicking.General).LocMIsInTransit(LocM))
+		{
+			Set ResultSet = ##class(%ResultSet).%New()
+			Do ResultSet.Prepare("SELECT 1 FROM EWMS.Inventory WHERE loc_id = ?")
+			Do ResultSet.Execute(BronPalletID)
+			// Pallet is niet leeg na het bijladen
+			If (ResultSet.HasNext())
+			{
+				Set BijladenUitgevoerd.BronPalletKanTerugAutoMagazijn = 1
+			}
+		}
 	}
 	
-	If ($LI(Result) < 0)
+	Quit BijladenUitgevoerd
+]]></Implementation>
+</Method>
+
+<Method name="InvoerenPalletInAutoMagazijn">
+<FormalSpec>PalletID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT loc_m FROM EWMS.Inventory WHERE loc_id = ?")
+	Do ResultSet.Execute(PalletID)
+	// Pallet is niet leeg na het bijladen
+	If (ResultSet.Next())
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New($LI(Result,2)))
+		If (##class(BL.MB.UGLYPicking.General).LocMIsInTransit(ResultSet.Data("loc_m")))
+		{
+			Set Result = ##class(EWMS.Carriers).SetLocMViaPalletID(PalletID,1)
+			If (Result '= "")
+			{
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon het magazijn niet veranderen van pallet "_PalletID_": "_Result))
+			}
+			If (##class(BL.MB.UGLYPicking.General).LocMIsInReceive(ResultSet.Data("loc_m")))
+			{
+				Set Result=##class(EWMS.Reject).RemoveRejectViaPalletID(PalletID)
+				If (Result '= "")
+				{
+					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon pallet "_PalletID_" niet uit de reject tabel halen"))
+				}
+			}
+		}
+		Else
+		{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De pallet "_PalletID_" komt niet in aanmerking om ingevoerd te worden"))
+		}
 	}
+	Else
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Pallet "_PalletID_" bestaat niet"))
+	}
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u -r1963 -r1970
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1963)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1970)
@@ -111,7 +111,8 @@
 	Do $$$AssertEquals(BijladenInfo.StukVerpakking.AantalBijladenVanBron,1,"1 stuk in stukverpakking van bronpallet")
 	
 	/// Bijladen uittesten op een nieuwe pallet
-	Do Service.VoerBijladenUit(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+	Set BijladenUitgevoerd = Service.VoerBijladenUit(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+	Do $$$AssertFalse(BijladenUitgevoerd.BronPalletKanTerugAutoMagazijn,"De pallet kan niet terug in auto magazijn")
 	
 	Set ProductenOpPallet = Service.GeefProductenOpPallet(BronPalletID)
 	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,170-11,"Er zijn nog 159 producten over na bijladen")
@@ -248,6 +249,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestInvoerenInAutoMagazijn">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.MAG.InventarisService).%New()
+	
+	Do ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE loc_id = '98765434'")
+	
+	Set SQL="INSERT INTO ewms.dbo.Inventory (loc_id,section,product,batch,quality,owner,"_
+ 	"extra_float_5,extra_float_4,extra_float_3,extra_float_2,extra_float_1,"_
+ 	"extra_char_1,extra_char_2,extra_char_3,extra_char_4,extra_char_5,extra_char_6,extra_char_7,extra_char_8,extra_char_9,extra_char_10,"_
+ 	"extra_int_1,extra_int_2,extra_int_3,extra_int_4,extra_int_5,extra_int_6,extra_int_7,extra_int_8,extra_int_9,extra_int_10,"_
+ 	"insert_time,loc_m,qty_pcs,qty_in_box,qty_res,qty_block,reason_block,reservator,exp_day,last_cycle_count,pcs_vol,pcs_weight,pcs_price,box_vol,box_weight,box_price,is_full) VALUES "_
+ 	"('98765434','00000001',1000,' ',' ',' ',0,0,0,0,0,'','','','','','','','','','',0,0,0,0,0,0,0,0,0,0,0,12,170,0,0,0,'',0,'0000-00-00-00.00.00.000000','0000-00-00-00.00.00.000000',0,0,0,0,0,0,0)"
+
+	Do ..ExecQuery(SQL)
+	
+	Do Service.InvoerenPalletInAutoMagazijn("98765434")
+	
+	Do ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE loc_id = '98765434'")
+]]></Implementation>
+</Method>
+
 <Method name="MaakToReceivePallet">
 <Implementation><![CDATA[
 	Set ^RCP("D",1234) = ""
Index: WS/MAG/Inventaris/InventarisService.cls.xml
===================================================================
diff -u -r1948 -r1970
--- WS/MAG/Inventaris/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1948)
+++ WS/MAG/Inventaris/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1970)
@@ -61,8 +61,9 @@
 
 <Method name="VoerBijladenUit">
 <FormalSpec>BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.BijladenUitgevoerd</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Do ##class(APPS.MAG.InventarisService).%New().VoerBijladenUit(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+<Implementation><![CDATA[	Quit ##class(APPS.MAG.InventarisService).%New().VoerBijladenUit(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/MAG/Inventaris/dto/BijladenUitgevoerd.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/dto/BijladenUitgevoerd.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/dto/BijladenUitgevoerd.cls.xml	(revision 1970)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.dto.BijladenUitgevoerd">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="BronPalletKanTerugAutoMagazijn">
+<Type>%Boolean</Type>
+</Property>
+</Class>
+</Export>
Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r1963 -r1970
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1963)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1970)
@@ -1,9 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-09-01 16:06:58">
+<Project name="CSC Ugly Picking" LastModified="2011-09-02 10:49:52">
   <Items>
     <ProjectItem name="APPS.MAG.Inventaris.dto.AanwezigInMagazijn" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.BijladenInfo" type="CLS"/>
+    <ProjectItem name="APPS.MAG.Inventaris.dto.BijladenUitgevoerd" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.BijladenVanVerpakking" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.ProductOpPallet" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.ProductReceptieDetail" type="CLS"/>