Index: PlanScan/Main.pas
===================================================================
diff -u -r267 -r268
--- PlanScan/Main.pas	(.../Main.pas)	(revision 267)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 268)
@@ -21,8 +21,10 @@
     btnZoekViaToelevering: TButton;
     edtZoekInput: TEdit;
     btnZoekViaPallet: TButton;
+    btnZoekViaDnaCode: TButton;
     procedure btnZoekViaToeleveringClick(Sender: TObject);
     procedure btnZoekViaPalletClick(Sender: TObject);
+    procedure btnZoekViaDnaCodeClick(Sender: TObject);
   private
     fUiContext: TUiContext;
     procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
@@ -40,6 +42,28 @@
 
 {$R *.dfm}
 
+procedure TfmMain.btnZoekViaDnaCodeClick(Sender: TObject);
+var
+  fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
+  DnaCodes: ArrayOfDnaCodeDnaCode;
+begin
+  UiContext := TUiContext.Create;
+  UiContext.LoginCode := '1513';
+  UiContext.Initialen := 'TSN';
+  fZoekViaDnaCodeResponse := TAgent.Create(UiContext).ZoekViaDnaCode(edtZoekInput.Text);
+  try
+    if fZoekViaDnaCodeResponse.Header.Status = '200' then begin
+      SetLength(DnaCodes,1);
+      DnaCodes[0] := fZoekViaDnaCodeResponse.DnaCodes;
+      VulDnaCodeGridMetData(DnaCodes);
+    end else begin
+      ShowMessage(fZoekViaDnaCodeResponse.Header.Omschrijving);
+    end;
+  finally
+    fZoekViaDnaCodeResponse.Free;
+  end;
+end;
+
 procedure TfmMain.btnZoekViaPalletClick(Sender: TObject);
 var
   fZoekViaPalletResponse: ZoekViaPalletCodeResponse;
@@ -85,18 +109,24 @@
 procedure TfmMain.VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
 var
   ii: integer;
+  ScanTijdstipAsString: string;
 begin
   cdsDnaCodes.Close;
   cdsDnaCodes.CreateDataSet;
 
   ii := 0;
   while ii <= length(DnaCodes)-1 do begin
+    if DnaCodes[ii].ScanTijdstip = nil then
+      ScanTijdstipAsString := ''
+    else
+      ScanTijdstipAsString := DateTimeToStr(DnaCodes[ii].ScanTijdstip.AsDateTime);
+
     cdsDnaCodes.InsertRecord([ DnaCodes[ii].DnaCode,
                                   DnaCodes[ii].PalletCode,
                                   DnaCodes[ii].Toelevering,
                                   GetEnumName(typeInfo(DnaCodeStatus),Ord(DnaCodes[ii].Status)),
                                   DnaCodes[ii].BatchId,
-                                  DateTimeToStr(DnaCodes[ii].ScanTijdstip.AsDateTime),
+                                  ScanTijdstipAsString,
                                   DnaCodes[ii].InitialenScanner]);
     ii := ii + 1;
   end;
Index: PlanScan/Main.dfm
===================================================================
diff -u -r266 -r268
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 266)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 268)
@@ -87,6 +87,15 @@
         TabOrder = 2
         OnClick = btnZoekViaPalletClick
       end
+      object btnZoekViaDnaCode: TButton
+        Left = 297
+        Top = 9
+        Width = 75
+        Height = 25
+        Caption = 'DnaCode'
+        TabOrder = 3
+        OnClick = btnZoekViaDnaCodeClick
+      end
     end
     object pnlActies: TPanel
       Left = 504