Index: PlanScan/Main.pas
===================================================================
diff -u -r357 -r362
--- PlanScan/Main.pas	(.../Main.pas)	(revision 357)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 362)
@@ -32,6 +32,7 @@
     procedure lblDnaCodesClick(Sender: TObject);
     procedure lblGebruikersClick(Sender: TObject);
     procedure lblWegwerppalletClick(Sender: TObject);
+    procedure frmDnaCodesbtnZoekenClick(Sender: TObject);
   private
     fUiContext: TUiContext;
     procedure HuidigeGebruikerAfmelden();
@@ -69,6 +70,11 @@
     Application.Terminate;
 end;
 
+procedure TfmMain.frmDnaCodesbtnZoekenClick(Sender: TObject);
+begin
+  frmDnaCodes.btnZoekenClick(Sender);
+end;
+
 procedure TfmMain.HuidigeGebruikerAfmelden;
 begin
   TAgent.Create(UiContext).GebruikerAfmelden(UiContext.Initialen, UiContext.LoginCode);