Index: VerpakkingsDefinitie/UI/ZoekProductenScherm.pas
===================================================================
diff -u -r573 -r574
--- VerpakkingsDefinitie/UI/ZoekProductenScherm.pas	(.../ZoekProductenScherm.pas)	(revision 573)
+++ VerpakkingsDefinitie/UI/ZoekProductenScherm.pas	(.../ZoekProductenScherm.pas)	(revision 574)
@@ -53,7 +53,7 @@
     procedure EditZoekTekstChange(Sender: TObject);
     procedure ButtonZoekTekstClick(Sender: TObject);
   private
-    FProductAgent: TProductsAgent;
+    FProductsAgent: TProductsAgent;
     procedure VerwerkOpzoeking();
     procedure ComboBoxBeperkUpdatet(ComboBox: TComboBox; EditText: TEdit);
   public
@@ -69,7 +69,7 @@
   ProductAgent: TProductsAgent);
 begin
   inherited Create(AOwner, Navigator, ApplicationContext);
-  self.FProductAgent := ProductAgent;
+  self.FProductsAgent := ProductAgent;
 end;
 
 procedure TFormZoekProducten.FormCreate(Sender: TObject);
@@ -133,26 +133,76 @@
 end;
 
 procedure TFormZoekProducten.ButtonZoekViaKortTekstClick(Sender: TObject);
+var
+  KlantNummer: string;
+  LeveranciersNummer: string;
 begin
-  { TODO -cZoekProductenScherm : Opzoeken via korttekst }
+  // ZoekOp(UserContext; ProductsContext; Zoekmethode; Zoek; KLNr; LevNr; StockType; Taal);
+  KlantNummer := '';
+  LeveranciersNummer := '';
+  if ComboBoxBeperkKortTekst.Items[ComboBoxBeperkKortTekst.ItemIndex] = 'Klant nummer' then
+    KlantNummer := EditBeperkKortTekst.text
+  else if ComboBoxBeperkKortTekst.Items[ComboBoxBeperkKortTekst.ItemIndex] = 'Leveranciers nummer' then
+    LeveranciersNummer := EditBeperkKortTekst.text
+  else if ComboBoxBeperkKortTekst.Items[ComboBoxBeperkKortTekst.ItemIndex] = '--Geen beperking--' then
+  else
+    raise Exception.Create('Ongeldige waarde geselecteerd');
+
+  FProductsAgent.ZoekOp(ApplicationContext.UserContext, ApplicationContext.ProductsContext, TZoekMethode.KortTekst,
+    EditZoekKortTekst.text, KlantNummer, LeveranciersNummer, '', '');
+
   VerwerkOpzoeking();
 end;
 
 procedure TFormZoekProducten.ButtonZoekIdentNrClick(Sender: TObject);
 begin
-  { TODO -cZoekProductenScherm : Opzoeken via identnr }
+  // ZoekOp(UserContext; ProductsContext; Zoekmethode; Zoek; KLNr; LevNr; StockType; Taal);
+  FProductsAgent.ZoekOp(ApplicationContext.UserContext, ApplicationContext.ProductsContext, TZoekMethode.IdentificatieNr,
+    EditZoekIdentNr.text, '', '', '', '');
+
   VerwerkOpzoeking();
 end;
 
 procedure TFormZoekProducten.ButtonZoekLeveranciersReferentieClick(Sender: TObject);
+var
+  StockType: string;
 begin
-  { TODO -cZoekProductenScherm : Opzoeken via leveranciers referentie }
+  // ZoekOp(UserContext; ProductsContext; Zoekmethode; Zoek; KLNr; LevNr; StockType; Taal);
+  if ComboBoxStockTypeReferentie.Items[ComboBoxStockTypeReferentie.ItemIndex] = '--Niet gespecifieerd--' then
+    StockType := ''
+  else
+    StockType := ComboBoxStockTypeReferentie.Items[ComboBoxStockTypeReferentie.ItemIndex];
+
+  FProductsAgent.ZoekOp(ApplicationContext.UserContext, ApplicationContext.ProductsContext, TZoekMethode.LeveranciersRef,
+    EditZoekReferentie.text, EditKlantNrReferentie.text, '', StockType, '');
+
   VerwerkOpzoeking();
 end;
 
 procedure TFormZoekProducten.ButtonZoekTekstClick(Sender: TObject);
+var
+  Taal: string;
+  KlantNummer: string;
+  LeveranciersNummer: string;
 begin
-  { TODO -cZoekProductenScherm : Opzoeken via tekst }
+  // Taal bepalen
+  if ComboBoxTaalTekst.Items[ComboBoxTaalTekst.ItemIndex] = '--Niet gespecifieerd--' then
+    Taal := ''
+  else
+    Taal := ComboBoxTaalTekst.Items[ComboBoxTaalTekst.ItemIndex];
+
+  // ZoekOp(UserContext; ProductsContext; Zoekmethode; Zoek; KLNr; LevNr; StockType; Taal);
+  if ComboBoxBeperkTekst.Items[ComboBoxBeperkTekst.ItemIndex] = 'Klant nummer' then
+    KlantNummer := EditBeperkTekst.text
+  else if ComboBoxBeperkTekst.Items[ComboBoxBeperkTekst.ItemIndex] = 'Leveranciers nummer' then
+    LeveranciersNummer := EditBeperkTekst.text
+  else if ComboBoxBeperkTekst.Items[ComboBoxBeperkTekst.ItemIndex] = '--Geen beperking--' then
+  else
+    raise Exception.Create('Ongeldige waarde geselecteerd');
+
+  FProductsAgent.ZoekOp(ApplicationContext.UserContext, ApplicationContext.ProductsContext, TZoekMethode.Tekst,
+    EditZoekTekst.text, KlantNummer, LeveranciersNummer, '', Taal);
+
   VerwerkOpzoeking();
 end;