Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r68 -r76
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 68)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 76)
@@ -29,14 +29,14 @@
 implementation
 
 uses
-  DnaCodeService;
+  DnaCodeService, UiContext;
 
 {$R *.dfm}
 
 procedure TfmPalletScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
-  //
+  Self.ModalResult := mrHome;
 end;
 
 procedure TfmPalletScherm.actVolgendeExecute(Sender: TObject);
@@ -47,7 +47,9 @@
   Header: RequestHeader;
   fZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest;
   fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
+  fPalletGevalideerd: boolean;
 begin
+  fPalletGevalideerd := false;
   Service := DnaCodeService.GetDnaCodeServiceSoap();
 
   // pallet code valideren
@@ -62,12 +64,12 @@
     fValideerPalletCodeResponse := Service.ValideerPalletCode(fValideerPalletCodeRequest);
     try
       if fValideerPalletCodeResponse.Header.Status <> '200' then begin
-        Self.ModalResult := mrRetry;
+        Self.ModalResult := mrPallet;
         ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Scan opnieuw');
         edtPallet.Text := '';
         SetContext;
       end else begin
-        Self.ModalResult := mrOk;
+        fPalletGevalideerd := true;
       end;
     finally
       fValideerPalletCodeResponse.Free;
@@ -77,7 +79,7 @@
   end;
 
   //checken of pallet in gebruik is indien het vorige geslaagd is
-  if Self.ModalResult = mrOk then begin
+  if fPalletGevalideerd then begin
     fZoekViaPalletCodeRequest := ZoekViaPalletCodeRequest.Create;
     Header := RequestHeader.Create;
     try
@@ -89,16 +91,19 @@
       fZoekViaPalletCodeResponse := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
       try
         if fZoekViaPalletCodeResponse.Header.Status = '200' then
-          Self.ModalResult := mrNo
+          Self.ModalResult := mrBestaandePallet
         else
-          Self.ModalResult := mrOk;
+          Self.ModalResult := mrDnaCode;
       finally
         fZoekViaPalletCodeResponse.Free;
       end;
     finally
       fZoekViaPalletCodeRequest.Free;
     end;
 
+  end else begin
+    ToonPopupScherm('Pallet kon niet gevalideerd worden', 'Scan opnieuw');
+    Self.ModalResult := mrPallet;
   end;
 
 end;