Index: PlanScan/UI/KlantinstellingenDetailScherm.dfm
===================================================================
diff -u -r373 -r374
--- PlanScan/UI/KlantinstellingenDetailScherm.dfm	(.../KlantinstellingenDetailScherm.dfm)	(revision 373)
+++ PlanScan/UI/KlantinstellingenDetailScherm.dfm	(.../KlantinstellingenDetailScherm.dfm)	(revision 374)
@@ -1,6 +1,7 @@
 object fmKlantinstellingenDetail: TfmKlantinstellingenDetail
   Left = 0
   Top = 0
+  ActiveControl = btnOk
   Caption = 'KlantinstellingenDetail'
   ClientHeight = 176
   ClientWidth = 377
@@ -11,10 +12,11 @@
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
+  Position = poMainFormCenter
   PixelsPerInch = 96
   TextHeight = 13
   object lblKlantId: TLabel
-    Left = 48
+    Left = 68
     Top = 48
     Width = 113
     Height = 19
@@ -28,7 +30,7 @@
     ParentFont = False
   end
   object lblExport: TLabel
-    Left = 48
+    Left = 68
     Top = 88
     Width = 113
     Height = 19
@@ -42,7 +44,7 @@
     ParentFont = False
   end
   object edtklantId: TEdit
-    Left = 167
+    Left = 187
     Top = 45
     Width = 121
     Height = 27
@@ -55,7 +57,7 @@
     TabOrder = 0
   end
   object cbIsExport: TCheckBox
-    Left = 167
+    Left = 187
     Top = 90
     Width = 97
     Height = 17
@@ -67,4 +69,20 @@
     ParentFont = False
     TabOrder = 1
   end
+  object btnOk: TButton
+    Left = 133
+    Top = 128
+    Width = 112
+    Height = 33
+    Caption = 'Ok'
+    Default = True
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ModalResult = 1
+    ParentFont = False
+    TabOrder = 2
+  end
 end
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);
Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r373 -r374
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 373)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 374)
@@ -66,7 +66,7 @@
   fKlantinstellingenDetailScherm.KlantId := '';
   fKlantinstellingenDetailScherm.IsExport := false;
   fKlantinstellingenDetailScherm.ShowModal;
-  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport);
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('Upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport);
   if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
     VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
   end else begin