Index: PlanScan/UI/KlantinstellingenDetailScherm.pas
===================================================================
diff -u -r373 -r374
--- PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 373)
+++ PlanScan/UI/KlantinstellingenDetailScherm.pas	(.../KlantinstellingenDetailScherm.pas)	(revision 374)
@@ -4,14 +4,15 @@
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.StrUtils;
 
 type
   TfmKlantinstellingenDetail = class(TForm)
     lblKlantId: TLabel;
     lblExport: TLabel;
     edtklantId: TEdit;
     cbIsExport: TCheckBox;
+    btnOk: TButton;
   private
     function getIsExport: boolean;
     function getKlantId: string;
@@ -39,7 +40,10 @@
 
 function TfmKlantinstellingenDetail.getKlantId: string;
 begin
-  result := edtKlantId.Text;
+  if not (System.StrUtils.LeftStr(edtKlantId.Text,3) = 'K||') then
+    result := 'K||'+edtKlantId.Text
+  else
+    result := edtKlantId.Text;
 end;
 
 procedure TfmKlantinstellingenDetail.setIsExport(const Value: boolean);