Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r361 -r362
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 361)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 362)
@@ -32,18 +32,20 @@
     edtOrderNummer: TEdit;
     edtLadeCode: TEdit;
     lblLadeCode: TLabel;
-    procedure btnZoekViaDnaCodeClick(Sender: TObject);
-    procedure btnZoekViaPalletClick(Sender: TObject);
+    procedure ZoekViaDnaCode();
+    procedure ZoekViaPallet();
+    procedure ZoekViaToelevering();
     procedure btnZoekenClick(Sender: TObject);
     procedure btnMaatwerketiketClick(Sender: TObject);
     procedure btnKlantEtiketClick(Sender: TObject);
     procedure btnProboxetiketClick(Sender: TObject);
-    procedure edtDnaCodeChange(Sender: TObject);
+    procedure edtToeleveringEnter(Sender: TObject);
   private
     procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
     function BepaalGeselecteerdeDnaCodes: TStringList;
     function GeefAlleDnaCodesUitGrid: TStringList;
     procedure ZoekveldenLeegmaken();
+    procedure DnaCodesZoeken();
   public
     { Public declarations }
   end;
@@ -81,12 +83,12 @@
   end;
 end;
 
-procedure TfrmDnaCodes.btnZoekViaDnaCodeClick(Sender: TObject);
+procedure TfrmDnaCodes.ZoekViaDnaCode();
 var
   fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
   DnaCodes: ArrayOfDnaCodeDnaCode;
 begin
-  {fZoekViaDnaCodeResponse := TAgent.Create(fmMain.UiContext).ZoekViaDnaCode(edtZoekInput.Text);
+  fZoekViaDnaCodeResponse := TAgent.Create(fmMain.UiContext).ZoekViaDnaCode(edtDnaCode.Text);
   try
     if fZoekViaDnaCodeResponse.Header.Status = '200' then begin
       SetLength(DnaCodes,1);
@@ -97,8 +99,8 @@
       ShowMessage(fZoekViaDnaCodeResponse.Header.Omschrijving);
     end;
   finally
-    fZoekVtiaDnaCodeResponse.Free;
-  end;}
+    fZoekViaDnaCodeResponse.Free;
+  end;
 end;
 
 procedure TfrmDnaCodes.btnKlantEtiketClick(Sender: TObject);
@@ -109,37 +111,32 @@
   //relevante webmethod oproepen
 end;
 
-procedure TfrmDnaCodes.btnZoekViaPalletClick(Sender: TObject);
+procedure TfrmDnaCodes.ZoekViaPallet();
 var
   fZoekViaPalletResponse: ZoekViaPalletCodeResponse;
   DnaCodes: ArrayOfDnaCodeDnaCode;
 begin
-  {fZoekViaPalletResponse := TAgent.Create(fmMain.UiContext).ZoekViaPalletCode(edtZoekInput.Text);
+  fZoekViaPalletResponse := TAgent.Create(fmMain.UiContext).ZoekViaPalletCode(edtPallet.Text);
   try
     if fZoekViaPalletResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaPalletResponse.DnaCodes;
       VulDnaCodeGridMetData(DnaCodes);
-      if StartsText('TBP',edtZoekInput.Text) then
+      if StartsText('TBP',edtPallet.Text) then
         btnProboxetiket.Visible := true;
     end else begin
       ShowMessage(fZoekViaPalletResponse.Header.Omschrijving);
     end;
   finally
     fZoekViaPalletResponse.Free;
-  end;}
+  end;
 end;
 
-procedure TfrmDnaCodes.edtDnaCodeChange(Sender: TObject);
-begin
-  ZoekveldenLeegmaken();
-end;
-
-procedure TfrmDnaCodes.btnZoekenClick(Sender: TObject);
+procedure TfrmDnaCodes.ZoekViaToelevering();
 var
   fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
   DnaCodes: ArrayOfDnaCodeDnaCode;
 begin
-  {fZoekViaToeleveringResponse := TAgent.Create(fmMain.UiContext).ZoekViaToelevering(edtZoekInput.Text);
+  fZoekViaToeleveringResponse := TAgent.Create(fmMain.UiContext).ZoekViaToelevering(edtToelevering.Text);
   try
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaToeleveringResponse.DnaCodes;
@@ -150,9 +147,37 @@
     end;
   finally
     fZoekViaToeleveringResponse.Free;
-  end; }
+  end;
 end;
 
+procedure TfrmDnaCodes.DnaCodesZoeken;
+begin
+ {
+  edtToelevering.Text := '';
+  edtPallet.Text := '';
+  edtDNACode.Text := '';
+  edtKlantNummer.Text := '';
+  edtOrderNummer.Text := '';
+  edtLadeCode.Text := '';}
+  if edtToelevering.Text <> '' then ZoekViaToelevering();
+  if edtPallet.Text <> '' then ZoekViaPallet();
+  if edtDNACode.Text <> '' then ZoekViaDNACode();
+  //if edtKlantNummer.Text <> '' then ZoekViaKlantnummer();
+  //if edtOrderNummer.Text <> '' then ZoekViaOrderNummer();
+  //if edtLadeCode.Text <> '' then ZoekViaLadeCode();
+
+end;
+
+procedure TfrmDnaCodes.edtToeleveringEnter(Sender: TObject);
+begin
+  ZoekveldenLeegmaken();
+end;
+
+procedure TfrmDnaCodes.btnZoekenClick(Sender: TObject);
+begin
+  DnaCodesZoeken();
+end;
+
 procedure TfrmDnaCodes.VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
 var
   ii: integer;