Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r603 -r607
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 603)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 607)
@@ -248,6 +248,41 @@
     property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage;
   end;
 
+  // VERPAKKING META
+  TProductVerpakkingMeta = class
+  private
+    FID: Integer;
+    FName: string;
+    FOptiType: string;
+  public
+    property ID: Integer read FID write FID;
+    property Name: string read FName write FName;
+    property OptiType: string read FOptiType write FOptiType;
+  end;
+
+  TProductVerpakkingMetaContext = class(TSubject)
+  private
+    FProductGroepen: TList<string>;
+    FMetas: TList<TProductVerpakkingMeta>;
+
+    FIsOK: Boolean;
+    FErrorMessage: string;
+    FInternalErrorMessage: string;
+
+    function GetProductGroepen: TReadOnlyList<string>;
+    function GetProductMetas: TReadOnlyList<TProductVerpakkingMeta>;
+  public
+    constructor Create();
+    property ProductGroepen: TReadOnlyList<string> read GetProductGroepen;
+    procedure SetProductGroepen(Collection: TEnumerable<string>);
+    property Metas: TReadOnlyList<TProductVerpakkingMeta> read GetProductMetas;
+    procedure SetMetas(Collection: TEnumerable<TProductVerpakkingMeta>);
+
+    property IsOK: Boolean read FIsOK write FIsOK;
+    property ErrorMessage: string read FErrorMessage write FErrorMessage;
+    property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage;
+  end;
+
   // APPLICATION CONTEXT
   // Application context bevat alle sub-contexts
   TApplicationContext = class
@@ -256,12 +291,15 @@
     FUiInstellingenContext: TUiInstellingenContext;
     FProductsContext: TProductsContext;
     FProductDetailContext: TProductVerpakkingenContext;
+    FProductVerpakkingMetaContext: TProductVerpakkingMetaContext;
   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 ProductVerpakkingContext: TProductVerpakkingenContext read FProductDetailContext write FProductDetailContext;
+    property ProductVerpakkingMetaContext: TProductVerpakkingMetaContext read FProductVerpakkingMetaContext
+      write FProductVerpakkingMetaContext;
   end;
 
 implementation
@@ -532,13 +570,47 @@
   FParameters.AddRange(Collection);
 end;
 
+// VERPAKKING META
+constructor TProductVerpakkingMetaContext.Create();
+begin
+  inherited Create();
+
+  FProductGroepen := TList<string>.Create();
+  FMetas := TList<TProductVerpakkingMeta>.Create();
+end;
+
+function TProductVerpakkingMetaContext.GetProductGroepen(): TReadOnlyList<string>;
+begin
+  Result := TReadOnlyList<string>.Create(FProductGroepen);
+end;
+
+function TProductVerpakkingMetaContext.GetProductMetas(): TReadOnlyList<TProductVerpakkingMeta>;
+begin
+  Result := TReadOnlyList<TProductVerpakkingMeta>.Create(FMetas);
+end;
+
+procedure TProductVerpakkingMetaContext.SetProductGroepen(Collection: TEnumerable<string>);
+begin
+  FProductGroepen.Clear();
+  FProductGroepen.AddRange(Collection);
+  self.Change();
+end;
+
+procedure TProductVerpakkingMetaContext.SetMetas(Collection: TEnumerable<TProductVerpakkingMeta>);
+begin
+  FMetas.Clear();
+  FMetas.AddRange(Collection);
+  self.Change();
+end;
+
 // APPLICATION CONTEXT
 constructor TApplicationContext.Create();
 begin
   FUserContext := TUserContext.Create();
   FUiInstellingenContext := TUiInstellingenContext.Create();
   FProductsContext := TProductsContext.Create();
   FProductDetailContext := TProductVerpakkingenContext.Create();
+  FProductVerpakkingMetaContext := TProductVerpakkingMetaContext.Create();
 end;
 
 end.
Index: VerpakkingsDefinitie/WS/OptiServerService.pas
===================================================================
diff -u -r563 -r607
--- VerpakkingsDefinitie/WS/OptiServerService.pas	(.../OptiServerService.pas)	(revision 563)
+++ VerpakkingsDefinitie/WS/OptiServerService.pas	(.../OptiServerService.pas)	(revision 607)
@@ -1784,15 +1784,15 @@
   GetAllProductGroepenResponse = class(TRemotable)
   private
     FGetAllProductGroepenResult: pxStatus;
-    FvarDataSet: anyType;
+    FvarDataSet: string;
     FvarDataSet_Specified: boolean;
-    procedure SetvarDataSet(Index: Integer; const AanyType: anyType);
+    procedure SetvarDataSet(Index: Integer; const AanyType: string);
     function varDataSet_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
     property GetAllProductGroepenResult: pxStatus read FGetAllProductGroepenResult write FGetAllProductGroepenResult;
-    property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified;
+    property varDataSet: string Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified;
   end;
 
   // ************************************************************************ //
@@ -4665,7 +4665,7 @@
   inherited Destroy;
 end;
 
-procedure GetAllProductGroepenResponse.SetvarDataSet(Index: Integer; const AanyType: anyType);
+procedure GetAllProductGroepenResponse.SetvarDataSet(Index: Integer; const AanyType: string);
 begin
   FvarDataSet := AanyType;
   FvarDataSet_Specified := True;
Index: VerpakkingsDefinitie/UI/NavProductScherm.pas
===================================================================
diff -u -r602 -r607
--- VerpakkingsDefinitie/UI/NavProductScherm.pas	(.../NavProductScherm.pas)	(revision 602)
+++ VerpakkingsDefinitie/UI/NavProductScherm.pas	(.../NavProductScherm.pas)	(revision 607)
@@ -28,7 +28,7 @@
 
 uses
   Util,
-  ZoekProductenScherm, GebruikerScherm, GevondenProductenScherm, ProductDetailScherm, VerpakkingDetailScherm;
+  ZoekProductenScherm, GebruikerScherm, GevondenProductenScherm, ProductDetailScherm, VerpakkingDetailScherm, ProductMetaScherm;
 
 constructor TFormProductNav.Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext;
   UserAgent: TUserAgent; ProductsAgent: TProductsAgent);
@@ -84,6 +84,10 @@
     NAVTOONPRODUCTVERPAKKING:
       begin
       end;
+    NAVTOONPRODUCTVERPAKKINGMETA:
+      begin
+        TFormVerpakkingMeta.Create(GridPanelLeft, self, ApplicationContext, FProductsAgent).ShowModal();
+      end;
   else
     Exception.Create('SchermID: ' + IntToStr(schermId) + ' is onbekend');
     NavigeerNaar(NAVHOME);
Index: VerpakkingsDefinitie/UI/ProductMetaScherm.pas
===================================================================
diff -u
--- VerpakkingsDefinitie/UI/ProductMetaScherm.pas	(revision 0)
+++ VerpakkingsDefinitie/UI/ProductMetaScherm.pas	(revision 607)
@@ -0,0 +1,92 @@
+unit ProductMetaScherm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
+  ObserverPattern,
+  Navigator, ApplicationContext, Subscherm,
+  ProductsAgent, Vcl.ComCtrls, Vcl.StdCtrls;
+
+type
+  TFormVerpakkingMeta = class(TForm)
+    ComboBoxGroep: TComboBox;
+    GroupBox1: TGroupBox;
+    GroupBox2: TGroupBox;
+    ListViewMetas: TListView;
+    Button1: TButton;
+    procedure FormCreate(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+  private
+    FNavigator: INavigator;
+    FApplicationContext: TApplicationContext;
+    FProductsAgent: TProductsAgent;
+    procedure ToonGroepen();
+    procedure VerwerkProductAgentCall();
+  public
+    Constructor Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext;
+      ProductsAgent: TProductsAgent);
+  end;
+
+implementation
+
+{$R *.dfm}
+
+procedure TFormVerpakkingMeta.Button1Click(Sender: TObject);
+begin
+  self.Close();
+end;
+
+constructor TFormVerpakkingMeta.Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext;
+  ProductsAgent: TProductsAgent);
+begin
+  inherited Create(AOwner);
+
+  self.FNavigator := Navigator;
+  self.FApplicationContext := ApplicationContext;
+  self.FProductsAgent := ProductsAgent;
+end;
+
+procedure TFormVerpakkingMeta.FormCreate(Sender: TObject);
+begin
+  ToonGroepen();
+end;
+
+procedure TFormVerpakkingMeta.ToonGroepen();
+var
+  TempProductGroep: string;
+begin
+  if FApplicationContext.ProductVerpakkingMetaContext.ProductGroepen.Count = 0 then
+  begin
+    // Inladen uit Agent
+    FProductsAgent.LaadProductGroepen(FApplicationContext.UserContext, FApplicationContext.ProductVerpakkingMetaContext);
+    VerwerkProductAgentCall();
+  end;
+
+  // Tonen, in ComboBox laden.
+  if FApplicationContext.ProductVerpakkingMetaContext.ProductGroepen.Count > 0 then
+  begin
+    ComboBoxGroep.Items.BeginUpdate;
+    for TempProductGroep in FApplicationContext.ProductVerpakkingMetaContext.ProductGroepen do
+      ComboBoxGroep.Items.Add(TempProductGroep);
+    ComboBoxGroep.Items.EndUpdate;
+  end;
+end;
+
+procedure TFormVerpakkingMeta.VerwerkProductAgentCall();
+var
+  ErrorMessage: string;
+begin
+  if FApplicationContext.ProductVerpakkingMetaContext.IsOK = false then
+  begin
+    // Opzoeking gefaald
+    ErrorMessage := FApplicationContext.ProductVerpakkingMetaContext.ErrorMessage;
+    if FApplicationContext.ProductVerpakkingMetaContext.InternalErrorMessage <> '' then
+      ErrorMessage := ErrorMessage + sLineBreak + FApplicationContext.ProductVerpakkingMetaContext.InternalErrorMessage;
+
+    MessageDlg(ErrorMessage, TMsgDlgType.mtInformation, [mbOK], 0, mbCancel);
+  end;
+end;
+
+end.
Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r606 -r607
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 606)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 607)
@@ -48,6 +48,11 @@
       ProductVerpakkingenContext: TProductVerpakkingenContext): TProductVerpakking;
     function GeefVerpakkingenMetIDs(VerpakkingIDs: TList<string>; UserContext: TUserContext;
       ProductVerpakkingenContext: TProductVerpakkingenContext): TList<TProductVerpakking>;
+    // Verpakking meta
+    procedure RegistreerProductGroepenDataset(ProductVerpakkingMetaContext: TProductVerpakkingMetaContext; DataSet: string);
+    procedure RegistreerGelukteVerpakkingMetaQuery(ProductVerpakkingMetaContext: TProductVerpakkingMetaContext);
+    procedure RegistreerMislukteVerpakkingMetaQuery(ProductVerpakkingMetaContext: TProductVerpakkingMetaContext;
+      pxStatusObj: OptiServerService.pxStatus);
   public
     Constructor Create();
     // UI
@@ -66,12 +71,13 @@
       ProductVerpakkingenContext: TProductVerpakkingenContext);
     procedure VerwijderVerpakking(ProductVerpakking: TProductVerpakking; UserContext: TUserContext;
       ProductVerpakkingenContext: TProductVerpakkingenContext);
+    // Verpakking meta
+    procedure LaadProductGroepen(UserContext: TUserContext; ProductVerpakkingMetaContext: TProductVerpakkingMetaContext);
   end;
 
 implementation
 
-uses
-  StrUtils, Xml.XMLIntf, Xml.XMLDoc;
+uses StrUtils, Xml.XMLIntf, Xml.XMLDoc;
 
 constructor TProductsAgent.Create();
 begin
@@ -636,7 +642,8 @@
   // Opslaan
   OpslaanProductVerpakking(NieuweVerpakking, UserContext, ProductVerpakkingenContext);
   if ProductVerpakkingenContext.IsOK then
-    ProductVerpakkingenContext.AddProductVerpakking(NieuweVerpakking); // Notify gebeurt hier
+    ProductVerpakkingenContext.AddProductVerpakking(NieuweVerpakking);
+  // Notify gebeurt hier
 end;
 
 procedure TProductsAgent.OpslaanGewijzigdeProductVerpakking(ProductVerpakking: TProductVerpakking; UserContext: TUserContext;
@@ -933,4 +940,103 @@
   ProductVerpakkingenContext.InternalErrorMessage := pxStatusObj.InternalMessage;
 end;
 
+// Verpakking meta
+procedure TProductsAgent.LaadProductGroepen(UserContext: TUserContext;
+  ProductVerpakkingMetaContext: TProductVerpakkingMetaContext);
+var
+  RequestData: OptiServerService.GetAllProductGroepen;
+  GetAllProductGroepenResponseObj: OptiServerService.GetAllProductGroepenResponse;
+begin
+  RequestData := nil;
+  try
+    // Request
+    RequestData := OptiServerService.GetAllProductGroepen.Create();
+    RequestData.SessionKey := UserContext.SessionKey;
+
+    // Verpakking wissen
+    GetAllProductGroepenResponseObj := FOptiBoxServerSoap.GetAllProductGroepen(RequestData);
+
+    // Response
+    if GetAllProductGroepenResponseObj.GetAllProductGroepenResult = nil then
+    begin
+      // Gelukt
+      RegistreerGelukteVerpakkingMetaQuery(ProductVerpakkingMetaContext);
+      RegistreerProductGroepenDataset(ProductVerpakkingMetaContext,
+        GetAllProductGroepenResponseObj.varDataSet);
+    end
+    else
+      // Mislukt
+      RegistreerMislukteVerpakkingMetaQuery(ProductVerpakkingMetaContext,
+        GetAllProductGroepenResponseObj.GetAllProductGroepenResult);
+
+  finally
+    FreeAndNil(RequestData);
+  end;
+end;
+
+procedure TProductsAgent.RegistreerProductGroepenDataset(ProductVerpakkingMetaContext: TProductVerpakkingMetaContext;
+  DataSet: string);
+var
+  TempStr: string;
+  Lijn: string;
+  Lijnen: TStringList;
+  LijnenProduct: TStringList;
+  XMLDoc: IXMLDocument;
+  ProductGroepen: TList<string>;
+begin
+  try
+    // Producten inladen
+    LijnenProduct := TStringList.Create;
+    Lijnen := GeefBruikbareLijnenUitXMLDataSet(DataSet);
+    ProductGroepen := TList<string>.Create();
+    // De 'Select' elementen overlopen en elk element mappen naar een property van een instantie.
+    // Deze instantie toevoegen aan de lijst.
+    for Lijn in Lijnen do
+    begin
+      if ContainsStr(Lijn, '</GetAllProductGroepen>') then
+      begin
+        // Product blok afgerond
+
+        // De eindtag zit geplakt aan de tag voor het nieuwe product. Bv </Select><Select xmlns="">
+        // Deze lijn gaan we dus manueel moeten opsplitsen in eindtag voor ene en begintag voor volgend product
+
+        // Sluitende XML tag zelf toevoegen
+        LijnenProduct.Add('</GetAllProductGroepen>');
+        // Er zit een volledig item in de lijst nu
+        TempStr := LijnenProduct.Text;
+        XMLDoc := LoadXMLData(TempStr); // XML document van maken
+        // Elementen uit XML laden, toewijzen en instantie toevoegen aan lijst.
+        ProductGroepen.Add(XMLDoc.DocumentElement.ChildValues['ProductGroep']);
+
+        // klaarzetten voor (mogelijks) volgende productgroep
+        LijnenProduct.Clear();
+        LijnenProduct.Add('<GetAllProductGroepen xmlns="">'); // Begin XML tag zelf toevoegen
+      end
+      else
+        // Standaard productlijnen toevoegen
+        LijnenProduct.Add(Lijn);
+    end;
+    // Opgehaalde producten registreren
+    ProductVerpakkingMetaContext.SetProductGroepen(ProductGroepen);
+  finally
+    FreeAndNil(Lijnen);
+    FreeAndNil(LijnenProduct);
+  end;
+end;
+
+procedure TProductsAgent.RegistreerGelukteVerpakkingMetaQuery(ProductVerpakkingMetaContext: TProductVerpakkingMetaContext);
+begin
+  ProductVerpakkingMetaContext.IsOK := True;
+  ProductVerpakkingMetaContext.ErrorMessage := '';
+  ProductVerpakkingMetaContext.InternalErrorMessage := '';
+end;
+
+procedure TProductsAgent.RegistreerMislukteVerpakkingMetaQuery(ProductVerpakkingMetaContext: TProductVerpakkingMetaContext;
+  pxStatusObj: OptiServerService.pxStatus);
+begin
+  ProductVerpakkingMetaContext.IsOK := pxStatusObj.IsOK;
+  ProductVerpakkingMetaContext.ErrorMessage := pxStatusObj.Message_;
+  ProductVerpakkingMetaContext.InternalErrorMessage := pxStatusObj.InternalMessage;
+end;
+
 end.
Index: VerpakkingsDefinitie/UI/VerpakkingDetailScherm.dfm
===================================================================
diff -u -r606 -r607
--- VerpakkingsDefinitie/UI/VerpakkingDetailScherm.dfm	(.../VerpakkingDetailScherm.dfm)	(revision 606)
+++ VerpakkingsDefinitie/UI/VerpakkingDetailScherm.dfm	(.../VerpakkingDetailScherm.dfm)	(revision 607)
@@ -127,6 +127,7 @@
       Height = 21
       Caption = '...'
       TabOrder = 0
+      OnClick = ButtonMetaClick
     end
     object ComboBoxDeelVan: TComboBox
       Left = 112
Index: VerpakkingsDefinitie/UI/ProductMetaScherm.dfm
===================================================================
diff -u
--- VerpakkingsDefinitie/UI/ProductMetaScherm.dfm	(revision 0)
+++ VerpakkingsDefinitie/UI/ProductMetaScherm.dfm	(revision 607)
@@ -0,0 +1,74 @@
+object FormVerpakkingMeta: TFormVerpakkingMeta
+  Left = 0
+  Top = 0
+  Caption = 'Meta kiezen'
+  ClientHeight = 405
+  ClientWidth = 355
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  DesignSize = (
+    355
+    405)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object GroupBox1: TGroupBox
+    Left = 0
+    Top = 0
+    Width = 354
+    Height = 65
+    Anchors = [akLeft, akTop, akRight]
+    Caption = 'Groep'
+    TabOrder = 0
+    ExplicitWidth = 359
+    object ComboBoxGroep: TComboBox
+      AlignWithMargins = True
+      Left = 5
+      Top = 18
+      Width = 150
+      Height = 21
+      Align = alTop
+      Style = csDropDownList
+      Constraints.MaxWidth = 150
+      TabOrder = 0
+    end
+    object Button1: TButton
+      Left = 208
+      Top = 24
+      Width = 75
+      Height = 25
+      Caption = 'Button1'
+      TabOrder = 1
+      OnClick = Button1Click
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 0
+    Top = 71
+    Width = 354
+    Height = 329
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Caption = 'Meta'
+    TabOrder = 1
+    ExplicitWidth = 359
+    ExplicitHeight = 322
+    object ListViewMetas: TListView
+      Left = 2
+      Top = 15
+      Width = 350
+      Height = 312
+      Align = alClient
+      Columns = <>
+      TabOrder = 0
+      ExplicitLeft = 3
+      ExplicitTop = 16
+      ExplicitWidth = 250
+      ExplicitHeight = 150
+    end
+  end
+end
Index: VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas
===================================================================
diff -u -r604 -r607
--- VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas	(.../VerpakkingDetailScherm.pas)	(revision 604)
+++ VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas	(.../VerpakkingDetailScherm.pas)	(revision 607)
@@ -50,6 +50,7 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure ButtonOpslaanClick(Sender: TObject);
+    procedure ButtonMetaClick(Sender: TObject);
   private
     FProductsAgent: TProductsAgent;
 
@@ -120,6 +121,11 @@
   TUtil.VervangControl(ComboBoxRichting, CheckComboBoxRichting);
 end;
 
+procedure TFormVerpakkingDetail.ButtonMetaClick(Sender: TObject);
+begin
+  self.Navigator.NavigeerNaar(NAVTOONPRODUCTVERPAKKINGMETA);
+end;
+
 procedure TFormVerpakkingDetail.ButtonOpslaanClick(Sender: TObject);
 var
   ErrorMessage: string;
@@ -131,17 +137,16 @@
   FProductsAgent.OpslaanGewijzigdeProductVerpakking(ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking,
     ApplicationContext.UserContext, ApplicationContext.ProductVerpakkingContext);
 
+  if self.ApplicationContext.ProductVerpakkingContext.IsOK = false then
   begin
-    if self.ApplicationContext.ProductVerpakkingContext.IsOK = false then
-    begin
-      // Opzoeking gefaald
-      ErrorMessage := self.ApplicationContext.ProductVerpakkingContext.ErrorMessage;
-      if self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage <> '' then
-        ErrorMessage := ErrorMessage + sLineBreak + self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage;
+    // Opzoeking gefaald
+    ErrorMessage := self.ApplicationContext.ProductVerpakkingContext.ErrorMessage;
+    if self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage <> '' then
+      ErrorMessage := ErrorMessage + sLineBreak + self.ApplicationContext.ProductVerpakkingContext.InternalErrorMessage;
 
-      MessageDlg(ErrorMessage, TMsgDlgType.mtInformation, [mbOK], 0, mbCancel);
-    end;
+    MessageDlg(ErrorMessage, TMsgDlgType.mtInformation, [mbOK], 0, mbCancel);
   end;
+
 end;
 
 procedure TFormVerpakkingDetail.UpdateGui(Sender: TObject);
Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dproj
===================================================================
diff -u -r596 -r607
--- VerpakkingsDefinitie/VerpakkingsDefinitie.dproj	(.../VerpakkingsDefinitie.dproj)	(revision 596)
+++ VerpakkingsDefinitie/VerpakkingsDefinitie.dproj	(.../VerpakkingsDefinitie.dproj)	(revision 607)
@@ -130,6 +130,10 @@
 				<FormType>dfm</FormType>
 			</DCCReference>
 			<DCCReference Include="Other\ReadOnlyList.pas"/>
+			<DCCReference Include="UI\ProductMetaScherm.pas">
+				<Form>FormVerpakkingMeta</Form>
+				<FormType>dfm</FormType>
+			</DCCReference>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
 				<CfgParent>Base</CfgParent>
Index: VerpakkingsDefinitie/UI/Navigator.pas
===================================================================
diff -u -r593 -r607
--- VerpakkingsDefinitie/UI/Navigator.pas	(.../Navigator.pas)	(revision 593)
+++ VerpakkingsDefinitie/UI/Navigator.pas	(.../Navigator.pas)	(revision 607)
@@ -10,6 +10,7 @@
   NAVTOONPRODUCTEN = 4;
   NAVTOONPRODUCT = 5;
   NAVTOONPRODUCTVERPAKKING = 6;
+  NAVTOONPRODUCTVERPAKKINGMETA = 7;
 
 type
   INavigator = interface
Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dpr
===================================================================
diff -u -r596 -r607
--- VerpakkingsDefinitie/VerpakkingsDefinitie.dpr	(.../VerpakkingsDefinitie.dpr)	(revision 596)
+++ VerpakkingsDefinitie/VerpakkingsDefinitie.dpr	(.../VerpakkingsDefinitie.dpr)	(revision 607)
@@ -2,28 +2,29 @@
 
 uses
   Vcl.Forms,
-  Main in 'Main.pas' {FormMain},
+  Main in 'Main.pas' {FormMain} ,
   ApplicationContext in 'ApplicationContext.pas',
-  LogInScherm in 'UI\LogInScherm.pas' {FormLogin},
+  LogInScherm in 'UI\LogInScherm.pas' {FormLogin} ,
   UserAgent in 'WS\UserAgent.pas',
   Subscherm in 'UI\Subscherm.pas',
   UserServerService in 'WS\UserServerService.pas',
-  ZoekProductenScherm in 'UI\ZoekProductenScherm.pas' {FormZoekProducten},
+  ZoekProductenScherm in 'UI\ZoekProductenScherm.pas' {FormZoekProducten} ,
   Util in 'UI\Util.pas',
-  GebruikerScherm in 'UI\GebruikerScherm.pas' {FormGebruiker},
+  GebruikerScherm in 'UI\GebruikerScherm.pas' {FormGebruiker} ,
   ObserverPattern in 'UI\ObserverPattern.pas',
   SelectService in 'WS\SelectService.pas',
   ProductsAgent in 'WS\ProductsAgent.pas',
-  GevondenProductenScherm in 'UI\GevondenProductenScherm.pas' {FormGevondenProducten},
+  GevondenProductenScherm in 'UI\GevondenProductenScherm.pas' {FormGevondenProducten} ,
   OptiServerService in 'WS\OptiServerService.pas',
-  ProductDetailScherm in 'UI\ProductDetailScherm.pas' {FormProductDetail},
+  ProductDetailScherm in 'UI\ProductDetailScherm.pas' {FormProductDetail} ,
   CheckCombo in 'UI\CheckCombo.pas',
   UI_Data in 'WS\UI_Data.pas',
   CustomPanelVerpakkingParameter in 'UI\CustomPanelVerpakkingParameter.pas',
-  NavProductScherm in 'UI\NavProductScherm.pas' {FormProductNav},
+  NavProductScherm in 'UI\NavProductScherm.pas' {FormProductNav} ,
   Navigator in 'UI\Navigator.pas',
-  VerpakkingDetailScherm in 'UI\VerpakkingDetailScherm.pas' {FormVerpakkingDetail},
-  ReadOnlyList in 'Other\ReadOnlyList.pas';
+  VerpakkingDetailScherm in 'UI\VerpakkingDetailScherm.pas' {FormVerpakkingDetail} ,
+  ReadOnlyList in 'Other\ReadOnlyList.pas',
+  ProductMetaScherm in 'UI\ProductMetaScherm.pas' {FormVerpakkingMeta};
 
 {$R *.res}
 
@@ -33,4 +34,5 @@
   Application.MainFormOnTaskbar := True;
   Application.CreateForm(TFormMain, FormMain);
   Application.Run;
+
 end.