{************************************************************************}
{                                                                        }
{                            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.