Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r676 -r679
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 676)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 679)
@@ -20,8 +20,10 @@
     procedure edtPalletKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
     procedure btnGenereerTbpClick(Sender: TObject);
+    procedure btnOnderdelenClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
   private
+    procedure ResetPopups;
     procedure SetContext;
     procedure SetModus(GescandeInput: string);
     function ValideerPalletCode(GescandeInput: string): boolean;
@@ -50,20 +52,19 @@
 var
   fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
   fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
-  fPalletGevalideerd: boolean;
   fAgent: TAgent;
 begin
   SetModus(edtPallet.Text);
 
-  fPalletGevalideerd := false;
-  if not (UiContext.Modus = modusKAD) then
-    fPalletGevalideerd := ValideerPalletCode(edtPallet.Text);
-
-  //checken of pallet in gebruik is indien het vorige geslaagd is
-  if fPalletGevalideerd and not(UiContext.Modus = modusKAD) and not(UiContext.Modus = modusVHOSS ) then begin
-    if (UiContext.MoetTbpCodeGenereren = true) then
-      edtPallet.Text := '000000'; // Kleine hack om hieronder een foute statuscode te geven
-    fAgent := TAgent.Create(UiContext);
+  if (UiContext.MoetTbpCodeGenereren = true) then begin
+	ResetPopups;
+	Self.ModalResult := mrDnaCode;
+  end else if (UiContext.Modus = modusKAD) then begin
+    Self.ModalResult := mrDnaCode;
+  end else if (UiContext.Modus = modusVHOSS) then begin
+    Self.ModalResult := mrDnaCode;
+  end else if (ValideerPalletCode(edtPallet.Text) = true) then begin
+	fAgent := TAgent.Create(UiContext);
     fZoekViaPalletCodeResponse := fAgent.ZoekViaPalletCode(edtPallet.Text);
     fAgent.Free;
     try
@@ -89,20 +90,11 @@
     finally
       fZoekViaPalletCodeResponse.Free;
     end;
-    //popups resetten
-    UiContext.IsDirecteLeveringPopupGetoond := false;
-    UiContext.IsWegwerpPalletPopupGetoond := false;
-    UiContext.IsSSTPopupGetoond := false;
-    UiContext.IsExportPopupGetoond := false;
-    UiContext.IsBlumXsPopupGetoond := false;
-    UiContext.InternVhossId := '';
-  end else if (UiContext.Modus = modusKAD) then begin
-    Self.ModalResult := mrDnaCode;
-  end else if (UiContext.Modus = modusVHOSS) then begin
-    Self.ModalResult := mrDnaCode;
+	ResetPopups;
   end else begin
     Self.ModalResult := mrPallet;
   end;
+
   PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
@@ -116,7 +108,7 @@
   result := false;
 
   if (UiContext.MoetTbpCodeGenereren) then begin
-    result := true;
+	result := true;
   end else begin
     fAgent := TAgent.Create(UiContext);
     fValideerPalletCodeResponse := fAgent.ValideerPalletCode(edtPallet.Text);
@@ -136,6 +128,15 @@
   end;
 end;
 
+procedure TfmPalletScherm.ResetPopups;
+begin
+  UiContext.IsDirecteLeveringPopupGetoond := false;
+  UiContext.IsWegwerpPalletPopupGetoond := false;
+  UiContext.IsSSTPopupGetoond := false;
+  UiContext.IsExportPopupGetoond := false;
+  UiContext.IsBlumXsPopupGetoond := false;
+  UiContext.InternVhossId := '';
+end;
 
 procedure TfmPalletScherm.btnGenereerTbpClick(Sender: TObject);
 begin
@@ -146,6 +147,14 @@
   actVolgendeExecute(Self);
 end;
 
+procedure TfmPalletScherm.btnOnderdelenClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrOnderdelen;
+  PostMessage(Self.Handle,WM_Close,0,0);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+end;
+
 procedure TfmPalletScherm.edtPalletKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
@@ -193,3 +202,4 @@
 end;
 
 end.
+
Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r669 -r679
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 669)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 679)
@@ -14,6 +14,7 @@
   mrInfoLog             = 106;
   mrHernoemPallet       = 107;
   mrDnaCodeReedsGescand = 108;
+  mrOnderdelen          = 109;
   modusDefault          = 1;
   modusKAD              = 2;
   modusVHOSS            = 3;
Index: ProScan/ProScanMain.pas
===================================================================
diff -u -r643 -r679
--- ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 643)
+++ ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 679)
@@ -29,7 +29,7 @@
 implementation
 
 uses
-  LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
+  OnderdelenScherm, LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
   BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm,
   DimmerForm, DnaCodeReedsGescandScherm, Agent;
 
@@ -114,6 +114,7 @@
       mrDnaCode             : fHuidigScherm := TfmDnaCodeScherm.Create(pnlMain);
       mrInfoLog             : fHuidigScherm := TfmInfoLogScherm.Create(pnlMain);
       mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(pnlMain);
+      mrOnderdelen          : fHuidigScherm := TfmOnderdelenScherm.Create(pnlMain);
     end;
 
     fHuidigScherm.Parent := pnlMain;
Index: ProScan/UI/OnderdelenScherm.pas
===================================================================
diff -u -r678 -r679
--- ProScan/UI/OnderdelenScherm.pas	(.../OnderdelenScherm.pas)	(revision 678)
+++ ProScan/UI/OnderdelenScherm.pas	(.../OnderdelenScherm.pas)	(revision 679)
@@ -55,6 +55,9 @@
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
       UiContext.Toelevering := edtToelevering.Text;
       GenereerTbpCodeVoorOnderdelen;
+    end else begin
+      ToonPopupScherm(fZoekViaToeleveringResponse.Header.Omschrijving, 'Probeer opnieuw');
+      Self.ModalResult := mrOnderdelen;
     end;
   finally;
     fZoekViaToeleveringResponse.Free;