Index: VerpakkingsDefinitie/UI/ZoekProductenScherm.pas
===================================================================
diff -u -r574 -r575
--- VerpakkingsDefinitie/UI/ZoekProductenScherm.pas	(.../ZoekProductenScherm.pas)	(revision 574)
+++ VerpakkingsDefinitie/UI/ZoekProductenScherm.pas	(.../ZoekProductenScherm.pas)	(revision 575)
@@ -49,7 +49,7 @@
     procedure ButtonZoekLeveranciersReferentieClick(Sender: TObject);
     procedure ComboBoxBeperkTekstChange(Sender: TObject);
     procedure EditZoekIdentNrChange(Sender: TObject);
-    procedure EditZoekReferentieChange(Sender: TObject);
+    procedure EditReferentieChange(Sender: TObject);
     procedure EditZoekTekstChange(Sender: TObject);
     procedure ButtonZoekTekstClick(Sender: TObject);
   private
@@ -122,9 +122,9 @@
   ButtonZoekIdentNr.Enabled := (Sender as TEdit).text <> EmptyStr;
 end;
 
-procedure TFormZoekProducten.EditZoekReferentieChange(Sender: TObject);
+procedure TFormZoekProducten.EditReferentieChange(Sender: TObject);
 begin
-  ButtonZoekLeveranciersReferentie.Enabled := (Sender as TEdit).text <> EmptyStr;
+  ButtonZoekLeveranciersReferentie.Enabled := (EditZoekReferentie.text <> EmptyStr) and (EditKlantNrReferentie.text <> EmptyStr);
 end;
 
 procedure TFormZoekProducten.EditZoekTekstChange(Sender: TObject);