Index: PlanScan/UI/frameKlantinstellingen.pas
===================================================================
diff -u -r371 -r373
--- PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 371)
+++ PlanScan/UI/frameKlantinstellingen.pas	(.../frameKlantinstellingen.pas)	(revision 373)
@@ -21,6 +21,9 @@
     procedure dbgGebruikersEnter(Sender: TObject);
     procedure dbgGebruikersColEnter(Sender: TObject);
     procedure dbgGebruikersColExit(Sender: TObject);
+    procedure btnKlantinstellingenToevoegenClick(Sender: TObject);
+    procedure btnKlantinstellingenWijzigenClick(Sender: TObject);
+    procedure btnKlantinstellingenVerwijderenClick(Sender: TObject);
   private
     GridOriginalOptions : TDBGridOptions;
     procedure VulKlantinstellingenGridMetData(Klantinstellingen: ArrayOfKlantinstellingenKlantinstellingen);
@@ -31,7 +34,7 @@
 implementation
 
 uses
-  Agent, Main, UiContext;
+  Agent, Main, UiContext, KlantinstellingenDetailScherm;
 
 {$R *.dfm}
 
@@ -53,6 +56,36 @@
   end;
 end;
 
+procedure TfrmKlantinstellingen.btnKlantinstellingenToevoegenClick(
+  Sender: TObject);
+var
+  fKlantinstellingenDetailScherm: TfmKlantinstellingenDetail;
+  fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
+begin
+  fKlantinstellingenDetailScherm := TfmKlantinstellingenDetail.Create(self);
+  fKlantinstellingenDetailScherm.KlantId := '';
+  fKlantinstellingenDetailScherm.IsExport := false;
+  fKlantinstellingenDetailScherm.ShowModal;
+  fBewerkKlantinstellingenResponse := TAgent.Create(fmMain.UiContext).BewerkKlantinstellingen('upsert',fKlantinstellingenDetailScherm.KlantId,fKlantinstellingenDetailScherm.IsExport);
+  if fBewerkKlantinstellingenResponse.Header.Status = '200' then begin
+    VulKlantinstellingenGridMetData(fBewerkKlantinstellingenResponse.Klantinstellingen);
+  end else begin
+    ShowMessage(fBewerkKlantinstellingenResponse.Header.Omschrijving);
+  end;
+end;
+
+procedure TfrmKlantinstellingen.btnKlantinstellingenVerwijderenClick(
+  Sender: TObject);
+begin
+  //
+end;
+
+procedure TfrmKlantinstellingen.btnKlantinstellingenWijzigenClick(
+  Sender: TObject);
+begin
+  //
+end;
+
 procedure TfrmKlantinstellingen.dbgGebruikersColEnter(Sender: TObject);
 begin
   if Self.dbgGebruikers.SelectedField.DataType = ftBoolean then