Index: PlanScan/Main.pas
===================================================================
diff -u -r266 -r267
--- PlanScan/Main.pas	(.../Main.pas)	(revision 266)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 267)
@@ -46,18 +46,15 @@
   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);
+      ShowMessage(fZoekViaPalletResponse.Header.Omschrijving);
     end;
   finally
     fZoekViaPalletResponse.Free;
@@ -70,18 +67,15 @@
   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
   fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(edtZoekInput.Text);
   try
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaToeleveringResponse.DnaCodes;
       VulDnaCodeGridMetData(DnaCodes);
     end else begin
-      ShowMessage('Er ging iets mis: '+fZoekViaToeleveringResponse.Header.Omschrijving);
+      ShowMessage(fZoekViaToeleveringResponse.Header.Omschrijving);
     end;
   finally
     fZoekViaToeleveringResponse.Free;
@@ -92,6 +86,7 @@
 var
   ii: integer;
 begin
+  cdsDnaCodes.Close;
   cdsDnaCodes.CreateDataSet;
 
   ii := 0;