Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r590 -r591
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 590)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 591)
@@ -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: TProductDetailContext;
+    procedure RegistreerZoekResultaten(ProductDetailContext: TProductVerpakkingContext;
       pxBoxDataObj: OptiServerService.pxBoxData); overload;
-    procedure RegistreerMislukteOpzoeking(ProductDetailContext: TProductDetailContext;
+    procedure RegistreerMislukteOpzoeking(ProductDetailContext: TProductVerpakkingContext;
       pxStatusObj: OptiServerService.pxStatus); overload;
-    function GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext; ProductDetailContext: TProductDetailContext)
+    function GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext; ProductDetailContext: TProductVerpakkingContext)
       : 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: TProductDetailContext);
+      ProductDetailContext: TProductVerpakkingContext);
   end;
 
 implementation
@@ -336,7 +336,7 @@
 end;
 
 function TProductsAgent.GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext;
-  ProductDetailContext: TProductDetailContext): TList<string>;
+  ProductDetailContext: TProductVerpakkingContext): TList<string>;
 var
   ZoekData: OptiServerService.GetBoxDataIDsViaProduct;
   GetBoxDataIDsViaProductResponseObj: OptiServerService.GetBoxDataIDsViaProductResponse;
@@ -410,7 +410,7 @@
 end;
 
 procedure TProductsAgent.ZoekProductDataMetProductNr(ProductNr: Integer; UserContext: TUserContext;
-  ProductDetailContext: TProductDetailContext);
+  ProductDetailContext: TProductVerpakkingContext);
 var
   ZoekData: OptiServerService.GetBoxDataViaId;
   BoxDataIDs: TList<string>;
@@ -468,7 +468,7 @@
   end;
 end;
 
-procedure TProductsAgent.RegistreerZoekResultaten(ProductDetailContext: TProductDetailContext;
+procedure TProductsAgent.RegistreerZoekResultaten(ProductDetailContext: TProductVerpakkingContext;
   pxBoxDataObj: OptiServerService.pxBoxData);
 var
   Verpakking: TProductVerpakking;
@@ -533,7 +533,7 @@
   ProductDetailContext.ProductVerpakkingen.Add(Verpakking);
 end;
 
-procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductDetailContext: TProductDetailContext;
+procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductDetailContext: TProductVerpakkingContext;
   pxStatusObj: OptiServerService.pxStatus);
 begin
   ProductDetailContext.ProductVerpakkingen.Clear();