Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r591 -r594
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 591)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 594)
@@ -26,19 +26,19 @@
     function GeefBruikbareLijnenUitXMLDataSet(DataSetXml: string): TStringList;
     procedure RegistreerZoekResultaten(ProductsContext: TProductsContext; DataSet: string); overload;
     procedure RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: SelectService.pxStatus); overload;
-    procedure RegistreerZoekResultaten(ProductDetailContext: TProductVerpakkingContext;
+    procedure RegistreerZoekResultaten(ProductVerpakkingenContext: TProductVerpakkingenContext;
       pxBoxDataObj: OptiServerService.pxBoxData); overload;
-    procedure RegistreerMislukteOpzoeking(ProductDetailContext: TProductVerpakkingContext;
+    procedure RegistreerMislukteOpzoeking(ProductDetailContext: TProductVerpakkingenContext;
       pxStatusObj: OptiServerService.pxStatus); overload;
-    function GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext; ProductDetailContext: TProductVerpakkingContext)
+    function GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext; ProductDetailContext: TProductVerpakkingenContext)
       : TList<string>;
   public
     Constructor Create();
     procedure LaadUIInstellingen(UserContext: TUserContext; UiInstellingenContext: TUiInstellingenContext);
     procedure ZoekOp(UserContext: TUserContext; ProductsContext: TProductsContext; Zoekmethode: TZoekMethode; Zoek: string;
       KLNr: string; LevNr: string; StockType: string; Taal: string);
-    procedure ZoekProductDataMetProductNr(ProductNr: Integer; UserContext: TUserContext;
-      ProductDetailContext: TProductVerpakkingContext);
+    procedure ZoekProductVerpakkingenMetProductNr(ProductNr: Integer; UserContext: TUserContext;
+      ProductDetailContext: TProductVerpakkingenContext);
   end;
 
 implementation
@@ -336,7 +336,7 @@
 end;
 
 function TProductsAgent.GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext;
-  ProductDetailContext: TProductVerpakkingContext): TList<string>;
+  ProductDetailContext: TProductVerpakkingenContext): TList<string>;
 var
   ZoekData: OptiServerService.GetBoxDataIDsViaProduct;
   GetBoxDataIDsViaProductResponseObj: OptiServerService.GetBoxDataIDsViaProductResponse;
@@ -409,8 +409,8 @@
   end;
 end;
 
-procedure TProductsAgent.ZoekProductDataMetProductNr(ProductNr: Integer; UserContext: TUserContext;
-  ProductDetailContext: TProductVerpakkingContext);
+procedure TProductsAgent.ZoekProductVerpakkingenMetProductNr(ProductNr: Integer; UserContext: TUserContext;
+  ProductDetailContext: TProductVerpakkingenContext);
 var
   ZoekData: OptiServerService.GetBoxDataViaId;
   BoxDataIDs: TList<string>;
@@ -462,23 +462,24 @@
             ProductVerpakking.DeelVan := ProductVerpakkingAndere;
     end;
     ProductDetailContext.NotifyChanged();
+
   finally
     FreeAndNil(BoxDataIDs);
     FreeAndNil(ZoekData);
   end;
 end;
 
-procedure TProductsAgent.RegistreerZoekResultaten(ProductDetailContext: TProductVerpakkingContext;
+procedure TProductsAgent.RegistreerZoekResultaten(ProductVerpakkingenContext: TProductVerpakkingenContext;
   pxBoxDataObj: OptiServerService.pxBoxData);
 var
   Verpakking: TProductVerpakking;
   I: Integer;
   NieuweVerpakkingParameter: TProductVerpakkingParameter;
 begin
   // Andere velden juist zetten
-  ProductDetailContext.IsOK := True;
-  ProductDetailContext.ErrorMessage := '';
-  ProductDetailContext.InternalErrorMessage := '';
+  ProductVerpakkingenContext.IsOK := True;
+  ProductVerpakkingenContext.ErrorMessage := '';
+  ProductVerpakkingenContext.InternalErrorMessage := '';
 
   Verpakking := TProductVerpakking.Create();
   with Verpakking do
@@ -530,10 +531,10 @@
     MetaCaption := pxBoxDataObj.MetaCaption;
   end;
 
-  ProductDetailContext.ProductVerpakkingen.Add(Verpakking);
+  ProductVerpakkingenContext.ProductVerpakkingen.Add(Verpakking);
 end;
 
-procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductDetailContext: TProductVerpakkingContext;
+procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductDetailContext: TProductVerpakkingenContext;
   pxStatusObj: OptiServerService.pxStatus);
 begin
   ProductDetailContext.ProductVerpakkingen.Clear();