Index: AAPClient/UI/BestaandePalletScherm.pas
===================================================================
diff -u -r68 -r77
--- AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 68)
+++ AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 77)
@@ -15,6 +15,8 @@
     procedure FormShow(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
+    procedure btnExtraToeleveringClick(Sender: TObject);
+    procedure btnReworkClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -26,17 +28,32 @@
 
 implementation
 
+uses
+  UiContext;
+
 {$R *.dfm}
 
 procedure TfmBestaandePalletScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
-  //
+  Self.ModalResult := mrHome;
 end;
 
 procedure TfmBestaandePalletScherm.actPalletExecute(Sender: TObject);
 begin
   inherited;
+  Self.ModalResult := mrPallet;
+end;
+
+procedure TfmBestaandePalletScherm.btnExtraToeleveringClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrDnaCode;
+end;
+
+procedure TfmBestaandePalletScherm.btnReworkClick(Sender: TObject);
+begin
+  inherited;
   //
 end;