Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r667 -r672
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 667)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 672)
@@ -33,19 +33,13 @@
     lblLadeCode: TLabel;
     edtBatch: TEdit;
     lblBatch: TLabel;
-    lblLPN: TLabel;
-    edtLPN: TEdit;
-    lblStatus: TLabel;
-    combStatus: TComboBox;
     procedure ZoekViaDnaCode();
     procedure ZoekViaPallet();
-    procedure ZoekViaLpnCode();
     procedure ZoekViaToelevering();
     procedure ZoekViaKlantnummer();
     procedure ZoekViaLadecode();
     procedure ZoekViaOrdernummer();
     procedure ZoekViaBatch();
-    procedure ZoekViaStatus();
     procedure btnZoekenClick(Sender: TObject);
     procedure btnProductetiketClick(Sender: TObject);
     procedure btnKlantEtiketClick(Sender: TObject);
@@ -89,7 +83,6 @@
     Add('Initialen',ftString, 3);
     Add('LadeCode',ftString, 10);
     Add('ParentDnaCode', ftString, 10);
-    Add('LpnCode', ftString, 10);
   end;
   cdsDnaCodes.CreateDataSet;
   dsDnaCodes.DataSet := cdsDnaCodes;
@@ -272,26 +265,6 @@
   end;
 end;
 
-procedure TfrmDnaCodes.ZoekViaLpnCode();
-var
-  fZoekViaLpnCodeResponse: ZoekViaLpnCodeResponse;
-  DnaCodes: ArrayOfDnaCodeDnaCode;
-begin
-  fZoekViaLpnCodeResponse := TAgent.Create(fmMain.UiContext).ZoekViaLpnCode(edtLPN.Text);
-  try
-    if fZoekViaLpnCodeResponse.Header.Status = '200' then begin
-      DnaCodes := fZoekViaLpnCodeResponse.DnaCodes;
-      VulDnaCodeGridMetData(DnaCodes);
-      if StartsText('TBP',edtPallet.Text) then
-        btnProboxetiket.Visible := true;
-    end else begin
-      ShowMessage(fZoekViaLpnCodeResponse.Header.Omschrijving);
-    end;
-  finally
-    fZoekViaLpnCodeResponse.Free;
-  end;
-end;
-
 procedure TfrmDnaCodes.ZoekViaToelevering();
 var
   fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
@@ -311,45 +284,15 @@
   end;
 end;
 
-procedure TfrmDnaCodes.ZoekViaStatus();
-var
-  status: DnaCodeStatus;
-  fZoekViaStatusResponse: ZoekViaStatusResponse;
-  DnaCodes: ArrayOfDnaCodeDnaCode;
-begin
-  case combStatus.ItemIndex of
-    1: status := DnaCodeStatus.Nieuw;
-    2: status := DnaCodeStatus.Gescand;
-    3: status := DnaCodeStatus.Ongedaan;
-    4: status := DnaCodeStatus.OnHold;
-    5: status := DnaCodeStatus.InBuffer;
-    6: status := DnaCodeStatus.InBatch;
-  else Exit;
-  end;
-  fZoekViaStatusResponse := TAgent.Create(fmMain.UiContext).ZoekViaStatus(status);
-  try
-    if fZoekViaStatusResponse.Header.Status = '200' then begin
-      DnaCodes := fZoekViaStatusResponse.DnaCodes;
-      VulDnaCodeGridMetData(DnaCodes);
-    end else begin
-      ShowMessage(fZoekViaStatusResponse.Header.Omschrijving);
-    end;
-  finally
-    fZoekViaStatusResponse.Free;
-  end;
-end;
-
 procedure TfrmDnaCodes.DnaCodesZoeken;
 begin
   if edtToelevering.Text <> '' then ZoekViaToelevering();
   if edtPallet.Text <> '' then ZoekViaPallet();
-  if edtLPN.Text <> '' then ZoekViaLpnCode();
   if edtDNACode.Text <> '' then ZoekViaDNACode();
   if edtKlantNummer.Text <> '' then ZoekViaKlantnummer();
   if edtOrderNummer.Text <> '' then ZoekViaOrderNummer();
   if edtLadeCode.Text <> '' then ZoekViaLadeCode();
   if edtBatch.Text <> '' then ZoekViaBatch();
-  if combStatus.ItemIndex <> 0 then ZoekViaStatus();
 end;
 
 procedure TfrmDnaCodes.edtDnaCodeKeyUp(Sender: TObject; var Key: Word;
@@ -395,8 +338,7 @@
                                 ScanTijdstipAsString,
                                 DnaCodes[ii].InitialenScanner,
                                 DnaCodes[ii].LadeCode,
-                                DnaCodes[ii].ParentDnaCode,
-                                DnaCodes[ii].LpnCode]);
+                                DnaCodes[ii].ParentDnaCode]);
     ii := ii + 1;
   end;
 end;