Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r1650 -r1658
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1650)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1658)
@@ -334,6 +334,8 @@
  		}
 	}
 	
+	Set ProductLijnenPerPallet = ##class(%ArrayOfObjects).%New()
+	
 	Set ResultSet = ##class(%ResultSet).%New("Flow.OrderWMS.PalletReservatie:GetReservaties")
  	Do ResultSet.Execute(BonNr,Magazijn)
 	
@@ -343,8 +345,21 @@
 		Set ProductLijn.LocatieID = ResultSet.Data("LocTrans")
 		Set ProductLijn.PalletID = ResultSet.Data("PalletID")
 		Set ProductLijn.HeeftChargeNummer = ##class(BL.ProdHist.ChargeTrace).IsChargeProduct(ResultSet.Data("Product"),1)
-		Set ProductLijn.IsVollePallet = ResultSet.Data("IsFull")
-		Set ProductLijn.IsPalletVolledigTePicken = ResultSet.Data("NeedAll")
+		If (ResultSet.Data("NeedAll"))
+		{
+			If (ResultSet.Data("IsFull"))
+			{
+				Set ProductLijn.PickActie = ##class(APPS.MAG.UGLYPicking.enu.PickActie).ProductVolledigAlles()
+			}
+			Else
+			{
+				Set ProductLijn.PickActie = ##class(APPS.MAG.UGLYPicking.enu.PickActie).ProductRestAlles()
+			}
+		}
+		Else
+		{
+			Set ProductLijn.PickActie = ##class(APPS.MAG.UGLYPicking.enu.PickActie).DeelPicking()
+		}
 		
 		Set KennisIDLb=##class(BL.Derde.Kennis.Kennis).GetIDsToPopup(OrderHoofding.KlantGetObjectId(),.Error,$LB("MAG:PICK"),$LB(ResultSet.Data("Product")),,"UGLY Picking Product",ResultSet.Data("Product"),1,1,0)
 		For i=1:1:$LL(KennisIDLb)
@@ -354,8 +369,33 @@
 		}
 		
 		Do ProductLijnen.Lijst.Insert(ProductLijn)
+		
+		If ('ProductLijnenPerPallet.IsDefined(ProductLijn.PalletID))
+		{
+			Do ProductLijnenPerPallet.SetAt(##class(%ListOfObjects).%New(),ProductLijn.PalletID)
+		}
+		Do ProductLijnenPerPallet.GetAt(ProductLijn.PalletID).Insert(ProductLijn)
 	}
 	
+	// Nog eens voor alle palletten controleren of de volledige pallet kan gepicked worden.
+	
+	Set ProductLijnPerPalletIterator = ##class(TECH.ListIterator).%New(ProductLijnenPerPallet)
+	While (ProductLijnPerPalletIterator.HasNext())
+	{
+		Set ProductLijnenVoorPallet = ProductLijnPerPalletIterator.Next()
+		Set PalletID = ProductLijnPerPalletIterator.Key()
+		
+		If (##class(BL.MB.UGLYPicking.PalletPick).IsDeelPicking(BonNr,Magazijn,PalletID) = 0) // Expliciete check op nul nodig
+		{
+			Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnenVoorPallet)
+			While (ProductLijnIterator.HasNext())
+			{
+				Set ProductLijn = ProductLijnIterator.Next()
+				Set ProductLijn.PickActie = ##class(APPS.MAG.UGLYPicking.enu.PickActie).PalletAlleProducten()
+			}
+		}
+	}
+	
 	Quit ProductLijnen
 ]]></Implementation>
 </Method>
Index: APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml
===================================================================
diff -u -r1645 -r1658
--- APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1645)
+++ APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1658)
@@ -43,14 +43,10 @@
 <Collection>list</Collection>
 </Property>
 
-<Property name="IsVollePallet">
-<Type>%Boolean</Type>
+<Property name="PickActie">
+<Type>APPS.MAG.UGLYPicking.enu.PickActie</Type>
 </Property>
 
-<Property name="IsPalletVolledigTePicken">
-<Type>%Boolean</Type>
-</Property>
-
 <Property name="Korttekst">
 <Type>%String</Type>
 </Property>
Index: APPS/MAG/UGLYPicking/enu/PickActie.cls.xml
===================================================================
diff -u
--- APPS/MAG/UGLYPicking/enu/PickActie.cls.xml	(revision 0)
+++ APPS/MAG/UGLYPicking/enu/PickActie.cls.xml	(revision 1658)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.UGLYPicking.enu.PickActie">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;ProductVolledigAlles;ProductRestAlles;PalletAlleProducten;DeelPicking</Default>
+</Parameter>
+
+<Method name="ProductVolledigAlles">
+<Description>
+Van een bepaald product is de pallet nog volledig (er is nog nooit een picking op gebeurd).
+Deze moeten allemaal gepicked worden zodat er van dit product geen restant meer is op de pallet.</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.UGLYPicking.enu.PickActie</ReturnType>
+<Implementation><![CDATA[	Quit "ProductVolledigAlles"
+]]></Implementation>
+</Method>
+
+<Method name="ProductRestAlles">
+<Description>
+Van dit product staat er nog een rest op de pallet (er is reeds een picking op gebeurd).
+Deze moeten allemaal gepicked worden zodat er van dit product geen restant meer is op de pallet.</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.UGLYPicking.enu.PickActie</ReturnType>
+<Implementation><![CDATA[	Quit "ProductRestAlles"
+]]></Implementation>
+</Method>
+
+<Method name="PalletAlleProducten">
+<Description>
+Dit product staat op een pallet die volledig kan gepicked worden (inclusief alle andere producten).</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.UGLYPicking.enu.PickActie</ReturnType>
+<Implementation><![CDATA[	Quit "PalletAlleProducten"
+]]></Implementation>
+</Method>
+
+<Method name="DeelPicking">
+<Description>
+Er moet een deeltje van het product gepicked worden maar voor de rest is er geen specifieke
+situatie te behandelen.</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.MAG.UGLYPicking.enu.PickActie</ReturnType>
+<Implementation><![CDATA[	Quit "DeelPicking"
+]]></Implementation>
+</Method>
+</Class>
+</Export>