Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dproj
===================================================================
diff -u -r573 -r579
--- VerpakkingsDefinitie/VerpakkingsDefinitie.dproj	(.../VerpakkingsDefinitie.dproj)	(revision 573)
+++ VerpakkingsDefinitie/VerpakkingsDefinitie.dproj	(.../VerpakkingsDefinitie.dproj)	(revision 579)
@@ -119,6 +119,7 @@
 				<FormType>dfm</FormType>
 			</DCCReference>
 			<DCCReference Include="UI\CheckCombo.pas"/>
+			<DCCReference Include="WS\UI_Data.pas"/>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
 				<CfgParent>Base</CfgParent>
Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r578 -r579
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 578)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 579)
@@ -4,7 +4,7 @@
 
 uses SysUtils, System.Classes,
   ObserverPattern, ApplicationContext,
-  SelectService, OptiServerService;
+  SelectService, OptiServerService, UI_Data;
 
 // Resource strings are stored as resources and linked into the executable or
 // library so that they can be modified without recompiling the program.
@@ -19,6 +19,10 @@
   private
     FSelectServerSoap: SelectService.ProdSelectServerSoap;
     FOptiBoxServerSoap: OptiServerService.OptiBoxServerSoap;
+    function GeefUiConfigLink(UserContext: TUserContext; UiInstellingenContext: TUiInstellingenContext): string;
+    procedure RegistreerMislukteOpzoeking(UiInstellingenContext: TUiInstellingenContext;
+      pxStatusObj: OptiServerService.pxStatus); overload;
+    procedure RegistreerLoadResultaten(UiInstellingenContext: TUiInstellingenContext; Instellingen: UI_Data.IXMLOptiBoxType);
     function GeefBruikbareLijnenUitXMLDataSet(DataSetXml: string): TStringList;
     procedure RegistreerZoekResultaten(ProductsContext: TProductsContext; DataSet: string); overload;
     procedure RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: SelectService.pxStatus); overload;
@@ -30,6 +34,7 @@
       ProductDetailContext: TProductDetailContext): string;
   public
     Constructor Create();
+    procedure LaadUIInstellingen(UserContext: TUserContext; UiInstellingenContext: TUiInstellingenContext);
     procedure ZoekOp(UserContext: TUserContext; ProductsContext: TProductsContext; Zoekmethode: TZoekMethode; Zoek: string;
       KLNr: string; LevNr: string; StockType: string; Taal: string);
     procedure ZoekProductDataMetProductNr(ProductNr: Integer; UserContext: TUserContext;
@@ -47,6 +52,76 @@
   FOptiBoxServerSoap := OptiServerService.GetOptiBoxServerSoap(false, OPTI_SERVER_URL, nil);
 end;
 
+function TProductsAgent.GeefUiConfigLink(UserContext: TUserContext; UiInstellingenContext: TUiInstellingenContext): string;
+var
+  ZoekData: OptiServerService.GetUIResource;
+  GetUIResourceResponseObj: OptiServerService.GetUIResourceResponse;
+begin
+  ZoekData := nil;
+  try
+    // Request
+    ZoekData := OptiServerService.GetUIResource.Create();
+    ZoekData.SessionKey := UserContext.SessionKey;
+
+    GetUIResourceResponseObj := FOptiBoxServerSoap.GetUIResource(ZoekData);
+
+    // Response
+    if GetUIResourceResponseObj.GetUIResourceResult <> nil then
+      // Mislukt
+      RegistreerMislukteOpzoeking(UiInstellingenContext, GetUIResourceResponseObj.GetUIResourceResult);
+
+    // Gelukt, bruikbare informatie uit antwoord halen
+    if GetUIResourceResponseObj.varUIResource <> nil then
+      Result := GetUIResourceResponseObj.varUIResource.ValuesURL
+    else
+      Result := ''
+
+  finally
+    ZoekData.Free();
+  end;
+end;
+
+procedure TProductsAgent.RegistreerMislukteOpzoeking(UiInstellingenContext: TUiInstellingenContext;
+  pxStatusObj: OptiServerService.pxStatus);
+begin
+  // Ander velden leegmaken
+  UiInstellingenContext.Instellingen := nil;
+
+  UiInstellingenContext.IsOK := pxStatusObj.IsOK;
+  UiInstellingenContext.ErrorMessage := pxStatusObj.Message_;
+  UiInstellingenContext.InternalErrorMessage := pxStatusObj.InternalMessage;
+
+  UiInstellingenContext.NotifyChanged();
+end;
+
+procedure TProductsAgent.LaadUIInstellingen(UserContext: TUserContext; UiInstellingenContext: TUiInstellingenContext);
+var
+  UiConfigLink: string;
+  OptiBox: UI_Data.IXMLOptiBoxType;
+begin
+  UiConfigLink := GeefUiConfigLink(UserContext, UiInstellingenContext);
+
+  if UiConfigLink = '' then
+    exit; // Return error response from previous call
+
+  OptiBox := LoadOptiBox(UiConfigLink);
+
+  RegistreerLoadResultaten(UiInstellingenContext, OptiBox);
+end;
+
+procedure TProductsAgent.RegistreerLoadResultaten(UiInstellingenContext: TUiInstellingenContext;
+  Instellingen: UI_Data.IXMLOptiBoxType);
+begin
+  // Ander velden leegmaken
+  UiInstellingenContext.IsOK := True;
+  UiInstellingenContext.ErrorMessage := '';
+  UiInstellingenContext.InternalErrorMessage := '';
+
+  UiInstellingenContext.Instellingen := Instellingen;
+
+  UiInstellingenContext.NotifyChanged();
+end;
+
 procedure TProductsAgent.ZoekOp(UserContext: TUserContext; ProductsContext: TProductsContext; Zoekmethode: TZoekMethode;
   Zoek: string; KLNr: string; LevNr: string; StockType: string; Taal: string);
 var
@@ -181,7 +256,7 @@
         LijnenProduct.Add('<Select xmlns="">'); // Begin XML tag zelf toevoegen
       end
       else
-      // Standaard productlijnen toevoegen
+        // Standaard productlijnen toevoegen
         LijnenProduct.Add(Lijn);
     end;
   finally
Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dpr
===================================================================
diff -u -r573 -r579
--- VerpakkingsDefinitie/VerpakkingsDefinitie.dpr	(.../VerpakkingsDefinitie.dpr)	(revision 573)
+++ VerpakkingsDefinitie/VerpakkingsDefinitie.dpr	(.../VerpakkingsDefinitie.dpr)	(revision 579)
@@ -18,7 +18,8 @@
   GevondenProductenScherm in 'UI\GevondenProductenScherm.pas' {FormGevondenProducten},
   OptiServerService in 'WS\OptiServerService.pas',
   ProductDetailScherm in 'UI\ProductDetailScherm.pas' {FormProductDetail},
-  CheckCombo in 'UI\CheckCombo.pas';
+  CheckCombo in 'UI\CheckCombo.pas',
+  UI_Data in 'WS\UI_Data.pas';
 
 {$R *.res}
 
Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r571 -r579
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 571)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 579)
@@ -9,8 +9,8 @@
 
 uses
   ObserverPattern,
-  System.Generics.Collections,
-  OptiServerService, SysUtils;
+  System.Generics.Collections, SysUtils,
+  OptiServerService, UI_Data;
 
 // SUB CONTEXTS: klassen die overeenkomen met bepaalde sub-context (bv. alles gerelateerd met authenticatie).
 
@@ -33,6 +33,22 @@
     property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage;
   end;
 
+  // - UI instellingen
+  TUiInstellingenContext = class(TSubject)
+  private
+    FInstellingen: UI_Data.IXMLOptiBoxType;
+
+    FIsOK: Boolean;
+    FErrorMessage: string;
+    FInternalErrorMessage: string;
+  public
+    procedure NotifyChanged();
+    property Instellingen: UI_Data.IXMLOptiBoxType read FInstellingen write FInstellingen;
+    property IsOK: Boolean read FIsOK write FIsOK;
+    property ErrorMessage: string read FErrorMessage write FErrorMessage;
+    property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage;
+  end;
+
   // - Product Selection
   TProductInformatie = class
   private
@@ -102,11 +118,13 @@
   TApplicationContext = class
   private
     FUserContext: TUserContext;
+    FUiInstellingenContext: TUiInstellingenContext;
     FProductsContext: TProductsContext;
     FProductDetailContext: TProductDetailContext;
   public
     constructor Create();
     property UserContext: TUserContext read FUserContext write FUserContext;
+    property UiInstellingenContext: TUiInstellingenContext read FUiInstellingenContext write FUiInstellingenContext;
     property ProductsContext: TProductsContext read FProductsContext write FProductsContext;
     property ProductDetailContext: TProductDetailContext read FProductDetailContext write FProductDetailContext;
   end;
@@ -119,6 +137,12 @@
   self.Change();
 end;
 
+// UiInstellingen
+procedure TUiInstellingenContext.NotifyChanged();
+begin
+  self.Change();
+end;
+
 // PRODUCT
 constructor TProductsContext.Create();
 begin
@@ -199,6 +223,7 @@
 constructor TApplicationContext.Create();
 begin
   FUserContext := TUserContext.Create();
+  FUiInstellingenContext := TUiInstellingenContext.Create();
   FProductsContext := TProductsContext.Create();
   FProductDetailContext := TProductDetailContext.Create();
 end;
Index: VerpakkingsDefinitie/WS/UI_Data.pas
===================================================================
diff -u
--- VerpakkingsDefinitie/WS/UI_Data.pas	(revision 0)
+++ VerpakkingsDefinitie/WS/UI_Data.pas	(revision 579)
@@ -0,0 +1,957 @@
+
+{************************************************************************}
+{                                                                        }
+{                            XML Data Binding                            }
+{                                                                        }
+{         Generated on: 19/08/2021 14:52:59                              }
+{       Generated from: http://cachedev2010/csp/vhintra/UI_OptiBox.XML   }
+{                                                                        }
+{************************************************************************}
+
+unit UI_Data;
+
+interface
+
+uses xmldom, XMLDoc, XMLIntf;
+
+type
+
+{ Forward Decls }
+
+  IXMLOptiBoxType = interface;
+  IXMLOptiType = interface;
+  IXMLItemType = interface;
+  IXMLPositieType = interface;
+  IXMLPlaatsingType = interface;
+  IXMLRichtingType = interface;
+  IXMLSnijPrioriteitType = interface;
+  IXMLPPSPrioriteitType = interface;
+  IXMLPPSOutputType = interface;
+  IXMLPPSGroepType = interface;
+  IXMLItemType2 = interface;
+  IXMLMachineIDType = interface;
+  IXMLWerkPostType = interface;
+  IXMLBatchExcludeListType = interface;
+  IXMLBlockActionType = interface;
+  IXMLWPTBX_SettingsType = interface;
+
+{ IXMLOptiBoxType }
+
+  IXMLOptiBoxType = interface(IXMLNode)
+    ['{4D031054-7AA4-466D-97C5-2929349A1A03}']
+    { Property Accessors }
+    function Get_OptiType: IXMLOptiType;
+    function Get_Positie: IXMLPositieType;
+    function Get_Plaatsing: IXMLPlaatsingType;
+    function Get_Richting: IXMLRichtingType;
+    function Get_SnijPrioriteit: IXMLSnijPrioriteitType;
+    function Get_PPSPrioriteit: IXMLPPSPrioriteitType;
+    function Get_PPSOutput: IXMLPPSOutputType;
+    function Get_PPSGroep: IXMLPPSGroepType;
+    function Get_MachineID: IXMLMachineIDType;
+    function Get_WerkPost: IXMLWerkPostType;
+    function Get_BatchExcludeList: IXMLBatchExcludeListType;
+    function Get_BlockAction: IXMLBlockActionType;
+    function Get_WPTBX_Settings: IXMLWPTBX_SettingsType;
+    { Methods & Properties }
+    property OptiType: IXMLOptiType read Get_OptiType;
+    property Positie: IXMLPositieType read Get_Positie;
+    property Plaatsing: IXMLPlaatsingType read Get_Plaatsing;
+    property Richting: IXMLRichtingType read Get_Richting;
+    property SnijPrioriteit: IXMLSnijPrioriteitType read Get_SnijPrioriteit;
+    property PPSPrioriteit: IXMLPPSPrioriteitType read Get_PPSPrioriteit;
+    property PPSOutput: IXMLPPSOutputType read Get_PPSOutput;
+    property PPSGroep: IXMLPPSGroepType read Get_PPSGroep;
+    property MachineID: IXMLMachineIDType read Get_MachineID;
+    property WerkPost: IXMLWerkPostType read Get_WerkPost;
+    property BatchExcludeList: IXMLBatchExcludeListType read Get_BatchExcludeList;
+    property BlockAction: IXMLBlockActionType read Get_BlockAction;
+    property WPTBX_Settings: IXMLWPTBX_SettingsType read Get_WPTBX_Settings;
+  end;
+
+{ IXMLOptiType }
+
+  IXMLOptiType = interface(IXMLNodeCollection)
+    ['{AA88B0C7-629F-4029-B8BC-99871B242EDE}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType;
+    { Methods & Properties }
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
+  end;
+
+{ IXMLItemType }
+
+  IXMLItemType = interface(IXMLNode)
+    ['{23A3F03E-9A7E-4A9E-8E67-3A8AD6A7FB61}']
+    { Property Accessors }
+    function Get_Key: UnicodeString;
+    procedure Set_Key(Value: UnicodeString);
+    { Methods & Properties }
+    property Key: UnicodeString read Get_Key write Set_Key;
+  end;
+
+{ IXMLPositieType }
+
+  IXMLPositieType = interface(IXMLNodeCollection)
+    ['{8BD826AD-F6C1-4C08-8FF3-B27EE6075D1B}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType;
+    { Methods & Properties }
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
+  end;
+
+{ IXMLPlaatsingType }
+
+  IXMLPlaatsingType = interface(IXMLNodeCollection)
+    ['{051C50C3-DD53-4783-9644-CB9B573C4991}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType;
+    { Methods & Properties }
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
+  end;
+
+{ IXMLRichtingType }
+
+  IXMLRichtingType = interface(IXMLNodeCollection)
+    ['{9B27A863-1A3B-4F86-86C0-4043C7C8B1CF}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType;
+    { Methods & Properties }
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
+  end;
+
+{ IXMLSnijPrioriteitType }
+
+  IXMLSnijPrioriteitType = interface(IXMLNodeCollection)
+    ['{B0126BFF-04D2-46CB-804E-2FAE99D0D2A9}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): Integer;
+    { Methods & Properties }
+    function Add(const Item: Integer): IXMLNode;
+    function Insert(const Index: Integer; const Item: Integer): IXMLNode;
+    property Item[Index: Integer]: Integer read Get_Item; default;
+  end;
+
+{ IXMLPPSPrioriteitType }
+
+  IXMLPPSPrioriteitType = interface(IXMLNodeCollection)
+    ['{C3167967-7699-40C9-A023-0AFE94CBE0CD}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType;
+    { Methods & Properties }
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
+  end;
+
+{ IXMLPPSOutputType }
+
+  IXMLPPSOutputType = interface(IXMLNodeCollection)
+    ['{530D4D8D-A7D6-4442-8724-2E246A46C3AE}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): Integer;
+    { Methods & Properties }
+    function Add(const Item: Integer): IXMLNode;
+    function Insert(const Index: Integer; const Item: Integer): IXMLNode;
+    property Item[Index: Integer]: Integer read Get_Item; default;
+  end;
+
+{ IXMLPPSGroepType }
+
+  IXMLPPSGroepType = interface(IXMLNodeCollection)
+    ['{4AE6A370-557E-4203-88E7-46FE0518C73B}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType2;
+    { Methods & Properties }
+    function Add: IXMLItemType2;
+    function Insert(const Index: Integer): IXMLItemType2;
+    property Item[Index: Integer]: IXMLItemType2 read Get_Item; default;
+  end;
+
+{ IXMLItemType2 }
+
+  IXMLItemType2 = interface(IXMLNodeCollection)
+    ['{B97D49A4-4531-4683-945C-54AA2F92407D}']
+    { Property Accessors }
+    function Get_Key: UnicodeString;
+    function Get_Oms: UnicodeString;
+    function Get_Caption: UnicodeString;
+    function Get_Item(Index: Integer): IXMLItemType;
+    procedure Set_Key(Value: UnicodeString);
+    procedure Set_Oms(Value: UnicodeString);
+    procedure Set_Caption(Value: UnicodeString);
+    { Methods & Properties }
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+    property Key: UnicodeString read Get_Key write Set_Key;
+    property Oms: UnicodeString read Get_Oms write Set_Oms;
+    property Caption: UnicodeString read Get_Caption write Set_Caption;
+    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
+  end;
+
+{ IXMLMachineIDType }
+
+  IXMLMachineIDType = interface(IXMLNodeCollection)
+    ['{5109C49A-3E2A-48A2-B180-C6B4364AD794}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType;
+    { Methods & Properties }
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
+  end;
+
+{ IXMLWerkPostType }
+
+  IXMLWerkPostType = interface(IXMLNodeCollection)
+    ['{245207C8-0640-422C-891D-6B9D10A4031F}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType;
+    { Methods & Properties }
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
+  end;
+
+{ IXMLBatchExcludeListType }
+
+  IXMLBatchExcludeListType = interface(IXMLNode)
+    ['{7C641280-0630-423A-8F5E-3D134F0F011C}']
+    { Property Accessors }
+    function Get_Item: UnicodeString;
+    procedure Set_Item(Value: UnicodeString);
+    { Methods & Properties }
+    property Item: UnicodeString read Get_Item write Set_Item;
+  end;
+
+{ IXMLBlockActionType }
+
+  IXMLBlockActionType = interface(IXMLNodeCollection)
+    ['{21A123CB-11D0-495C-86FE-7B36B46307CC}']
+    { Property Accessors }
+    function Get_Item(Index: Integer): IXMLItemType2;
+    { Methods & Properties }
+    function Add: IXMLItemType2;
+    function Insert(const Index: Integer): IXMLItemType2;
+    property Item[Index: Integer]: IXMLItemType2 read Get_Item; default;
+  end;
+
+{ IXMLWPTBX_SettingsType }
+
+  IXMLWPTBX_SettingsType = interface(IXMLNode)
+    ['{C5C45167-14E1-4867-AE3E-27EAA7FC5110}']
+    { Property Accessors }
+    function Get_RefreshInterval: Integer;
+    procedure Set_RefreshInterval(Value: Integer);
+    { Methods & Properties }
+    property RefreshInterval: Integer read Get_RefreshInterval write Set_RefreshInterval;
+  end;
+
+{ Forward Decls }
+
+  TXMLOptiBoxType = class;
+  TXMLOptiType = class;
+  TXMLItemType = class;
+  TXMLPositieType = class;
+  TXMLPlaatsingType = class;
+  TXMLRichtingType = class;
+  TXMLSnijPrioriteitType = class;
+  TXMLPPSPrioriteitType = class;
+  TXMLPPSOutputType = class;
+  TXMLPPSGroepType = class;
+  TXMLItemType2 = class;
+  TXMLMachineIDType = class;
+  TXMLWerkPostType = class;
+  TXMLBatchExcludeListType = class;
+  TXMLBlockActionType = class;
+  TXMLWPTBX_SettingsType = class;
+
+{ TXMLOptiBoxType }
+
+  TXMLOptiBoxType = class(TXMLNode, IXMLOptiBoxType)
+  protected
+    { IXMLOptiBoxType }
+    function Get_OptiType: IXMLOptiType;
+    function Get_Positie: IXMLPositieType;
+    function Get_Plaatsing: IXMLPlaatsingType;
+    function Get_Richting: IXMLRichtingType;
+    function Get_SnijPrioriteit: IXMLSnijPrioriteitType;
+    function Get_PPSPrioriteit: IXMLPPSPrioriteitType;
+    function Get_PPSOutput: IXMLPPSOutputType;
+    function Get_PPSGroep: IXMLPPSGroepType;
+    function Get_MachineID: IXMLMachineIDType;
+    function Get_WerkPost: IXMLWerkPostType;
+    function Get_BatchExcludeList: IXMLBatchExcludeListType;
+    function Get_BlockAction: IXMLBlockActionType;
+    function Get_WPTBX_Settings: IXMLWPTBX_SettingsType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLOptiType }
+
+  TXMLOptiType = class(TXMLNodeCollection, IXMLOptiType)
+  protected
+    { IXMLOptiType }
+    function Get_Item(Index: Integer): IXMLItemType;
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLItemType }
+
+  TXMLItemType = class(TXMLNode, IXMLItemType)
+  protected
+    { IXMLItemType }
+    function Get_Key: UnicodeString;
+    procedure Set_Key(Value: UnicodeString);
+  end;
+
+{ TXMLPositieType }
+
+  TXMLPositieType = class(TXMLNodeCollection, IXMLPositieType)
+  protected
+    { IXMLPositieType }
+    function Get_Item(Index: Integer): IXMLItemType;
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLPlaatsingType }
+
+  TXMLPlaatsingType = class(TXMLNodeCollection, IXMLPlaatsingType)
+  protected
+    { IXMLPlaatsingType }
+    function Get_Item(Index: Integer): IXMLItemType;
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLRichtingType }
+
+  TXMLRichtingType = class(TXMLNodeCollection, IXMLRichtingType)
+  protected
+    { IXMLRichtingType }
+    function Get_Item(Index: Integer): IXMLItemType;
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLSnijPrioriteitType }
+
+  TXMLSnijPrioriteitType = class(TXMLNodeCollection, IXMLSnijPrioriteitType)
+  protected
+    { IXMLSnijPrioriteitType }
+    function Get_Item(Index: Integer): Integer;
+    function Add(const Item: Integer): IXMLNode;
+    function Insert(const Index: Integer; const Item: Integer): IXMLNode;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLPPSPrioriteitType }
+
+  TXMLPPSPrioriteitType = class(TXMLNodeCollection, IXMLPPSPrioriteitType)
+  protected
+    { IXMLPPSPrioriteitType }
+    function Get_Item(Index: Integer): IXMLItemType;
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLPPSOutputType }
+
+  TXMLPPSOutputType = class(TXMLNodeCollection, IXMLPPSOutputType)
+  protected
+    { IXMLPPSOutputType }
+    function Get_Item(Index: Integer): Integer;
+    function Add(const Item: Integer): IXMLNode;
+    function Insert(const Index: Integer; const Item: Integer): IXMLNode;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLPPSGroepType }
+
+  TXMLPPSGroepType = class(TXMLNodeCollection, IXMLPPSGroepType)
+  protected
+    { IXMLPPSGroepType }
+    function Get_Item(Index: Integer): IXMLItemType2;
+    function Add: IXMLItemType2;
+    function Insert(const Index: Integer): IXMLItemType2;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLItemType2 }
+
+  TXMLItemType2 = class(TXMLNodeCollection, IXMLItemType2)
+  protected
+    { IXMLItemType2 }
+    function Get_Key: UnicodeString;
+    function Get_Oms: UnicodeString;
+    function Get_Caption: UnicodeString;
+    function Get_Item(Index: Integer): IXMLItemType;
+    procedure Set_Key(Value: UnicodeString);
+    procedure Set_Oms(Value: UnicodeString);
+    procedure Set_Caption(Value: UnicodeString);
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLMachineIDType }
+
+  TXMLMachineIDType = class(TXMLNodeCollection, IXMLMachineIDType)
+  protected
+    { IXMLMachineIDType }
+    function Get_Item(Index: Integer): IXMLItemType;
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLWerkPostType }
+
+  TXMLWerkPostType = class(TXMLNodeCollection, IXMLWerkPostType)
+  protected
+    { IXMLWerkPostType }
+    function Get_Item(Index: Integer): IXMLItemType;
+    function Add: IXMLItemType;
+    function Insert(const Index: Integer): IXMLItemType;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLBatchExcludeListType }
+
+  TXMLBatchExcludeListType = class(TXMLNode, IXMLBatchExcludeListType)
+  protected
+    { IXMLBatchExcludeListType }
+    function Get_Item: UnicodeString;
+    procedure Set_Item(Value: UnicodeString);
+  end;
+
+{ TXMLBlockActionType }
+
+  TXMLBlockActionType = class(TXMLNodeCollection, IXMLBlockActionType)
+  protected
+    { IXMLBlockActionType }
+    function Get_Item(Index: Integer): IXMLItemType2;
+    function Add: IXMLItemType2;
+    function Insert(const Index: Integer): IXMLItemType2;
+  public
+    procedure AfterConstruction; override;
+  end;
+
+{ TXMLWPTBX_SettingsType }
+
+  TXMLWPTBX_SettingsType = class(TXMLNode, IXMLWPTBX_SettingsType)
+  protected
+    { IXMLWPTBX_SettingsType }
+    function Get_RefreshInterval: Integer;
+    procedure Set_RefreshInterval(Value: Integer);
+  end;
+
+{ Global Functions }
+
+function GetOptiBox(Doc: IXMLDocument): IXMLOptiBoxType;
+function LoadOptiBox(const FileName: string): IXMLOptiBoxType;
+function NewOptiBox: IXMLOptiBoxType;
+
+const
+  TargetNamespace = '';
+
+implementation
+
+{ Global Functions }
+
+function GetOptiBox(Doc: IXMLDocument): IXMLOptiBoxType;
+begin
+  Result := Doc.GetDocBinding('OptiBox', TXMLOptiBoxType, TargetNamespace) as IXMLOptiBoxType;
+end;
+
+function LoadOptiBox(const FileName: string): IXMLOptiBoxType;
+begin
+  Result := LoadXMLDocument(FileName).GetDocBinding('OptiBox', TXMLOptiBoxType, TargetNamespace) as IXMLOptiBoxType;
+end;
+
+function NewOptiBox: IXMLOptiBoxType;
+begin
+  Result := NewXMLDocument.GetDocBinding('OptiBox', TXMLOptiBoxType, TargetNamespace) as IXMLOptiBoxType;
+end;
+
+{ TXMLOptiBoxType }
+
+procedure TXMLOptiBoxType.AfterConstruction;
+begin
+  RegisterChildNode('OptiType', TXMLOptiType);
+  RegisterChildNode('Positie', TXMLPositieType);
+  RegisterChildNode('Plaatsing', TXMLPlaatsingType);
+  RegisterChildNode('Richting', TXMLRichtingType);
+  RegisterChildNode('SnijPrioriteit', TXMLSnijPrioriteitType);
+  RegisterChildNode('PPSPrioriteit', TXMLPPSPrioriteitType);
+  RegisterChildNode('PPSOutput', TXMLPPSOutputType);
+  RegisterChildNode('PPSGroep', TXMLPPSGroepType);
+  RegisterChildNode('MachineID', TXMLMachineIDType);
+  RegisterChildNode('WerkPost', TXMLWerkPostType);
+  RegisterChildNode('BatchExcludeList', TXMLBatchExcludeListType);
+  RegisterChildNode('BlockAction', TXMLBlockActionType);
+  RegisterChildNode('WPTBX_Settings', TXMLWPTBX_SettingsType);
+  inherited;
+end;
+
+function TXMLOptiBoxType.Get_OptiType: IXMLOptiType;
+begin
+  Result := ChildNodes['OptiType'] as IXMLOptiType;
+end;
+
+function TXMLOptiBoxType.Get_Positie: IXMLPositieType;
+begin
+  Result := ChildNodes['Positie'] as IXMLPositieType;
+end;
+
+function TXMLOptiBoxType.Get_Plaatsing: IXMLPlaatsingType;
+begin
+  Result := ChildNodes['Plaatsing'] as IXMLPlaatsingType;
+end;
+
+function TXMLOptiBoxType.Get_Richting: IXMLRichtingType;
+begin
+  Result := ChildNodes['Richting'] as IXMLRichtingType;
+end;
+
+function TXMLOptiBoxType.Get_SnijPrioriteit: IXMLSnijPrioriteitType;
+begin
+  Result := ChildNodes['SnijPrioriteit'] as IXMLSnijPrioriteitType;
+end;
+
+function TXMLOptiBoxType.Get_PPSPrioriteit: IXMLPPSPrioriteitType;
+begin
+  Result := ChildNodes['PPSPrioriteit'] as IXMLPPSPrioriteitType;
+end;
+
+function TXMLOptiBoxType.Get_PPSOutput: IXMLPPSOutputType;
+begin
+  Result := ChildNodes['PPSOutput'] as IXMLPPSOutputType;
+end;
+
+function TXMLOptiBoxType.Get_PPSGroep: IXMLPPSGroepType;
+begin
+  Result := ChildNodes['PPSGroep'] as IXMLPPSGroepType;
+end;
+
+function TXMLOptiBoxType.Get_MachineID: IXMLMachineIDType;
+begin
+  Result := ChildNodes['MachineID'] as IXMLMachineIDType;
+end;
+
+function TXMLOptiBoxType.Get_WerkPost: IXMLWerkPostType;
+begin
+  Result := ChildNodes['WerkPost'] as IXMLWerkPostType;
+end;
+
+function TXMLOptiBoxType.Get_BatchExcludeList: IXMLBatchExcludeListType;
+begin
+  Result := ChildNodes['BatchExcludeList'] as IXMLBatchExcludeListType;
+end;
+
+function TXMLOptiBoxType.Get_BlockAction: IXMLBlockActionType;
+begin
+  Result := ChildNodes['BlockAction'] as IXMLBlockActionType;
+end;
+
+function TXMLOptiBoxType.Get_WPTBX_Settings: IXMLWPTBX_SettingsType;
+begin
+  Result := ChildNodes['WPTBX_Settings'] as IXMLWPTBX_SettingsType;
+end;
+
+{ TXMLOptiType }
+
+procedure TXMLOptiType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType;
+  inherited;
+end;
+
+function TXMLOptiType.Get_Item(Index: Integer): IXMLItemType;
+begin
+  Result := List[Index] as IXMLItemType;
+end;
+
+function TXMLOptiType.Add: IXMLItemType;
+begin
+  Result := AddItem(-1) as IXMLItemType;
+end;
+
+function TXMLOptiType.Insert(const Index: Integer): IXMLItemType;
+begin
+  Result := AddItem(Index) as IXMLItemType;
+end;
+
+{ TXMLItemType }
+
+function TXMLItemType.Get_Key: UnicodeString;
+begin
+  Result := AttributeNodes['Key'].Text;
+end;
+
+procedure TXMLItemType.Set_Key(Value: UnicodeString);
+begin
+  SetAttribute('Key', Value);
+end;
+
+{ TXMLPositieType }
+
+procedure TXMLPositieType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType;
+  inherited;
+end;
+
+function TXMLPositieType.Get_Item(Index: Integer): IXMLItemType;
+begin
+  Result := List[Index] as IXMLItemType;
+end;
+
+function TXMLPositieType.Add: IXMLItemType;
+begin
+  Result := AddItem(-1) as IXMLItemType;
+end;
+
+function TXMLPositieType.Insert(const Index: Integer): IXMLItemType;
+begin
+  Result := AddItem(Index) as IXMLItemType;
+end;
+
+{ TXMLPlaatsingType }
+
+procedure TXMLPlaatsingType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType;
+  inherited;
+end;
+
+function TXMLPlaatsingType.Get_Item(Index: Integer): IXMLItemType;
+begin
+  Result := List[Index] as IXMLItemType;
+end;
+
+function TXMLPlaatsingType.Add: IXMLItemType;
+begin
+  Result := AddItem(-1) as IXMLItemType;
+end;
+
+function TXMLPlaatsingType.Insert(const Index: Integer): IXMLItemType;
+begin
+  Result := AddItem(Index) as IXMLItemType;
+end;
+
+{ TXMLRichtingType }
+
+procedure TXMLRichtingType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType;
+  inherited;
+end;
+
+function TXMLRichtingType.Get_Item(Index: Integer): IXMLItemType;
+begin
+  Result := List[Index] as IXMLItemType;
+end;
+
+function TXMLRichtingType.Add: IXMLItemType;
+begin
+  Result := AddItem(-1) as IXMLItemType;
+end;
+
+function TXMLRichtingType.Insert(const Index: Integer): IXMLItemType;
+begin
+  Result := AddItem(Index) as IXMLItemType;
+end;
+
+{ TXMLSnijPrioriteitType }
+
+procedure TXMLSnijPrioriteitType.AfterConstruction;
+begin
+  ItemTag := 'Item';
+  ItemInterface := IXMLNode;
+  inherited;
+end;
+
+function TXMLSnijPrioriteitType.Get_Item(Index: Integer): Integer;
+begin
+  Result := List[Index].NodeValue;
+end;
+
+function TXMLSnijPrioriteitType.Add(const Item: Integer): IXMLNode;
+begin
+  Result := AddItem(-1);
+  Result.NodeValue := Item;
+end;
+
+function TXMLSnijPrioriteitType.Insert(const Index: Integer; const Item: Integer): IXMLNode;
+begin
+  Result := AddItem(Index);
+  Result.NodeValue := Item;
+end;
+
+{ TXMLPPSPrioriteitType }
+
+procedure TXMLPPSPrioriteitType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType;
+  inherited;
+end;
+
+function TXMLPPSPrioriteitType.Get_Item(Index: Integer): IXMLItemType;
+begin
+  Result := List[Index] as IXMLItemType;
+end;
+
+function TXMLPPSPrioriteitType.Add: IXMLItemType;
+begin
+  Result := AddItem(-1) as IXMLItemType;
+end;
+
+function TXMLPPSPrioriteitType.Insert(const Index: Integer): IXMLItemType;
+begin
+  Result := AddItem(Index) as IXMLItemType;
+end;
+
+{ TXMLPPSOutputType }
+
+procedure TXMLPPSOutputType.AfterConstruction;
+begin
+  ItemTag := 'Item';
+  ItemInterface := IXMLNode;
+  inherited;
+end;
+
+function TXMLPPSOutputType.Get_Item(Index: Integer): Integer;
+begin
+  Result := List[Index].NodeValue;
+end;
+
+function TXMLPPSOutputType.Add(const Item: Integer): IXMLNode;
+begin
+  Result := AddItem(-1);
+  Result.NodeValue := Item;
+end;
+
+function TXMLPPSOutputType.Insert(const Index: Integer; const Item: Integer): IXMLNode;
+begin
+  Result := AddItem(Index);
+  Result.NodeValue := Item;
+end;
+
+{ TXMLPPSGroepType }
+
+procedure TXMLPPSGroepType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType2);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType2;
+  inherited;
+end;
+
+function TXMLPPSGroepType.Get_Item(Index: Integer): IXMLItemType2;
+begin
+  Result := List[Index] as IXMLItemType2;
+end;
+
+function TXMLPPSGroepType.Add: IXMLItemType2;
+begin
+  Result := AddItem(-1) as IXMLItemType2;
+end;
+
+function TXMLPPSGroepType.Insert(const Index: Integer): IXMLItemType2;
+begin
+  Result := AddItem(Index) as IXMLItemType2;
+end;
+
+{ TXMLItemType2 }
+
+procedure TXMLItemType2.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType;
+  inherited;
+end;
+
+function TXMLItemType2.Get_Key: UnicodeString;
+begin
+  Result := AttributeNodes['Key'].Text;
+end;
+
+procedure TXMLItemType2.Set_Key(Value: UnicodeString);
+begin
+  SetAttribute('Key', Value);
+end;
+
+function TXMLItemType2.Get_Oms: UnicodeString;
+begin
+  Result := AttributeNodes['Oms'].Text;
+end;
+
+procedure TXMLItemType2.Set_Oms(Value: UnicodeString);
+begin
+  SetAttribute('Oms', Value);
+end;
+
+function TXMLItemType2.Get_Caption: UnicodeString;
+begin
+  Result := AttributeNodes['Caption'].Text;
+end;
+
+procedure TXMLItemType2.Set_Caption(Value: UnicodeString);
+begin
+  SetAttribute('Caption', Value);
+end;
+
+function TXMLItemType2.Get_Item(Index: Integer): IXMLItemType;
+begin
+  Result := List[Index] as IXMLItemType;
+end;
+
+function TXMLItemType2.Add: IXMLItemType;
+begin
+  Result := AddItem(-1) as IXMLItemType;
+end;
+
+function TXMLItemType2.Insert(const Index: Integer): IXMLItemType;
+begin
+  Result := AddItem(Index) as IXMLItemType;
+end;
+
+{ TXMLMachineIDType }
+
+procedure TXMLMachineIDType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType;
+  inherited;
+end;
+
+function TXMLMachineIDType.Get_Item(Index: Integer): IXMLItemType;
+begin
+  Result := List[Index] as IXMLItemType;
+end;
+
+function TXMLMachineIDType.Add: IXMLItemType;
+begin
+  Result := AddItem(-1) as IXMLItemType;
+end;
+
+function TXMLMachineIDType.Insert(const Index: Integer): IXMLItemType;
+begin
+  Result := AddItem(Index) as IXMLItemType;
+end;
+
+{ TXMLWerkPostType }
+
+procedure TXMLWerkPostType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType;
+  inherited;
+end;
+
+function TXMLWerkPostType.Get_Item(Index: Integer): IXMLItemType;
+begin
+  Result := List[Index] as IXMLItemType;
+end;
+
+function TXMLWerkPostType.Add: IXMLItemType;
+begin
+  Result := AddItem(-1) as IXMLItemType;
+end;
+
+function TXMLWerkPostType.Insert(const Index: Integer): IXMLItemType;
+begin
+  Result := AddItem(Index) as IXMLItemType;
+end;
+
+{ TXMLBatchExcludeListType }
+
+function TXMLBatchExcludeListType.Get_Item: UnicodeString;
+begin
+  Result := ChildNodes['Item'].Text;
+end;
+
+procedure TXMLBatchExcludeListType.Set_Item(Value: UnicodeString);
+begin
+  ChildNodes['Item'].NodeValue := Value;
+end;
+
+{ TXMLBlockActionType }
+
+procedure TXMLBlockActionType.AfterConstruction;
+begin
+  RegisterChildNode('Item', TXMLItemType2);
+  ItemTag := 'Item';
+  ItemInterface := IXMLItemType2;
+  inherited;
+end;
+
+function TXMLBlockActionType.Get_Item(Index: Integer): IXMLItemType2;
+begin
+  Result := List[Index] as IXMLItemType2;
+end;
+
+function TXMLBlockActionType.Add: IXMLItemType2;
+begin
+  Result := AddItem(-1) as IXMLItemType2;
+end;
+
+function TXMLBlockActionType.Insert(const Index: Integer): IXMLItemType2;
+begin
+  Result := AddItem(Index) as IXMLItemType2;
+end;
+
+{ TXMLWPTBX_SettingsType }
+
+function TXMLWPTBX_SettingsType.Get_RefreshInterval: Integer;
+begin
+  Result := AttributeNodes['RefreshInterval'].NodeValue;
+end;
+
+procedure TXMLWPTBX_SettingsType.Set_RefreshInterval(Value: Integer);
+begin
+  SetAttribute('RefreshInterval', Value);
+end;
+
+end.
\ No newline at end of file