Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r363 -r437
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 363)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 437)
@@ -31,12 +31,15 @@
     edtOrderNummer: TEdit;
     edtLadeCode: TEdit;
     lblLadeCode: TLabel;
+    edtBatch: TEdit;
+    lblBatch: TLabel;
     procedure ZoekViaDnaCode();
     procedure ZoekViaPallet();
     procedure ZoekViaToelevering();
     procedure ZoekViaKlantnummer();
     procedure ZoekViaLadecode();
     procedure ZoekViaOrdernummer();
+    procedure ZoekViaBatch();
     procedure btnZoekenClick(Sender: TObject);
     procedure btnMaatwerketiketClick(Sender: TObject);
     procedure btnKlantEtiketClick(Sender: TObject);
@@ -164,6 +167,24 @@
   end;
 end;
 
+procedure TfrmDnaCodes.ZoekViaBatch;
+var
+  fZoekViaBatchResponse: ZoekViaBatchResponse;
+  DnaCodes: ArrayOfDnaCodeDnaCode;
+begin
+  fZoekViaBatchResponse := TAgent.Create(fmMain.UiContext).ZoekViaBatchId(edtBatch.Text);
+  try
+    if fZoekViaBatchResponse.Header.Status = '200' then begin
+      DnaCodes := fZoekViaBatchResponse.DnaCodes;
+      VulDnaCodeGridMetData(DnaCodes);
+    end else begin
+      ShowMessage(fZoekViaBatchResponse.Header.Omschrijving);
+    end;
+  finally
+    fZoekViaBatchResponse.Free;
+  end;
+end;
+
 procedure TfrmDnaCodes.ZoekViaOrdernummer;
 var
   fZoekViaOrdernummerResponse: ZoekViaOrdernummerResponse;
@@ -237,6 +258,7 @@
   if edtKlantNummer.Text <> '' then ZoekViaKlantnummer();
   if edtOrderNummer.Text <> '' then ZoekViaOrderNummer();
   if edtLadeCode.Text <> '' then ZoekViaLadeCode();
+  if edtBatch.Text <> '' then ZoekViaBatch();
 end;
 
 procedure TfrmDnaCodes.edtToeleveringEnter(Sender: TObject);
@@ -284,6 +306,7 @@
   edtKlantNummer.Text := '';
   edtOrderNummer.Text := '';
   edtLadeCode.Text := '';
+  edtBatch.Text := '';
 end;
 
 function TfrmDnaCodes.BepaalGeselecteerdeDnaCodes: TStringList;