Index: APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml
===================================================================
diff -u -r1924 -r1948
--- APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(.../ProductOpPallet.cls.xml)	(revision 1924)
+++ APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(.../ProductOpPallet.cls.xml)	(revision 1948)
@@ -13,6 +13,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Langtekst">
+<Type>%String</Type>
+</Property>
+
 <Property name="PalletID">
 <Type>%String</Type>
 </Property>
Index: APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml
===================================================================
diff -u -r1658 -r1948
--- APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1658)
+++ APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1948)
@@ -34,10 +34,6 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="ProductOmschrijving">
-<Type>%String</Type>
-</Property>
-
 <Property name="Problemen">
 <Type>APPS.MAG.UGLYPicking.dto.ProductLijnProbleem</Type>
 <Collection>list</Collection>
Index: APPS/MAG/Inventaris/dto/BijladenVanVerpakking.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/dto/BijladenVanVerpakking.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/dto/BijladenVanVerpakking.cls.xml	(revision 1948)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.dto.BijladenVanVerpakking">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="AantalAanwezigOpDoel">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="AantalBijladenVanBron">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="AantalInVerpakking">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+</Class>
+</Export>
Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r1924 -r1948
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1924)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1948)
@@ -1,13 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-08-30 09:01:29">
+<Project name="CSC Ugly Picking" LastModified="2011-08-31 15:36:16">
   <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.BijladenVanVerpakking" 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.Inventaris.enu.BijladenDoelPalletStatus" 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"/>
@@ -61,6 +64,9 @@
     <ProjectItem name="BL.MB.UGLYPicking.ReceptieOpkuis" type="CLS"/>
     <ProjectItem name="BL.MB.UGLYPicking.ReceptieProductie" type="CLS"/>
     <ProjectItem name="BL.MB.UGLYPicking.sub.pxLocationLabel" type="CLS"/>
+    <ProjectItem name="DOM.PM.Product" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.DataM.DataMProduct" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.ProductImpl" type="CLS"/>
     <ProjectItem name="EWMS.Inventory" type="CLS"/>
     <ProjectItem name="EWMS.Locations" type="CLS"/>
     <ProjectItem name="EWMS.ToReceive" type="CLS"/>
Index: WS/MAG/Inventaris/InventarisService.cls.xml
===================================================================
diff -u -r1924 -r1948
--- WS/MAG/Inventaris/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1924)
+++ WS/MAG/Inventaris/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1948)
@@ -43,5 +43,27 @@
 <Implementation><![CDATA[	Do ##class(APPS.MAG.InventarisService).%New().PalletOpvragenAutoMagazijn(PalletID, Uitgang)
 ]]></Implementation>
 </Method>
+
+<Method name="VerplaatsPallet">
+<FormalSpec>PalletID:%String,DoelLocatieID:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(APPS.MAG.InventarisService).%New().VerplaatsPallet(PalletID, DoelLocatieID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBijladenInfo">
+<FormalSpec>BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.BijladenInfo</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.MAG.InventarisService).%New().GeefBijladenInfo(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+]]></Implementation>
+</Method>
+
+<Method name="VoerBijladenUit">
+<FormalSpec>BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(APPS.MAG.InventarisService).%New().VoerBijladenUit(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r1924 -r1948
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1924)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1948)
@@ -5,6 +5,184 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="GeefBijladenInfo">
+<FormalSpec>BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.BijladenInfo</ReturnType>
+<Implementation><![CDATA[
+	Set BijladenInfo = ##class(APPS.MAG.Inventaris.dto.BijladenInfo).%New()
+	
+	Set BijladenInfo.BronPalletID = BronPalletID
+	Set BijladenInfo.DoelPalletID = DoelPalletID
+	Set BijladenInfo.ProductID = ProductID
+	Set BijladenInfo.AantalBijTeLaden = AantalBijTeLaden
+	
+	/// Informatie ophalen over de bronpallet
+	Set AantalOpBronPallet = 0
+	Set Result = $LB()
+	If (##class(EWMS.ToReceive).PalletIsInToReceive(BronPalletID))
+	{
+		Set Result = ##class(EWMS.ToReceive).GetMyToReceiveStatus(BronPalletID,ProductID,.AantalOpBronPallet)
+	}
+	Else
+	{
+		Set Sectie = ""
+		Set IsNieuweSectie = 0
+		Set IsNieuwePallet = 0
+		
+		Set Result = ##class(EWMS.Inventory).GetMyInventoryStatus(BronPalletID,ProductID,.IsNieuweSectie,.IsNieuwePallet,.AantalOpBronPallet,.Sectie)
+		
+		If (IsNieuwePallet)
+		{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Bronpallet "_BronPalletID_" bestaat niet!"))
+		}
+		If (IsNieuweSectie)
+		{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Product "_ProductID_" is niet aanwezig op pallet "_BronPalletID))
+		}
+	}
+	
+	If ($LI(Result) < 0)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New($LI(Result,2)))
+	}
+	If (AantalOpBronPallet < AantalBijTeLaden)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bijladen  van "_AantalBijTeLaden_" producten is niet mogelijk, max "_AantalOpBronPallet_" mogelijk."))
+	}
+	
+	/// Informatie ophalen over de doelpallet
+	Set Sectie = ""
+	Set IsNieuweSectie = 0
+	Set IsNieuwePallet = 0
+	Set AantalOpDoelPallet = 0
+ 	Set Result = ##class(EWMS.Inventory).GetMyInventoryStatus(DoelPalletID,ProductID,.IsNieuweSectie,.IsNieuwePallet,.AantalOpDoelPallet,.Sectie)
+
+	If ($LI(Result) < 0)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New($LI(Result,2)))
+	}
+	If (Sectie = "")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kon geen doelsectie bepalen voor product "_ProductID_" op pallet "_DoelPalletID))
+	}
+	
+	If (IsNieuwePallet)
+	{
+		Set BijladenInfo.DoelPalletStatus = ##class(APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus).NieuwePalletEnSectie()
+	}
+	ElseIf (IsNieuweSectie)
+	{
+		Set BijladenInfo.DoelPalletStatus = ##class(APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus).NieuweSectieOpPallet()
+	}
+	Else
+	{
+		Set BijladenInfo.DoelPalletStatus = ##class(APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus).PalletEnSectieBestaat()
+	}
+	
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
+	
+	Set GrootVerpakking = ##class(APPS.MAG.Inventaris.dto.BijladenVanVerpakking).%New()
+	Set GrootVerpakking.AantalInVerpakking = Product.GeefAantalInGrootVerpakking()
+	If (GrootVerpakking.AantalInVerpakking > 0)
+	{
+		Set GrootVerpakking.AantalAanwezigOpDoel = ##class(TECH.Math).Floor(AantalOpDoelPallet/GrootVerpakking.AantalInVerpakking)
+		Set AantalOpDoelPallet = AantalOpDoelPallet#GrootVerpakking.AantalInVerpakking
+		Set GrootVerpakking.AantalBijladenVanBron = ##class(TECH.Math).Floor(AantalBijTeLaden/GrootVerpakking.AantalInVerpakking)
+		Set AantalBijTeLaden = AantalBijTeLaden#GrootVerpakking.AantalInVerpakking
+	}
+	Set BijladenInfo.GrootVerpakking = GrootVerpakking
+	
+	Set NormaalVerpakking = ##class(APPS.MAG.Inventaris.dto.BijladenVanVerpakking).%New()
+	Set NormaalVerpakking.AantalInVerpakking = Product.GeefAantalInNormaalVerpakking()
+	If (NormaalVerpakking.AantalInVerpakking > 0)
+	{
+		Set NormaalVerpakking.AantalAanwezigOpDoel = ##class(TECH.Math).Floor(AantalOpDoelPallet/NormaalVerpakking.AantalInVerpakking)
+		Set AantalOpDoelPallet = AantalOpDoelPallet#NormaalVerpakking.AantalInVerpakking
+		Set NormaalVerpakking.AantalBijladenVanBron = ##class(TECH.Math).Floor(AantalBijTeLaden/NormaalVerpakking.AantalInVerpakking)
+		Set AantalBijTeLaden = AantalBijTeLaden#NormaalVerpakking.AantalInVerpakking
+	}
+	Set BijladenInfo.NormaalVerpakking = NormaalVerpakking
+	
+	Set StukVerpakking = ##class(APPS.MAG.Inventaris.dto.BijladenVanVerpakking).%New()
+	Set StukVerpakking.AantalInVerpakking = 1
+	Set StukVerpakking.AantalAanwezigOpDoel = AantalOpDoelPallet
+	Set StukVerpakking.AantalBijladenVanBron = AantalBijTeLaden
+	Set BijladenInfo.StukVerpakking = StukVerpakking
+	
+	Quit BijladenInfo
+]]></Implementation>
+</Method>
+
+<Method name="VoerBijladenUit">
+<FormalSpec>BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	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 = ?")
+	
+	Set Result = $LB()
+	If (##class(EWMS.ToReceive).PalletIsInToReceive(BronPalletID))
+	{
+		Do DoelResultSet.Execute(DoelPalletID, ProductID)
+		If (DoelResultSet.Next())
+		{
+			Set DoelLocatie = $LB(DoelResultSet.Data("loc_m"),DoelResultSet.Data("loc_g"),DoelResultSet.Data("loc_x"),DoelResultSet.Data("loc_y"),DoelResultSet.Data("loc_z"))
+		}
+		Else
+		{
+			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
+	{
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("SELECT l.loc_m,l.loc_g,l.loc_x,l.loc_y,l.loc_z,i.Sectie As Sectie FROM EWMS.Inventory i JOIN EWMS.Locations l ON i.loc_id = l.loc_id WHERE i.loc_id = ? AND i.product = ?")
+	
+		Set BronLocatie = $LB()
+		Set DoelLocatie = $LB()
+		Set BronSectie = ""
+		Set DoelSectie = ""
+		
+		Do ResultSet.Execute(BronPalletID, ProductID)
+		If (ResultSet.Next())
+		{
+			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")
+		}
+		Else
+		{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kon de locatie van bronpallet "_BronPalletID_" niet achterhalen"))
+		}
+		
+		Do DoelResultSet.Execute(DoelPalletID)
+		If (DoelResultSet.Next())
+		{
+			Set DoelLocatie = $LB(DoelResultSet.Data("loc_m"),DoelResultSet.Data("loc_g"),DoelResultSet.Data("loc_x"),DoelResultSet.Data("loc_y"),DoelResultSet.Data("loc_z"))
+			Set IsNieuweSectie = 0
+			Set IsNieuwePallet = 0
+			Set AantalOpDoelPallet = 0
+ 			Set Result = ##class(EWMS.Inventory).GetMyInventoryStatus(DoelPalletID,ProductID,.IsNieuweSectie,.IsNieuwePallet,.AantalOpDoelPallet,.DoelSectie)
+ 			
+ 			If ($LI(Result) < 0)
+			{
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New($LI(Result,2)))
+			}
+		}
+		Else
+		{
+			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).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)))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductenOpPallet">
 <FormalSpec>PalletID:%String</FormalSpec>
 <ReturnType>APPS.MAG.Inventaris.dto.ProductenOpPallet</ReturnType>
@@ -14,18 +192,37 @@
 	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 EMWS.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 AND I.Product <> 'EMPTY'")
+	
+	If ('##class(EWMS.ToReceive).PalletIsInToReceive(PalletID))
+	{
+		Do ResultSet.Prepare("SELECT rtrim(product) as ProductID, CAST(qty_pcs AS INT) as Aantal, I.loc_m, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id) as AantalSecties, T.Loc_Trans As LocatieID"
+							_" FROM EWMS.Inventory I"
+							_" JOIN EWMS.Locations L ON I.loc_m = L.loc_m and I.loc_id = L.loc_id"
+							_" LEFT JOIN EWMS.TransLoc T ON T.loc_m  = L.loc_m AND T.loc_g = L.loc_g AND T.loc_x = L.loc_x AND T.loc_y = L.loc_y"
+							_" WHERE I.loc_id = ? AND I.loc_m < 5 AND I.Product <> 'EMPTY'")
+	}
+	Else
+	{
+		Do ResultSet.Prepare("SELECT rtrim(product) as ProductID, CAST(qtytoreceive AS INT) as Aantal, I.locm As loc_m, (SELECT count(1) FROM EWMS.ToReceive WHERE loc_id = I.locid) as AantalSecties, T.Loc_Trans As LocatieID"
+								_" FROM EWMS.ToReceive I"
+								_" LEFT JOIN EWMS.Locations L ON I.locm = L.loc_m and I.locid = L.loc_id"
+								_" LEFT JOIN EWMS.TransLoc T ON T.loc_m  = L.loc_m AND T.loc_g = L.loc_g AND T.loc_x = L.loc_x AND T.loc_y = L.loc_y"
+								_" WHERE I.locid = ? AND I.locm < 5 AND I.Product <> 'EMPTY' AND I.QtyTransported = 0 AND I.QtyReceived > 0")
+	}
 	Do ResultSet.Execute(PalletID)
 	While (ResultSet.Next())
 	{
 		Set ProductID = ResultSet.Data("ProductID")
+		Set Product = ProductAPI.GeefProduct(ProductID)
 		Set ProductOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
 		Set ProductOpPallet.ProductID = ProductID
 		Set ProductOpPallet.Aantal = ResultSet.Data("Aantal")
 		Set ProductOpPallet.PalletID = PalletID
-		Set ProductOpPallet.LocatieID = ##class(BL.MB.UGLYPicking.General).GetTransLocStr(ResultSet.Data("loc_m"),ResultSet.Get("loc_g"),ResultSet.Get("loc_x"),ResultSet.Get("loc_y"))
-		Set ProductOpPallet.Korttekst = ProductAPI.GeefProduct(ProductID).GeefKorttekst()
+		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
+		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
+		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N")
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -55,19 +252,22 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	
 	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT CAST(qty_pcs AS INT) as Aantal, I.loc_id As PalletID, I.loc_m, L.loc_g, L.loc_x, L.loc_y, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id GROUP BY loc_id) as AantalSecties"
+	Do ResultSet.Prepare("SELECT CAST(qty_pcs AS INT) as Aantal, I.loc_id As PalletID, I.loc_m, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id GROUP BY loc_id) as AantalSecties, T.Loc_Trans As LocatieID"
 							_" FROM EWMS.Inventory I"
 							_" JOIN EWMS.Locations L ON I.loc_m = L.loc_m and I.loc_id = L.loc_id"
+							_" LEFT JOIN EWMS.TransLoc T ON T.loc_m  = L.loc_m AND T.loc_g = L.loc_g AND T.loc_x = L.loc_x AND T.loc_y = L.loc_y"
 							_" WHERE product = ? AND I.loc_m < 5")
 	Do ResultSet.Execute(ProductID)
 	While (ResultSet.Next())
 	{
+		Set Product = ProductAPI.GeefProduct(ProductID)
 		Set ProductOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
 		Set ProductOpPallet.ProductID = ProductID
 		Set ProductOpPallet.Aantal = ResultSet.Data("Aantal")
 		Set ProductOpPallet.PalletID = ResultSet.Data("PalletID")
-		Set ProductOpPallet.LocatieID = ##class(BL.MB.UGLYPicking.General).GetTransLocStr(ResultSet.Data("loc_m"),ResultSet.Get("loc_g"),ResultSet.Get("loc_x"),ResultSet.Get("loc_y"))
-		Set ProductOpPallet.Korttekst = ProductAPI.GeefProduct(ProductID).GeefKorttekst()
+		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
+		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
+		Set ProductOpPallet.Langtekst = Product.GeefLangtekst()
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -90,7 +290,6 @@
 <FormalSpec>PalletID:%String,ProductID:%String</FormalSpec>
 <ReturnType>APPS.MAG.Inventaris.dto.ProductReceptieDetail</ReturnType>
 <Implementation><![CDATA[
-	
 	Set ProductReceptieDetail = ##class(APPS.MAG.Inventaris.dto.ProductReceptieDetail).%New()
 	
 	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
@@ -154,6 +353,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerplaatsPallet">
+<FormalSpec>PalletID:%String,DoelLocatieID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set DoelLocatie = ##class(BL.MB.UGLYPicking.General).GetLocationFromScan(DoelLocatieID)
+	
+	If (DoelLocatie = "")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kon de ingescande locatie "_DoelLocatieID_" niet achterhalen"))
+	}
+	
+	Set Result = $LB()
+	If (##class(EWMS.ToReceive).PalletIsInToReceive(PalletID))
+	{
+		Set Result = ##class(BL.MB.UGLYPicking.Opslag).VerplaatsPalletOrProdFromRCP(PalletID,DoelLocatie,PalletID,,"Stockage ToRecv Pallet")
+	}
+	Else
+	{
+		Set BronLocatie = ##class(BL.MB.UGLYPicking.General).GetLocationViaLocID(PalletID)
+		
+		If (BronLocatie = "")
+		{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kon de locatie van de opgegeven pallet "_PalletID_" niet achterhalen"))
+		}
+		
+		Set Result = ##class(BL.MB.UGLYPicking.Opslag).VerplaatsPallet(BronLocatie,DoelLocatie,PalletID)
+	}
+	
+	If ($LI(Result) < 0)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New($LI(Result,2)))
+	}
+	
+	// TODO: Verplaatsen van pallet vanuit TRNS/RCV
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanwezigInMagazijnen">
 <FormalSpec>ProductID:%Integer</FormalSpec>
 <Private>1</Private>
Index: APPS/MAG/UglyPickingService.cls.xml
===================================================================
diff -u -r1797 -r1948
--- APPS/MAG/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1797)
+++ APPS/MAG/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1948)
@@ -73,24 +73,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="NeemSessieOver">
-<FormalSpec>Sessie:APPS.MAG.UGLYPicking.dto.Sessie</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="PrintBonEtiket">
 <FormalSpec>BonNr:%Integer,MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
 <Implementation><![CDATA[	Do ..Service.PrintBonEtiket(BonNr, MagazijnID)
 ]]></Implementation>
 </Method>
 
-<Method name="PalletOpvragenAutoMagazijn">
-<FormalSpec>ProductLijn:APPS.MAG.UGLYPicking.dto.ProductLijn</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="WijzigReservatieAantal">
 <FormalSpec>BonNr:%Integer,ProductLijn:APPS.MAG.UGLYPicking.dto.ProductLijn,NieuwReservatieAantal:%Integer</FormalSpec>
 <Implementation><![CDATA[	Do ..Service.WijzigReservatieAantal(BonNr, ProductLijn, NieuwReservatieAantal)
Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r1797 -r1948
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1797)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1948)
@@ -511,11 +511,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="NeemSessieOver">
-<FormalSpec>Sessie:APPS.MAG.UGLYPicking.dto.Sessie</FormalSpec>
-<ReturnType>%Status</ReturnType>
-</Method>
-
 <Method name="PrintBonEtiket">
 <FormalSpec>BonNr:%Integer,MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
 <Implementation><![CDATA[
@@ -530,11 +525,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PalletOpvragenAutoMagazijn">
-<FormalSpec>ProductLijn:APPS.MAG.UGLYPicking.dto.ProductLijn</FormalSpec>
-<ReturnType>%Status</ReturnType>
-</Method>
-
 <Method name="WijzigReservatieAantal">
 <FormalSpec>BonNr:%Integer,ProductLijn:APPS.MAG.UGLYPicking.dto.ProductLijn,NieuwReservatieAantal:%Integer</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u -r1924 -r1948
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1924)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1948)
@@ -11,19 +11,21 @@
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.MAG.InventarisService).%New()
 	
-	Set ProductenOpPallet = Service.GeefProductenOpPallet("UnitTest")
+	Set ProductenOpPallet = Service.GeefProductenOpPallet("98765432")
 	
 	Do $$$AssertTrue($IsObject(ProductenOpPallet),"Het resultaat werd teruggegeven")
 	
 	Set ProductOpPallet = ProductenOpPallet.GetAt(1)
 	
 	Do $$$AssertEquals(ProductOpPallet.Aantal,170,"170 stuks")
 	Do $$$AssertEquals(ProductOpPallet.Korttekst,"UT.UTPROD00")
-	Do $$$AssertEquals(ProductOpPallet.PalletID,"UnitTest","De pallet id is unittest")
+	Do $$$AssertEquals(ProductOpPallet.Langtekst,"TEST PRODUCT 00")
+	Do $$$AssertEquals(ProductOpPallet.PalletID,"98765432","De pallet id is unittest")
 	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")
+	Do $$$AssertEquals(ProductOpPallet.LocatieID,"99D99C99","De locatie id")
 	
 	Set AanwezigInMagazijn = ProductOpPallet.AanwezigInMagazijnen.GetAt(1)
 	
@@ -46,19 +48,23 @@
 	
 	Do $$$AssertEquals(ProductOpPallet.Aantal,170,"170 stuks")
 	Do $$$AssertEquals(ProductOpPallet.Korttekst,"UT.UTPROD00")
-	Do $$$AssertEquals(ProductOpPallet.PalletID,"UnitTest","De pallet id is unittest")
+	Do $$$AssertEquals(ProductOpPallet.Langtekst,"TEST PRODUCT 00")
+	Do $$$AssertEquals(ProductOpPallet.PalletID,"98765432","De pallet id is unittest")
 	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")
+	Do $$$AssertEquals(ProductOpPallet.LocatieID,"99D99C99","De locatie id")
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefProductReceptieDetail">
 <Implementation><![CDATA[
+	Do ..MaakToReceivePallet()
+	
 	Set Service = ##class(APPS.MAG.InventarisService).%New()
 	
-	Set ProductReceptieDetail = Service.GeefProductReceptieDetail("UnitTest",1000)
+	Set ProductReceptieDetail = Service.GeefProductReceptieDetail("98765432",1000)
 	
 	Do $$$AssertEquals(ProductReceptieDetail.IdentNr,"0.123.450.0","Het identnr")
 	Do $$$AssertEquals(ProductReceptieDetail.LeverancierNaam,"BLUM JULIUS GMBH","De leverancier")
@@ -71,66 +77,287 @@
 	Do $$$AssertEquals(ReceptieDetail.AantalOntvangen,100,"Er zijn 100 stuks ontvangen")
 	Do $$$AssertEquals(ReceptieDetail.ReceptieID,1234,"De receptie id")
 	Do $$$AssertEquals(ReceptieDetail.ToeleveringID,220568,"De toelevering id")
+	
+	Do ..VerwijderToReceivePallet()
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
+<Method name="TestBijladen">
 <Implementation><![CDATA[
-	Set Status = ..OnAfterAllTests()
+	Set Status = ..ExecQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('98765433',3,98,98,98,98,'0000-00-00-00.00.00.000000',2)")
 	
-	Do ##class(vhUnitTest.APPS.MAG.MAGProducten).MaakProducten()
+	Set Service = ##class(APPS.MAG.InventarisService).%New()
 	
-	// Toevoegen van product 1000
+	Set BronPalletID = "98765432"
+	Set DoelPalletID = "98765433"
+	Set ProductID = 1000
+	Set AantalBijTeLaden = 11
+	
+	Set BijladenInfo = Service.GeefBijladenInfo(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+	
+	Do $$$AssertEquals(BijladenInfo.BronPalletID,BronPalletID,"De bronpallet id")
+	Do $$$AssertEquals(BijladenInfo.DoelPalletID,DoelPalletID,"De doelpallet id")
+	Do $$$AssertEquals(BijladenInfo.DoelPalletStatus,##class(APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus).NieuwePalletEnSectie(),"Het is een nieuwe pallet en sectie")
+	Do $$$AssertEquals(BijladenInfo.ProductID,ProductID,"Het product id")
+	Do $$$AssertEquals(BijladenInfo.AantalBijTeLaden,AantalBijTeLaden,"Het bij te laden aantal")
+	Do $$$AssertEquals(BijladenInfo.GrootVerpakking.AantalInVerpakking,0,"0 stuks in grootverpakking")
+	Do $$$AssertEquals(BijladenInfo.GrootVerpakking.AantalAanwezigOpDoel,0,"0 stuks in grootverpakking op doelpallet")
+	Do $$$AssertEquals(BijladenInfo.GrootVerpakking.AantalBijladenVanBron,0,"0 stuks in grootverpakking van bronpallet")
+	Do $$$AssertEquals(BijladenInfo.NormaalVerpakking.AantalInVerpakking,2,"2 stuks in normaalverpakking")
+	Do $$$AssertEquals(BijladenInfo.NormaalVerpakking.AantalAanwezigOpDoel,0,"0 stuks in normaalverpakking op doelpallet")
+	Do $$$AssertEquals(BijladenInfo.NormaalVerpakking.AantalBijladenVanBron,5,"5 stuks in normaalverpakking van bronpallet")
+	Do $$$AssertEquals(BijladenInfo.StukVerpakking.AantalInVerpakking,1,"0 stuks in stukverpakking")
+	Do $$$AssertEquals(BijladenInfo.StukVerpakking.AantalAanwezigOpDoel,0,"0 stuks in stukverpakking op doelpallet")
+	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 ProductenOpPallet = Service.GeefProductenOpPallet(BronPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,170-11,"Er zijn nog 159 producten over na bijladen")
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(DoelPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,11,"Er zijn 11 producten na bijladen")
+	
+	/// De bijgeladen producten terug verplaatsen naar hun originele locatie
+	Do Service.VoerBijladenUit(DoelPalletID, BronPalletID, ProductID, AantalBijTeLaden)
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(BronPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,170,"Er zijn terug 170 producten")
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(DoelPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.Count(),0,"Er zijn geen producten meer op de pallet")
+	
 	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 "_
- 	"('UnitTest','00000001',1000,' ',' ',' ',0,0,0,0,0,'','','','','','','','','','',0,0,0,0,0,0,0,0,0,0,0,3,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)"
+ 	"('98765433','00000000','EMPTY',' ',' ',' ',0,0,0,0,0,'','','','','','','','','','',0,0,0,0,0,0,0,0,0,0,0,3,0,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)"
 	Set Status = ..ExecQuery(SQL)
 	
+	Set Status = ..ExecQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('98765433',3,98,98,98,98,'0000-00-00-00.00.00.000000',2)")
+	
+	Do $$$AssertTrue($$$ISOK(Status),"De insert lege pallet query werd uitgevoerd")
+	
+	Set BijladenInfo = Service.GeefBijladenInfo(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+	Do $$$AssertEquals(BijladenInfo.DoelPalletStatus,##class(APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus).NieuweSectieOpPallet(),"Het is een nieuwe pallet en sectie")
+	
+	/// Bijladen uittesten op een nieuwe sectie van een bestaande pallet
+	Do Service.VoerBijladenUit(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(BronPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,170-11,"Er zijn nog 159 producten over na bijladen")
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(DoelPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,11,"Er zijn 11 producten na bijladen")
+	
+	/// De bijgeladen producten terug verplaatsen naar hun originele locatie
+	Do Service.VoerBijladenUit(DoelPalletID, BronPalletID, ProductID, AantalBijTeLaden)
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(BronPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,170,"Er zijn terug 170 producten")
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(DoelPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.Count(),0,"Er zijn geen producten meer op de pallet")
+	
+	Set Status = ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE loc_id = '98765433'")
+	
+	Do $$$AssertTrue($$$ISOK(Status),"De delete query werd uitgevoerd")
+	
+	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 "_
+ 	"('98765433','00000001','1000',' ',' ',' ',0,0,0,0,0,'','','','','','','','','','',0,0,0,0,0,0,0,0,0,0,0,3,91,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)"
+	Set Status = ..ExecQuery(SQL)
+	
+	Do $$$AssertTrue($$$ISOK(Status),"De insert bestaande pallet met bestaande query werd uitgevoerd")
+	
+	Set BijladenInfo = Service.GeefBijladenInfo(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+	Do $$$AssertEquals(BijladenInfo.DoelPalletStatus,##class(APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus).PalletEnSectieBestaat(),"Het is een nieuwe pallet en sectie")
+	Do $$$AssertEquals(BijladenInfo.GrootVerpakking.AantalInVerpakking,0,"0 stuks in grootverpakking")
+	Do $$$AssertEquals(BijladenInfo.GrootVerpakking.AantalAanwezigOpDoel,0,"0 stuks in grootverpakking op doelpallet")
+	Do $$$AssertEquals(BijladenInfo.GrootVerpakking.AantalBijladenVanBron,0,"0 stuks in grootverpakking van bronpallet")
+	Do $$$AssertEquals(BijladenInfo.NormaalVerpakking.AantalInVerpakking,2,"2 stuks in normaalverpakking")
+	Do $$$AssertEquals(BijladenInfo.NormaalVerpakking.AantalAanwezigOpDoel,45,"45 stuks in normaalverpakking op doelpallet")
+	Do $$$AssertEquals(BijladenInfo.NormaalVerpakking.AantalBijladenVanBron,5,"5 stuks in normaalverpakking van bronpallet")
+	Do $$$AssertEquals(BijladenInfo.StukVerpakking.AantalInVerpakking,1,"0 stuks in stukverpakking")
+	Do $$$AssertEquals(BijladenInfo.StukVerpakking.AantalAanwezigOpDoel,1,"1 stuk in stukverpakking op doelpallet")
+	Do $$$AssertEquals(BijladenInfo.StukVerpakking.AantalBijladenVanBron,1,"1 stuk in stukverpakking van bronpallet")
+	
+	/// Bijladen uittesten op een nieuwe sectie van een bestaande pallet
+	Do Service.VoerBijladenUit(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(BronPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,170-11,"Er zijn nog 159 producten over na bijladen")
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(DoelPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,91+11,"Er zijn 102 producten na bijladen")
+	
+	/// De bijgeladen producten terug verplaatsen naar hun originele locatie
+	Do Service.VoerBijladenUit(DoelPalletID, BronPalletID, ProductID, AantalBijTeLaden)
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(BronPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,170,"Er zijn terug 170 producten")
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet(DoelPalletID)
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).Aantal,91,"Er zijn terug 91 producten op de pallet")
+	
+	// Verplaatsen vanop een te recepteren pallet
+	Do ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE loc_id = '98765432'")
+	Do ..MaakToReceivePallet()
+	
+	Do Service.VoerBijladenUit(BronPalletID, DoelPalletID, ProductID, AantalBijTeLaden)
+	
+	// Resultaat is niet betrouwbaar
+	
+	Do ..VerwijderToReceivePallet()
+	
+	Set Status = ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE loc_id = '98765433'")
+	
+	Do $$$AssertTrue($$$ISOK(Status),"De delete query werd uitgevoerd")
+]]></Implementation>
+</Method>
+
+<Method name="TestVerplaatsPallet">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.MAG.InventarisService).%New()
+	
+	Do Service.VerplaatsPallet("98765432","98D98C98")
+	Set ProductenOpPallet = Service.GeefProductenOpPallet("98765432")
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).LocatieID,"98D98C98","De locatie waarnaar verplaatst is")
+	
+	Do Service.VerplaatsPallet("98765432","99D99C99")
+	Set ProductenOpPallet = Service.GeefProductenOpPallet("98765432")
+	Do $$$AssertEquals(ProductenOpPallet.GetAt(1).LocatieID,"99D99C99","De pallet terug verplaatsen naar de originele locatie")
+	
+	// Nu proberen verplaatsen van een "receptiepallet"
+	Do ..VerwijderInventory()
+	Do ..MaakToReceivePallet()
+	
+	// Resultaat is niet betrouwbaar.
+	// Achterliggende code (die niet herschreven werd) leent zich niet tot unit testen.
+	// De method gewoon uitvoeren is voldoende om na te gaan of de eigen geschreven code werkt.
+	Do Service.VerplaatsPallet("98765432","98D98C98")
+	Set ProductenOpPallet = Service.GeefProductenOpPallet("98765432")
+	
+	Do ..VerwijderToReceivePallet()
+	Do ..MaakInventory()
+]]></Implementation>
+</Method>
+
+<Method name="MaakToReceivePallet">
+<Implementation><![CDATA[
+	Set ^RCP("D",1234,"D",220568,1,1) = "1000\\\100"
+	Set ^RCP("D",1234,"D",220568,1) = "1000"
+	Set SQL = "INSERT INTO EWMS.dbo.to_recv"
+	_" (order_nr,supplier,product,batch,quality,owner,loc_id,section,loc_m,loc_g,qty_to_receive,qty_received,qty_transported,qty_transport_req,qty_in_box,qty_block,reason_block,carrier_type,carrier_dwh,unit_load_type,carrier_tarra,carrier_weight,abc,product_group,nr_carriers,pcs_vol,pcs_weight,pcs_price,box_vol,box_weight,box_price,exp_day,order_cancelled,order_confirmed,insert_time,sender,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,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_float_1,extra_float_2,extra_float_3,extra_float_4,extra_float_5)"
+	_" VALUES"
+	_" (1234,5005,1000,220568,'','','98765432','00000001',3,99,100,0,0,0,0,0,'',0,0,0,0,0,0,0,0,0,0,0,0,0,0,'',0,0,'',0,0,0,0,0,0,0,0,0,0,0,'','','100','1','','','','','','','','','','','')"
+	Set Status = ..ExecQuery(SQL)
+	Set SQL = "INSERT INTO EWMS.dbo.to_recv"
+	_" (order_nr,supplier,product,batch,quality,owner,loc_id,section,loc_m,loc_g,qty_to_receive,qty_received,qty_transported,qty_transport_req,qty_in_box,qty_block,reason_block,carrier_type,carrier_dwh,unit_load_type,carrier_tarra,carrier_weight,abc,product_group,nr_carriers,pcs_vol,pcs_weight,pcs_price,box_vol,box_weight,box_price,exp_day,order_cancelled,order_confirmed,insert_time,sender,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,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_float_1,extra_float_2,extra_float_3,extra_float_4,extra_float_5)"
+	_" VALUES"
+	_" (1234,5005,1000,220568,'','','00000000','00000000',3,99,100,0,0,0,0,0,'',0,0,0,0,0,0,0,0,0,0,0,0,0,0,'',0,0,'',0,0,0,0,0,0,0,0,0,0,0,'','','100','1','','','','','','','','','','','')"
+	Set Status = ..ExecQuery(SQL)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToReceivePallet">
+<Implementation><![CDATA[
+	Kill ^RCP("D",1234,"D",220568,1,1)
+	Kill ^RCP("D",1234,"D",220568,1)
+	Quit ..ExecQuery("DELETE FROM EWMS.dbo.to_recv WHERE order_nr = 1234 AND product = 1000")
+]]></Implementation>
+</Method>
+
+<Method name="MaakInventory">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	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 "_
+ 	"('98765432','00000001',1000,' ',' ',' ',0,0,0,0,0,'','','','','','','','','','',0,0,0,0,0,0,0,0,0,0,0,3,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)"
+
+	Quit ..ExecQuery(SQL)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderInventory">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE product = '1000'")
 	If ($$$ISOK(Status))
 	{
-		Set Status = ..ExecQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('UnitTest',3,99,99,99,99,'0000-00-00-00.00.00.000000',2)")
+		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE loc_id = '98765433'")
 	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>s:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ..OnAfterOneTest(s)
 	
+	Do ##class(vhUnitTest.APPS.MAG.MAGProducten).MaakProducten()
+	
+	// Toevoegen van product 1000
+	Set Status = ..MaakInventory()
+	
 	If ($$$ISOK(Status))
 	{
+		Set Status = ..ExecQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('98765432',3,99,99,99,99,'0000-00-00-00.00.00.000000',2)")
+	}
+	If ($$$ISOK(Status))
+	{
+		/// '00000000 ' is blijkbaar de id om een lege locatie aan te duiden
+		Set Status = ..ExecQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('00000000 ',3,98,98,98,98,'0000-00-00-00.00.00.000000',2)")
+	}
+	If ($$$ISOK(Status))
+	{
 		Set Status = ..ExecQuery("INSERT INTO ewms.dbo.TransLoc (loc_m,loc_g,loc_x,loc_y,loc_trans) VALUES (3,99,99,99,'99D99C99')")	
 	}
-	
 	If ($$$ISOK(Status))
 	{
-		Set SQL = "INSERT INTO EWMS.dbo.to_recv"
-	_" (order_nr,supplier,product,batch,quality,owner,loc_id,section,loc_m,loc_g,qty_to_receive,qty_received,qty_transported,qty_transport_req,qty_in_box,qty_block,reason_block,carrier_type,carrier_dwh,unit_load_type,carrier_tarra,carrier_weight,abc,product_group,nr_carriers,pcs_vol,pcs_weight,pcs_price,box_vol,box_weight,box_price,exp_day,order_cancelled,order_confirmed,insert_time,sender,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,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_float_1,extra_float_2,extra_float_3,extra_float_4,extra_float_5)"
-	_" VALUES"
-	_" (1234,5005,1000,220568,'','','UnitTest','00000001',3,99,100,0,0,0,0,0,'',0,0,0,0,0,0,0,0,0,0,0,0,0,0,'',0,0,'',0,0,0,0,0,0,0,0,0,0,0,'','','','','','','','','','','','','','','')"
-		Set Status = ..ExecQuery(SQL)
+		Set Status = ..ExecQuery("INSERT INTO ewms.dbo.TransLoc (loc_m,loc_g,loc_x,loc_y,loc_trans) VALUES (3,98,98,98,'98D98C98')")	
 	}
-	
 	Quit Status
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
+<Method name="OnAfterOneTest">
+<FormalSpec>s:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##class(vhUnitTest.APPS.MAG.MAGProducten).VerwijderProducten()
 	
-	Set Status = ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE loc_id = 'UnitTest'")
+	Set Status = ..VerwijderInventory()
 	If ($$$ISOK(Status))
 	{
-		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.locations WHERE loc_id = 'UnitTest'")
+		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.locations WHERE loc_id = '98765432'")
 	}
 	If ($$$ISOK(Status))
 	{
+		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.locations WHERE loc_g = 98")
+	}
+	If ($$$ISOK(Status))
+	{
 		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.transloc WHERE loc_trans = '99D99C99'")
 	}
 	If ($$$ISOK(Status))
 	{
-		Set Status = ..ExecQuery("DELETE FROM EWMS.dbo.to_recv WHERE order_nr = 1234 AND product = 1000")
+		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.transloc WHERE loc_trans = '98D98C98'")
 	}
+	If ($$$ISOK(Status))
+	{
+		Set Status = ..VerwijderToReceivePallet()
+	}
 	
 	Quit Status
 ]]></Implementation>
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r1921 -r1948
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 1921)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 1948)
@@ -104,5 +104,20 @@
 <Abstract>1</Abstract>
 <ReturnType>DOM.LEV.Leverancier</ReturnType>
 </Method>
+
+<Method name="GeefAantalInGrootVerpakking">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="GeefAantalInNormaalVerpakking">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="GeefAantalInKleinVerpakking">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r1921 -r1948
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 1921)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 1948)
@@ -147,5 +147,23 @@
 <Implementation><![CDATA[	Quit ..Product.GeefLeverancier()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalInGrootVerpakking">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefAantalInGrootVerpakking()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInNormaalVerpakking">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefAantalInNormaalVerpakking()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInKleinVerpakking">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefAantalInKleinVerpakking()
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: BL/MB/UGLYPicking/Opslag.cls.xml
===================================================================
diff -u -r1074 -r1948
--- BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 1074)
+++ BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 1948)
@@ -246,7 +246,6 @@
 	Set SubLNr=RCPLNR#100*100+RCPLSPLITSNR
 
 	$$$WriteToLog("CHECK ^RCP (OrderNr: "_OrderNr_", BonNr: "_BonNr_", LUNr: "_LUNr_", SubLNr: "_SubLNr_")")
-
 	Quit:('$D(^RCP("D",OrderNr,"D",BonNr,LUNr,SubLNr))) "Er is mogelijk een communicatieprobleem tussen WMS en ADMIN, probeer later eens opnieuw."
 
 	$$$WriteToLog("VALUE: "_$G(^RCP("D",OrderNr,"D",BonNr,LUNr,SubLNr)))
Index: APPS/MAG/Inventaris/dto/BijladenInfo.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/dto/BijladenInfo.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/dto/BijladenInfo.cls.xml	(revision 1948)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.dto.BijladenInfo">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="AantalBijTeLaden">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="BronPalletID">
+<Type>%String</Type>
+</Property>
+
+<Property name="DoelPalletID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="GrootVerpakking">
+<Type>APPS.MAG.Inventaris.dto.BijladenVanVerpakking</Type>
+</Property>
+
+<Property name="NormaalVerpakking">
+<Type>APPS.MAG.Inventaris.dto.BijladenVanVerpakking</Type>
+</Property>
+
+<Property name="StukVerpakking">
+<Type>APPS.MAG.Inventaris.dto.BijladenVanVerpakking</Type>
+</Property>
+
+<Property name="DoelPalletStatus">
+<Type>APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/MAG/Inventaris/enu/BijladenDoelPalletStatus.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/enu/BijladenDoelPalletStatus.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/enu/BijladenDoelPalletStatus.cls.xml	(revision 1948)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,NieuwePalletEnSectie,NieuweSectieOpPallet,PalletEnSectieBestaat</Default>
+</Parameter>
+
+<Method name="NieuwePalletEnSectie">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus</ReturnType>
+<Implementation><![CDATA[	Quit "NieuwePalletEnSectie"
+]]></Implementation>
+</Method>
+
+<Method name="NieuweSectieOpPallet">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus</ReturnType>
+<Implementation><![CDATA[	Quit "NieuweSectieOpPallet"
+]]></Implementation>
+</Method>
+
+<Method name="PalletEnSectieBestaat">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus</ReturnType>
+<Implementation><![CDATA[	Quit "PalletEnSectieBestaat"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1921 -r1948
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1921)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1948)
@@ -365,5 +365,32 @@
 <Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefLeverancier($Piece(..DataJ,"\",1))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalInGrootVerpakking">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Aantal = $Piece(..DataJ,"\",16)
+	If (Aantal = "") { Set Aantal  = 0 }
+	Quit Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInNormaalVerpakking">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Aantal = $Piece(..DataJ,"\",15)
+	If (Aantal = "") { Set Aantal  = 0 }
+	Quit Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInKleinVerpakking">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Aantal = $Piece(..DataJ,"\",14)
+	If (Aantal = "") { Set Aantal  = 0 }
+	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>
 </Export>