Index: PlanScan/Main.pas
===================================================================
diff -u -r265 -r266
--- PlanScan/Main.pas	(.../Main.pas)	(revision 265)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 266)
@@ -7,7 +7,7 @@
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables, Vcl.Grids,
   Vcl.DBGrids, Vcl.OleCtrls, CACHEQUERYLib_TLB, TLLib_TLB, Vcl.OleServer,
   CacheActiveX_TLB, Vcl.StdCtrls, Datasnap.DBClient, UiContext, Vcl.ComCtrls,
-  Vcl.ExtCtrls;
+  DnaCodeService, Vcl.ExtCtrls;
 
 type
   TfmMain = class(TForm)
@@ -22,8 +22,10 @@
     edtZoekInput: TEdit;
     btnZoekViaPallet: TButton;
     procedure btnZoekViaToeleveringClick(Sender: TObject);
+    procedure btnZoekViaPalletClick(Sender: TObject);
   private
     fUiContext: TUiContext;
+    procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
   public
     property UiContext: TUiContext Read fUiContext Write fUiContext;
   end;
@@ -34,48 +36,75 @@
 implementation
 
 uses
-  DnaCodeService, Agent, typinfo;
+  Agent, typinfo;
 
 {$R *.dfm}
 
+procedure TfmMain.btnZoekViaPalletClick(Sender: TObject);
+var
+  fZoekViaPalletResponse: ZoekViaPalletCodeResponse;
+  DnaCodes: ArrayOfDnaCodeDnaCode;
+begin
+  UiContext := TUiContext.Create;
+  UiContext.Pallet := 'TBP98984';
+  UiContext.LoginCode := '1513';
+  UiContext.Initialen := 'TSN';
+  //UiContext.Toelevering := '274804';
+  //UiContext.Toelevering := '210817';      //210817 heeft 4600 lijnen
+  fZoekViaPalletResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtZoekInput.Text);
+  try
+    if fZoekViaPalletResponse.Header.Status = '200' then begin
+      DnaCodes := fZoekViaPalletResponse.DnaCodes;
+      VulDnaCodeGridMetData(DnaCodes);
+    end else begin
+      ShowMessage('Er ging iets mis: '+fZoekViaPalletResponse.Header.Omschrijving);
+    end;
+  finally
+    fZoekViaPalletResponse.Free;
+  end;
+end;
+
 procedure TfmMain.btnZoekViaToeleveringClick(Sender: TObject);
 var
   fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
-  DnaCodesStringList: TStringList;
   DnaCodes: ArrayOfDnaCodeDnaCode;
-  ii: integer;
-  ScanTijdstip: TDateTime;
 begin
   UiContext := TUiContext.Create;
   UiContext.Pallet := 'TBP98984';
   UiContext.LoginCode := '1513';
   UiContext.Initialen := 'TSN';
-  UiContext.Toelevering := '274804';
+  //UiContext.Toelevering := '274804';
   //UiContext.Toelevering := '210817';      //210817 heeft 4600 lijnen
-  fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(UiContext.Toelevering);
+  fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(edtZoekInput.Text);
   try
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaToeleveringResponse.DnaCodes;
-
-      cdsDnaCodes.CreateDataSet;
-
-      ii := 0;
-      while ii <= length(DnaCodes)-1 do begin
-        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),
-                                      DnaCodes[ii].InitialenScanner]);
-        ii := ii + 1;
-      end;
+      VulDnaCodeGridMetData(DnaCodes);
     end else begin
-      //ToonPopupScherm(fZoekViaPalletCodeResponse.Header.Omschrijving, 'Bel planning');
+      ShowMessage('Er ging iets mis: '+fZoekViaToeleveringResponse.Header.Omschrijving);
     end;
   finally
     fZoekViaToeleveringResponse.Free;
   end;
 end;
 
+procedure TfmMain.VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
+var
+  ii: integer;
+begin
+  cdsDnaCodes.CreateDataSet;
+
+  ii := 0;
+  while ii <= length(DnaCodes)-1 do begin
+    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),
+                                  DnaCodes[ii].InitialenScanner]);
+    ii := ii + 1;
+  end;
+end;
+
 end.