Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r681 -r682
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 681)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 682)
@@ -602,10 +602,10 @@
 
     ii := 0;
     if not UiContext.IsExportPopupGetoond then begin
+      fAgent := TAgent.Create(UiContext);
+      fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
+      fAgent.Free;
       try
-        fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
-        fAgent.Free;
         while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
              if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsExport then begin
@@ -625,10 +625,10 @@
 
     ii := 0;
     if not UiContext.IsBlumXsPopupGetoond then begin
+      fAgent := TAgent.Create(UiContext);
+      fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
+      fAgent.Free;
       try
-        fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
-        fAgent.Free;
         while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
              if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsBlumXs then begin
Index: ProScan/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r645 -r682
--- ProScan/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 645)
+++ ProScan/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 682)
@@ -2,8 +2,6 @@
   ActiveControl = edtDnaCode
   Caption = 'fmDnaCodeScherm'
   OnActivate = FormActivate
-  ExplicitWidth = 480
-  ExplicitHeight = 640
   PixelsPerInch = 96
   TextHeight = 19
   object lblToeleveringData: TLabel [0]