Index: ProScan/UI/OnderdelenScherm.dfm
===================================================================
diff -u
--- ProScan/UI/OnderdelenScherm.dfm	(revision 0)
+++ ProScan/UI/OnderdelenScherm.dfm	(revision 677)
@@ -0,0 +1,62 @@
+inherited fmOnderdelenScherm: TfmOnderdelenScherm
+  ActiveControl = edtToelevering
+  Caption = 'fmOnderdelenScherm'
+  OnActivate = FormActivate
+  ExplicitWidth = 480
+  ExplicitHeight = 640
+  PixelsPerInch = 96
+  TextHeight = 19
+  object lblGeefToelevering: TLabel [0]
+    Left = 115
+    Top = 264
+    Width = 267
+    Height = 39
+    Caption = 'Geef toelevering in'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -32
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object edtToelevering: TEdit [3]
+    Left = 66
+    Top = 321
+    Width = 345
+    Height = 47
+    Alignment = taCenter
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -32
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 2
+    OnKeyUp = edtToeleveringKeyUp
+  end
+  object btnGenereerTbp: TButton [4]
+    Left = 66
+    Top = 392
+    Width = 345
+    Height = 81
+    Caption = 'Genereer TBP'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -32
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ImageIndex = 0
+    ParentFont = False
+    TabOrder = 3
+    OnClick = btnGenereerTbpClick
+  end
+  inherited alAlgemeen: TActionList
+    inherited actVolgende: TAction
+      OnExecute = actVolgendeExecute
+    end
+    inherited actHome: TAction
+      OnExecute = actHomeExecute
+    end
+  end
+end
Index: ProScan/UI/OnderdelenScherm.pas
===================================================================
diff -u
--- ProScan/UI/OnderdelenScherm.pas	(revision 0)
+++ ProScan/UI/OnderdelenScherm.pas	(revision 677)
@@ -0,0 +1,85 @@
+unit OnderdelenScherm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, System.IniFiles, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
+  Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Imaging.pngimage;
+
+type
+  TfmOnderdelenScherm = class(TfmDrieKnoppenScherm)
+    lblGeefToelevering: TLabel;
+    edtToelevering: TEdit;
+    btnGenereerTbp: TButton;
+    procedure FormShow(Sender: TObject);
+    procedure actHomeExecute(Sender: TObject);
+    procedure actVolgendeExecute(Sender: TObject);
+    procedure edtToeleveringKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure btnGenereerTbpClick(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
+  private
+    procedure SetContext;
+    procedure SetModus(GescandeInput: string);
+    function ValideerPalletCode(GescandeInput: string): boolean;
+  public
+    { Public declarations }
+  end;
+
+var
+  fmOnderdelenScherm: TfmOnderdelenScherm;
+
+implementation
+
+uses
+  UiContext, Agent, ProScanMain, StrUtils, CommonFunctions;
+
+{$R *.dfm}
+
+procedure TfmOnderdelenScherm.actHomeExecute(Sender: TObject);
+begin
+  inherited;
+  PostMessage(Self.Handle,WM_Close,0,0);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
+end;
+
+procedure TfmOnderdelenScherm.actVolgendeExecute(Sender: TObject);
+var
+  fAgent: TAgent;
+begin
+  Self.ModalResult := mrDnaCode;
+
+  PostMessage(Self.Handle,WM_Close,0,0);
+  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
+end;
+
+procedure TfmOnderdelenScherm.edtToeleveringKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  SetContext;
+  if Key = VK_RETURN then begin
+    actVolgende.Execute;
+    Key := 0;
+  end;
+end;
+
+procedure TfmOnderdelenScherm.FormActivate(Sender: TObject);
+begin
+  inherited;
+  ActiveControl := edtToelevering;
+end;
+
+procedure TfmOnderdelenScherm.FormShow(Sender: TObject);
+begin
+  btnLinksOnder.Action := nil;
+  btnCentraalOnder.Action := actHome;
+  btnRechtsOnder.Action := actVolgende;
+  edtToelevering.Text := '';
+  edtToelevering.SetFocus;
+  SetContext;
+  inherited;
+end;
+
+end.