Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r556 -r557
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 556)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 557)
@@ -13,7 +13,7 @@
   KORTTEKST_FORMAT_EXPAND = 'KortTekst;IdentNr;StockType;LangTekstN';
 
 type
-  TProductAgent = class
+  TProductsAgent = class
   private
     FProdSelectServerSoap: SelectService.ProdSelectServerSoap;
     procedure RegistreerZoekresultaten(ProductsContext: TProductsContext; DataSet: anyType);
@@ -26,20 +26,19 @@
 
 implementation
 
-constructor TProductAgent.Create();
+constructor TProductsAgent.Create();
 begin
   FProdSelectServerSoap := SelectService.GetProdSelectServerSoap(false, PROD_SERVER_URL, nil);
 end;
 
-procedure TProductAgent.ZoekOpMetKortTekst(Zoek: string; KLNr: string; At: string; UserContext: TUserContext;
+procedure TProductsAgent.ZoekOpMetKortTekst(Zoek: string; KLNr: string; At: string; UserContext: TUserContext;
   ProductsContext: TProductsContext);
 var
   ZoekData: SelectService.Select;
   ZoekCriteria: SelectService.pxSelectCriteria; // Property van ZoekData
   SelectResponseObj: SelectService.SelectResponse;
 begin
   ZoekData := nil;
-  ZoekCriteria := nil;
   SelectResponseObj := nil;
   try
     // Request
@@ -72,7 +71,7 @@
   end;
 end;
 
-procedure TProductAgent.RegistreerZoekresultaten(ProductsContext: TProductsContext; DataSet: anyType);
+procedure TProductsAgent.RegistreerZoekresultaten(ProductsContext: TProductsContext; DataSet: anyType);
 begin
   // Andere velden juist zetten
   ProductsContext.IsOK := True;
@@ -84,7 +83,7 @@
   ProductsContext.NotifyChanged();
 end;
 
-procedure TProductAgent.RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: pxStatus);
+procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: pxStatus);
 begin
   // Ander velden leegmaken
   ProductsContext.DataSet := nil;