Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r362 -r363
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 362)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 363)
@@ -18,7 +18,6 @@
     pnlZoekKnoppen: TPanel;
     btnZoeken: TButton;
     edtDnaCode: TEdit;
-    cdsDnaCodes: TClientDataSet;
     dsDnaCodes: TDataSource;
     imgPrinter: TImage;
     lblDnaCode: TLabel;
@@ -35,19 +34,24 @@
     procedure ZoekViaDnaCode();
     procedure ZoekViaPallet();
     procedure ZoekViaToelevering();
+    procedure ZoekViaKlantnummer();
+    procedure ZoekViaLadecode();
+    procedure ZoekViaOrdernummer();
     procedure btnZoekenClick(Sender: TObject);
     procedure btnMaatwerketiketClick(Sender: TObject);
     procedure btnKlantEtiketClick(Sender: TObject);
     procedure btnProboxetiketClick(Sender: TObject);
     procedure edtToeleveringEnter(Sender: TObject);
   private
+    fcdsDnaCodes: TClientDataset;
     procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
     function BepaalGeselecteerdeDnaCodes: TStringList;
     function GeefAlleDnaCodesUitGrid: TStringList;
     procedure ZoekveldenLeegmaken();
     procedure DnaCodesZoeken();
   public
-    { Public declarations }
+    constructor Create(AOwner: TComponent) ; override;
+    property cdsDnaCodes: TClientDataset read fcdsDnaCodes write fcdsDnaCodes;
   end;
 
 implementation
@@ -57,6 +61,27 @@
 
 {$R *.dfm}
 
+constructor TfrmDnaCodes.Create(AOwner: TComponent);
+begin
+  inherited;
+
+  cdsDnaCodes := TClientDataSet.Create(self);
+  with cdsDnaCodes.FieldDefs do
+  begin
+    Clear;
+    Add('DnaCode',ftString, 10);
+    Add('Pallet',ftString, 10);
+    Add('Toelevering',ftString, 10);
+    Add('Status',ftString, 10);
+    Add('Batch',ftString, 10);
+    Add('Scantijdstip',ftString, 20);
+    Add('Initialen',ftString, 3);
+    Add('LadeCode',ftString, 10);
+  end;
+  cdsDnaCodes.CreateDataSet;
+  dsDnaCodes.DataSet := cdsDnaCodes;
+end;
+
 procedure TfrmDnaCodes.btnMaatwerketiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
@@ -103,6 +128,60 @@
   end;
 end;
 
+procedure TfrmDnaCodes.ZoekViaKlantnummer;
+var
+  fZoekViaKlantnummerResponse: ZoekViaKlantnummerResponse;
+  DnaCodes: ArrayOfDnaCodeDnaCode;
+begin
+  fZoekViaKlantnummerResponse := TAgent.Create(fmMain.UiContext).ZoekViaKlantnummer(edtKlantnummer.Text);
+  try
+    if fZoekViaKlantnummerResponse.Header.Status = '200' then begin
+      DnaCodes := fZoekViaKlantnummerResponse.DnaCodes;
+      VulDnaCodeGridMetData(DnaCodes);
+    end else begin
+      ShowMessage(fZoekViaKlantnummerResponse.Header.Omschrijving);
+    end;
+  finally
+    fZoekViaKlantnummerResponse.Free;
+  end;
+end;
+
+procedure TfrmDnaCodes.ZoekViaLadecode;
+var
+  fZoekViaLadecodeResponse: ZoekViaLadecodeResponse;
+  DnaCodes: ArrayOfDnaCodeDnaCode;
+begin
+  fZoekViaLadecodeResponse := TAgent.Create(fmMain.UiContext).ZoekViaLadecode(edtLadecode.Text);
+  try
+    if fZoekViaLadecodeResponse.Header.Status = '200' then begin
+      DnaCodes := fZoekViaLadecodeResponse.DnaCodes;
+      VulDnaCodeGridMetData(DnaCodes);
+    end else begin
+      ShowMessage(fZoekViaLadecodeResponse.Header.Omschrijving);
+    end;
+  finally
+    fZoekViaLadecodeResponse.Free;
+  end;
+end;
+
+procedure TfrmDnaCodes.ZoekViaOrdernummer;
+var
+  fZoekViaOrdernummerResponse: ZoekViaOrdernummerResponse;
+  DnaCodes: ArrayOfDnaCodeDnaCode;
+begin
+  fZoekViaOrdernummerResponse := TAgent.Create(fmMain.UiContext).ZoekViaOrdernummer(edtOrdernummer.Text);
+  try
+    if fZoekViaOrdernummerResponse.Header.Status = '200' then begin
+      DnaCodes := fZoekViaOrdernummerResponse.DnaCodes;
+      VulDnaCodeGridMetData(DnaCodes);
+    end else begin
+      ShowMessage(fZoekViaOrdernummerResponse.Header.Omschrijving);
+    end;
+  finally
+    fZoekViaOrdernummerResponse.Free;
+  end;
+end;
+
 procedure TfrmDnaCodes.btnKlantEtiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
@@ -152,20 +231,12 @@
 
 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();
-
+  if edtKlantNummer.Text <> '' then ZoekViaKlantnummer();
+  if edtOrderNummer.Text <> '' then ZoekViaOrderNummer();
+  if edtLadeCode.Text <> '' then ZoekViaLadeCode();
 end;
 
 procedure TfrmDnaCodes.edtToeleveringEnter(Sender: TObject);
@@ -199,7 +270,8 @@
                               GetEnumName(typeInfo(DnaCodeStatus),Ord(DnaCodes[ii].Status)),
                               DnaCodes[ii].BatchId,
                               ScanTijdstipAsString,
-                              DnaCodes[ii].InitialenScanner]);
+                              DnaCodes[ii].InitialenScanner,
+                              DnaCodes[ii].LadeCode]);
     ii := ii + 1;
   end;
 end;