Index: PlanScan/Main.pas
===================================================================
diff -u -r363 -r365
--- PlanScan/Main.pas	(.../Main.pas)	(revision 363)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 365)
@@ -7,7 +7,8 @@
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables, Vcl.Grids,
   Vcl.DBGrids, Vcl.OleCtrls, CACHEQUERYLib_TLB, TLLib_TLB, Vcl.OleServer,
   CacheActiveX_TLB, Vcl.StdCtrls, Datasnap.DBClient, UiContext, Vcl.ComCtrls,
-  DnaCodeService, Vcl.ExtCtrls, GebruikerService, frameDnaCodes, frameGebruikers;
+  DnaCodeService, Vcl.ExtCtrls, GebruikerService, frameDnaCodes, frameGebruikers,
+  frameKlantinstellingen;
 
 type
   TfmMain = class(TForm)
@@ -25,6 +26,8 @@
     lblDnaCodes: TLabel;
     lblGebruikers: TLabel;
     frmDnaCodes: TfrmDnaCodes;
+    tsKlantinstellingen: TTabSheet;
+    frmKlantinstellingen: TfrmKlantinstellingen;
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -66,6 +69,7 @@
   fLoginScherm: TfmLogin;
   fGebruikerAanmeldenResponse: GebruikerAanmeldenResponse;
 begin
+  pcFrames.ActivePage := tsDnaCodes;
   if not GebruikerInloggen then
     Application.Terminate;
 end;
@@ -98,7 +102,7 @@
 
 procedure TfmMain.lblWegwerppalletClick(Sender: TObject);
 begin
-  //pcFrames.ActivePage := tsWegwerppallet;
+  pcFrames.ActivePage := tsKlantinstellingen;
   ZetLinkseKnopGrijs(2)
 end;
 
Index: PlanScan/Main.dfm
===================================================================
diff -u -r363 -r365
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 363)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 365)
@@ -152,7 +152,7 @@
       Top = 0
       Width = 926
       Height = 408
-      ActivePage = tsDnaCodes
+      ActivePage = tsKlantinstellingen
       Align = alClient
       TabOrder = 0
       object tsDnaCodes: TTabSheet
@@ -245,6 +245,36 @@
           end
         end
       end
+      object tsKlantinstellingen: TTabSheet
+        Caption = 'tsKlantinstellingen'
+        ImageIndex = 2
+        TabVisible = False
+        ExplicitTop = 24
+        ExplicitHeight = 380
+        inline frmKlantinstellingen: TfrmKlantinstellingen
+          Left = 0
+          Top = 0
+          Width = 918
+          Height = 398
+          Align = alClient
+          TabOrder = 0
+          ExplicitWidth = 926
+          ExplicitHeight = 408
+          inherited dbgGebruikers: TDBGrid
+            Width = 791
+            Height = 398
+          end
+          inherited Panel1: TPanel
+            Left = 791
+            Height = 398
+            ExplicitLeft = 799
+            ExplicitHeight = 408
+            inherited btnKlantinstellingenToevoegen: TButton
+              OnClick = nil
+            end
+          end
+        end
+      end
     end
   end
 end