Index: AAPClient/UI/BestaandePalletScherm.pas
===================================================================
diff -u -r205 -r206
--- AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 205)
+++ AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 206)
@@ -87,13 +87,14 @@
 procedure TfmBestaandePalletScherm.imgExtraToeleveringClick(Sender: TObject);
 begin
   inherited;
+  UiContext.Toelevering := '';
   Self.ModalResult := mrDnaCode;
 end;
 
 procedure TfmBestaandePalletScherm.imgHuidigeToeleveringClick(Sender: TObject);
 begin
   inherited;
-  ShowMessage('doet nog niets');
+  Self.ModalResult := mrDnaCode;
 end;
 
 procedure TfmBestaandePalletScherm.imgRechtsOnderClick(Sender: TObject);
@@ -109,7 +110,6 @@
     UiContext.Toelevering := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet).DnaCodes[0].Toelevering;
   end else if (BepaalAantalToeleveringenOpPallet(UiContext.Pallet) > 1) then begin
     UiContext.Toelevering := '';
-
   end;
 
   Self.ModalResult := mrDnaCode;