Index: VerpakkingsDefinitie/UI/VerpakkingDetailScherm.dfm
===================================================================
diff -u -r602 -r606
--- VerpakkingsDefinitie/UI/VerpakkingDetailScherm.dfm	(.../VerpakkingDetailScherm.dfm)	(revision 602)
+++ VerpakkingsDefinitie/UI/VerpakkingDetailScherm.dfm	(.../VerpakkingDetailScherm.dfm)	(revision 606)
@@ -26,7 +26,6 @@
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
     TabOrder = 0
-    ExplicitHeight = 409
     DesignSize = (
       671
       396)
Index: VerpakkingsDefinitie/UI/ProductDetailScherm.pas
===================================================================
diff -u -r601 -r606
--- VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 601)
+++ VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 606)
@@ -106,11 +106,19 @@
 end;
 
 procedure TFormProductDetail.ButtonVerwijderVerpakkingClick(Sender: TObject);
+var
+  IndexInList: Integer;
 begin
+  IndexInList := ListViewVerpakkingen.ItemIndex;
+
   FProductsAgent.VerwijderVerpakking(ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking,
     ApplicationContext.UserContext, ApplicationContext.ProductVerpakkingContext);
 
   VerwerkAgentVerpakkingCall();
+
+  // Selecteer de verpakking net voor de verwijderde verpakking.
+  if (self.ApplicationContext.ProductVerpakkingContext.IsOK) and (IndexInList > 0) then
+    ListViewVerpakkingen.ItemIndex := IndexInList - 1;
 end;
 
 procedure TFormProductDetail.VerwerkAgentVerpakkingCall();
@@ -203,7 +211,6 @@
       SubItems.Add(ProductVerpakking.Aantal);
       SubItems.Add(ProductVerpakking.MaxCombinAantal);
       SubItems.Add(ProductVerpakking.DeelVanCaption);
-      SubItems.Add(ProductVerpakking.ID);
     end;
   end;
   ListViewVerpakkingen.Items.EndUpdate;
Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r605 -r606
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 605)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 606)
@@ -501,7 +501,7 @@
     for ProductVerpakking in TempProductVerpakkingen do
     begin
       if ProductVerpakking.DeelVanID <> '' then
-        for ProductVerpakkingAndere in ProductVerpakkingenContext.ProductVerpakkingen do
+        for ProductVerpakkingAndere in TempProductVerpakkingen do
           if ProductVerpakking.DeelVanID = ProductVerpakkingAndere.ID then
             ProductVerpakking.DeelVan := ProductVerpakkingAndere;
     end;
@@ -641,8 +641,15 @@
 
 procedure TProductsAgent.OpslaanGewijzigdeProductVerpakking(ProductVerpakking: TProductVerpakking; UserContext: TUserContext;
   ProductVerpakkingenContext: TProductVerpakkingenContext);
+var
+  TempProductVerpakking: TProductVerpakking;
 begin
   OpslaanProductVerpakking(ProductVerpakking, UserContext, ProductVerpakkingenContext);
+  // We vervangen sommige productverpakking gegevens met de door de server aangepaste gegevens
+  // Anders krijgen we geen correcte 'deel van' caption van de server zelf
+  TempProductVerpakking := GeefVerpakkingMetID(ProductVerpakking.ID, UserContext, ProductVerpakkingenContext);
+  ProductVerpakking.DeelVanCaption := TempProductVerpakking.DeelVanCaption;
+
   ProductVerpakkingenContext.NotifyChanged();
 end;
 
@@ -801,7 +808,6 @@
         DefaultHoogte := pxBoxDataObj.DefaultData.Hoogte;
         DefaultBreedte := pxBoxDataObj.DefaultData.Breedte;
         DefaultDiepte := pxBoxDataObj.DefaultData.Diepte;
-        { TODO : aantal en Max comb aantal default waarden }
 
         DefaultPosities.AddRange(SplitString(pxBoxDataObj.DefaultData.Positie, ';'));
         DefaultRichtingen.AddRange(SplitString(pxBoxDataObj.DefaultData.Rotatie, ';'));
Index: VerpakkingsDefinitie/UI/ProductDetailScherm.dfm
===================================================================
diff -u -r600 -r606
--- VerpakkingsDefinitie/UI/ProductDetailScherm.dfm	(.../ProductDetailScherm.dfm)	(revision 600)
+++ VerpakkingsDefinitie/UI/ProductDetailScherm.dfm	(.../ProductDetailScherm.dfm)	(revision 606)
@@ -147,12 +147,6 @@
           Width = -1
           WidthType = (
             -1)
-        end
-        item
-          Caption = 'ID'
-          Width = -1
-          WidthType = (
-            -1)
         end>
       TabOrder = 0
       ViewStyle = vsReport