Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r645 -r646
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 645)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 646)
@@ -558,7 +558,7 @@
     if not UiContext.IsExportPopupGetoond then begin
       try
         fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false);
+        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
@@ -581,7 +581,7 @@
     if not UiContext.IsBlumXsPopupGetoond then begin
       try
         fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false);
+        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