Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r582 -r585
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 582)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 585)
@@ -438,6 +438,7 @@
           if ProductVerpakking.DeelVanID = ProductVerpakkingAndere.ID then
             ProductVerpakking.DeelVan := ProductVerpakkingAndere;
     end;
+    ProductDetailContext.NotifyChanged();
   finally
     FreeAndNil(BoxDataIDs);
     FreeAndNil(ZoekData);
@@ -458,6 +459,7 @@
   with Verpakking do
   begin
     RawData := pxBoxDataObj;
+    ID := pxBoxDataObj.ID;
     MetaCaption := pxBoxDataObj.MetaCaption;
     CutOrder := pxBoxDataObj.CutOrder;
     Breedte := pxBoxDataObj.Breedte;
@@ -476,8 +478,6 @@
   end;
 
   ProductDetailContext.ProductVerpakkingen.Add(Verpakking);
-
-  ProductDetailContext.NotifyChanged();
 end;
 
 procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductDetailContext: TProductDetailContext;