Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r581 -r582
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 581)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 582)
@@ -2,7 +2,7 @@
 
 interface
 
-uses SysUtils, System.Classes,
+uses SysUtils, System.Classes, System.Generics.Collections,
   ObserverPattern, ApplicationContext,
   SelectService, OptiServerService, UI_Data;
 
@@ -30,8 +30,8 @@
       pxBoxDataObj: OptiServerService.pxBoxData); overload;
     procedure RegistreerMislukteOpzoeking(ProductDetailContext: TProductDetailContext;
       pxStatusObj: OptiServerService.pxStatus); overload;
-    function GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext;
-      ProductDetailContext: TProductDetailContext): string;
+    function GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext; ProductDetailContext: TProductDetailContext)
+      : TList<string>;
   public
     Constructor Create();
     procedure LaadUIInstellingen(UserContext: TUserContext; UiInstellingenContext: TUiInstellingenContext);
@@ -313,7 +313,7 @@
 end;
 
 function TProductsAgent.GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext;
-  ProductDetailContext: TProductDetailContext): string;
+  ProductDetailContext: TProductDetailContext): TList<string>;
 var
   ZoekData: OptiServerService.GetBoxDataIDsViaProduct;
   GetBoxDataIDsViaProductResponseObj: OptiServerService.GetBoxDataIDsViaProductResponse;
@@ -322,9 +322,11 @@
   Lijnen: TStringList;
   LijnenBoxDataID: TStringList;
   XMLDoc: IXMLDocument;
+  ResultaatLijst: TList<string>;
 begin
-  ZoekData := nil;
   try
+    ResultaatLijst := TList<string>.Create();
+
     // Request
     ZoekData := OptiServerService.GetBoxDataIDsViaProduct.Create();
     ZoekData.SessionKey := UserContext.SessionKey;
@@ -334,91 +336,154 @@
 
     // Response
     if GetBoxDataIDsViaProductResponseObj.GetBoxDataIDsViaProductResult <> nil then
+    begin
       // Mislukt
       RegistreerMislukteOpzoeking(ProductDetailContext, GetBoxDataIDsViaProductResponseObj.GetBoxDataIDsViaProductResult);
+      Result := ResultaatLijst;
+      exit;
+    end;
 
-    // Bruikbare informatie uit antwoord halen
+    // Gelukt, Bruikbare informatie uit antwoord halen
 
     // Producten inladen
     LijnenBoxDataID := TStringList.Create;
     Lijnen := GeefBruikbareLijnenUitXMLDataSet(GetBoxDataIDsViaProductResponseObj.varDataSet);
     try
-      // 'GetBoxDataIDsViaObjTypeAndRef' element overlopen en mappen naar een instantie.
+      // 'GetBoxDataIDsViaObjTypeAndRef' elementen overlopen en mappen naar een XML document.
+      // Hieruit het ID veld halen en toevoegen aan de lijst.
       for Lijn in Lijnen do
       begin
-        LijnenBoxDataID.Add(Lijn);
         if ContainsStr(Lijn, '</GetBoxDataIDsViaObjTypeAndRef>') then
         begin
-          // Er zit een volledig item in de lijst
+          // 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
+          LijnenBoxDataID.Add('</GetBoxDataIDsViaObjTypeAndRef>');
+          // Er zit een volledig item in de lijst nu
           TempStr := LijnenBoxDataID.Text;
           XMLDoc := LoadXMLData(TempStr); // XML document van maken
-          // Elementen uit XML laden.
-          Result := XMLDoc.DocumentElement.ChildValues['ID'];
-        end;
+          // Elementen uit XML laden, toewijzen en veld toevoegen aan lijst.
+          ResultaatLijst.Add(XMLDoc.DocumentElement.ChildValues['ID']);
+
+          // Klaarzetten voor (mogelijks) volgend item
+          LijnenBoxDataID.Clear();
+          LijnenBoxDataID.Add('<GetBoxDataIDsViaObjTypeAndRef xmlns="">'); // Begin XML tag zelf toevoegen
+        end
+        else
+          // Standaard lijnen toevoegen
+          LijnenBoxDataID.Add(Lijn);
       end;
+      Result := ResultaatLijst;
     finally
-      Lijnen.Free();
-      LijnenBoxDataID.Free();
+      FreeAndNil(Lijnen);
+      FreeAndNil(LijnenBoxDataID);
     end;
   finally
-    ZoekData.Free();
+    FreeAndNil(ZoekData);
   end;
 end;
 
 procedure TProductsAgent.ZoekProductDataMetProductNr(ProductNr: Integer; UserContext: TUserContext;
   ProductDetailContext: TProductDetailContext);
 var
   ZoekData: OptiServerService.GetBoxDataViaId;
+  BoxDataIDs: TList<string>;
   BoxDataID: string;
   GetBoxDataViaIDResponseObj: GetBoxDataViaIDResponse;
+  ProductVerpakking: TProductVerpakking;
+  ProductVerpakkingAndere: TProductVerpakking;
 begin
-  BoxDataID := GetBoxDataIDsViaProduct(ProductNr, UserContext, ProductDetailContext);
-  // Controleren dat er resultaat was
-  if BoxDataID = '' then
-    raise Exception.Create('Er is geen Box ID gevonden.');
-  // Request
-  // Met ID, box data opvragen
-  ZoekData := nil;
   try
-    ZoekData := OptiServerService.GetBoxDataViaId.Create();
-    ZoekData.SessionKey := UserContext.SessionKey;
-    ZoekData.BoxDataID := BoxDataID;
+    BoxDataIDs := GetBoxDataIDsViaProduct(ProductNr, UserContext, ProductDetailContext);
+    // Controleren dat er resultaat was
+    if (BoxDataIDs = nil) or (BoxDataIDs.Count = 0) then
+      raise Exception.Create('Er zijn geen Box IDs gevonden.');
 
-    GetBoxDataViaIDResponseObj := FOptiBoxServerSoap.GetBoxDataViaId(ZoekData);
+    // Er was resultaat, data opvragen en toevoegen
+    ProductDetailContext.ProductVerpakkingen.Clear();
 
-    // Response
-    if GetBoxDataViaIDResponseObj.GetBoxDataViaIDResult = nil then
+    for BoxDataID in BoxDataIDs do
     begin
-      // Gelukt
-      RegistreerZoekResultaten(ProductDetailContext, GetBoxDataViaIDResponseObj.varBoxData);
-    end
-    else
+      // Request
+      // Met ID, box data opvragen
+      ZoekData := OptiServerService.GetBoxDataViaId.Create();
+      ZoekData.SessionKey := UserContext.SessionKey;
+      ZoekData.BoxDataID := BoxDataID;
+
+      GetBoxDataViaIDResponseObj := FOptiBoxServerSoap.GetBoxDataViaId(ZoekData);
+
+      // Response
+      if GetBoxDataViaIDResponseObj.GetBoxDataViaIDResult = nil then
+      begin
+        // Gelukt
+        RegistreerZoekResultaten(ProductDetailContext, GetBoxDataViaIDResponseObj.varBoxData);
+      end
+      else
+      begin
+        // Mislukt
+        RegistreerMislukteOpzoeking(ProductDetailContext, GetBoxDataViaIDResponseObj.GetBoxDataViaIDResult);
+        // Stop wanneer error is opgetreden
+        exit;
+      end;
+    end;
+    // Registreer DeelVan, zoekt de verpakking op met het overeenkomstige DeelVanID = ID
+    // Door gebrek aan custom comparators voor zo'n opzoeking moet dit manueel. O(n�)
+    for ProductVerpakking in ProductDetailContext.ProductVerpakkingen do
     begin
-      // Mislukt
-      RegistreerMislukteOpzoeking(ProductDetailContext, GetBoxDataViaIDResponseObj.GetBoxDataViaIDResult);
+      if ProductVerpakking.DeelVanID <> '' then
+        for ProductVerpakkingAndere in ProductDetailContext.ProductVerpakkingen do
+          if ProductVerpakking.DeelVanID = ProductVerpakkingAndere.ID then
+            ProductVerpakking.DeelVan := ProductVerpakkingAndere;
     end;
   finally
-    ZoekData.Free();
+    FreeAndNil(BoxDataIDs);
+    FreeAndNil(ZoekData);
   end;
 end;
 
 procedure TProductsAgent.RegistreerZoekResultaten(ProductDetailContext: TProductDetailContext;
   pxBoxDataObj: OptiServerService.pxBoxData);
+var
+  Verpakking: TProductVerpakking;
 begin
   // Andere velden juist zetten
   ProductDetailContext.IsOK := True;
   ProductDetailContext.ErrorMessage := '';
   ProductDetailContext.InternalErrorMessage := '';
 
-  ProductDetailContext.ProductDetailInformatie := pxBoxDataObj;
+  Verpakking := TProductVerpakking.Create();
+  with Verpakking do
+  begin
+    RawData := pxBoxDataObj;
+    MetaCaption := pxBoxDataObj.MetaCaption;
+    CutOrder := pxBoxDataObj.CutOrder;
+    Breedte := pxBoxDataObj.Breedte;
+    DefaultBreedte := pxBoxDataObj.DefaultData.Breedte;
+    Diepte := pxBoxDataObj.Diepte;
+    DefaultDiepte := pxBoxDataObj.DefaultData.Diepte;
+    Hoogte := pxBoxDataObj.Hoogte;
+    DefaultHoogte := pxBoxDataObj.DefaultData.Hoogte;
+    Aantal := pxBoxDataObj.Aantal;
+    MaxCombinAantal := pxBoxDataObj.MaxCombinAantal;
+    Plaatsing := pxBoxDataObj.Plaatsing;
+    Positie := pxBoxDataObj.Positie;
+    Richting := pxBoxDataObj.Rotatie;
 
+    DeelVanID := pxBoxDataObj.DeelVanID;
+  end;
+
+  ProductDetailContext.ProductVerpakkingen.Add(Verpakking);
+
   ProductDetailContext.NotifyChanged();
 end;
 
 procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductDetailContext: TProductDetailContext;
   pxStatusObj: OptiServerService.pxStatus);
 begin
-  ProductDetailContext.ProductDetailInformatie := nil;
+  ProductDetailContext.ProductVerpakkingen.Clear();
 
   ProductDetailContext.IsOK := pxStatusObj.IsOK;
   ProductDetailContext.ErrorMessage := pxStatusObj.Message_;
Index: VerpakkingsDefinitie/UI/ProductDetailScherm.pas
===================================================================
diff -u -r581 -r582
--- VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 581)
+++ VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 582)
@@ -11,6 +11,7 @@
 
 resourceString
   GEEN_DATA_CAPTION = 'Geen data om te tonen';
+  NERGENS_DEEL_VAN_CAPTION = '--Nergens deel van--';
 
 type
   TFormProductDetail = class(TFormSubscherm)
@@ -101,71 +102,84 @@
 
 procedure TFormProductDetail.UpdateGui(Sender: TObject);
 var
-  ProductDetailInformatie: OptiServerService.pxBoxData;
-  PPSPrioriteitEl: OptiServerService.pxemPPSPrioriteit;
+  ProductVerpakking: TProductVerpakking;
   TempStr: string;
   Item: string;
   I: Integer;
+  VorigeIndexInList: Integer;
 begin
   if (ApplicationContext.ProductDetailContext.GeselecteerdProduct = nil) or
-    (ApplicationContext.ProductDetailContext.ProductDetailInformatie = nil) then
+    (ApplicationContext.ProductDetailContext.ProductVerpakkingen.Count = 0) then
   begin
     UpdateGuiDataAanwezigheid(False);
     exit;
   end
   else
     UpdateGuiDataAanwezigheid(True);
 
-  // Update with data from ApplicationContext
+  // Update met data uit ApplicationContext
   LabelOmschrijving1.Caption := ApplicationContext.ProductDetailContext.GeselecteerdProduct.Omschrijving1;
   LabelOmschrijving2.Caption := ApplicationContext.ProductDetailContext.GeselecteerdProduct.Omschrijving2;
   LabelProductNaam.Caption := ApplicationContext.ProductDetailContext.GeselecteerdProduct.Kol1;
 
-  ProductDetailInformatie := ApplicationContext.ProductDetailContext.ProductDetailInformatie;
+  VorigeIndexInList := ListViewDozen.ItemIndex;
 
   // List view (grid)
   ListViewDozen.Clear();
-  With ListViewDozen.Items.Add Do
+  for ProductVerpakking in ApplicationContext.ProductDetailContext.ProductVerpakkingen do
   begin
-    // Caption := IntToStr(Product.ProductNr); // Deze casting geeft geen access violation
-    Caption := IntToStr(ProductDetailInformatie.CutOrder);
-    SubItems.Add(ProductDetailInformatie.MetaCaption);
-    SubItems.Add(ProductDetailInformatie.Breedte + ' x ' + ProductDetailInformatie.Diepte + ' x ' +
-        ProductDetailInformatie.Hoogte);
-    SubItems.Add(ProductDetailInformatie.Aantal);
-    SubItems.Add(ProductDetailInformatie.MaxCombinAantal);
-    SubItems.Add(ProductDetailInformatie.DeelVanCaption);
+    With ListViewDozen.Items.Add Do
+    begin
+      // Caption := IntToStr(Product.ProductNr); // Deze casting geeft geen access violation
+      Caption := IntToStr(ProductVerpakking.CutOrder);
+      SubItems.Add(ProductVerpakking.MetaCaption);
+      SubItems.Add(ProductVerpakking.Breedte + ' x ' + ProductVerpakking.Diepte + ' x ' + ProductVerpakking.Hoogte);
+      SubItems.Add(ProductVerpakking.Aantal);
+      SubItems.Add(ProductVerpakking.MaxCombinAantal);
+      // SubItems.Add(ProductVerpakking.DeelVanCaption);
+    end;
   end;
 
+  // Kijk of dezelfde verpakking als voor de update opnieuw geselecteerd kan worden
+  if (VorigeIndexInList >= 0) and (VorigeIndexInList < ApplicationContext.ProductDetailContext.ProductVerpakkingen.Count) then
+    ProductVerpakking := ApplicationContext.ProductDetailContext.ProductVerpakkingen[VorigeIndexInList]
+  else if ApplicationContext.ProductDetailContext.ProductVerpakkingen.Count > 0 then
+    ProductVerpakking := ApplicationContext.ProductDetailContext.ProductVerpakkingen[0] // Default eerste verpakking selecteren
+  else
+    exit; // Geen verpakking aanwezig
+
   // Linkerhelft
 
-  EditMeta.Text := ProductDetailInformatie.MetaCaption;
+  EditMeta.Text := ProductVerpakking.MetaCaption;
   // DeelVan
   ComboBoxDeelVan.Items.Clear();
   // ComboBox vullen en item selecteren.
-  for TempStr in SplitString(ProductDetailInformatie.DefaultData.DeelVanCaption, ';') do
+  for TempStr in ApplicationContext.ProductDetailContext.GetDeelVanOpties(ProductVerpakking) do
   begin
     ComboBoxDeelVan.Items.Add(TempStr);
   end;
-  if ComboBoxDeelVan.Items.IndexOf(ProductDetailInformatie.DeelVanCaption) >= 0 then
-    ComboBoxDeelVan.ItemIndex := ComboBoxDeelVan.Items.IndexOf(ProductDetailInformatie.DeelVanCaption)
-  else if ComboBoxDeelVan.Items.Count > 0 then
-    ComboBoxDeelVan.ItemIndex := 0;
+  ComboBoxDeelVan.Items.Add(NERGENS_DEEL_VAN_CAPTION);
+  // Item selecteren
+  if ProductVerpakking.DeelVan <> nil then
+    // Index zoeken in lijst van producten
+    ComboBoxDeelVan.ItemIndex := ApplicationContext.ProductDetailContext.ProductVerpakkingen.IndexOf(ProductVerpakking.DeelVan)
+  else
+    ComboBoxDeelVan.ItemIndex := ComboBoxDeelVan.Items.Count - 1;     // Default waarde: 'niks' optie selecteren
 
-  if ProductDetailInformatie.Breedte <> '' then
-    EditBreedte.Text := ProductDetailInformatie.Breedte
+  if ProductVerpakking.Breedte <> '' then
+    EditBreedte.Text := ProductVerpakking.Breedte
   else
-    EditBreedte.Text := ProductDetailInformatie.DefaultData.Breedte; // Default
-  if ProductDetailInformatie.Diepte <> '' then
-    EditDiepte.Text := ProductDetailInformatie.Diepte
+    EditBreedte.Text := ProductVerpakking.DefaultBreedte; // Default
+  if ProductVerpakking.Diepte <> '' then
+    EditDiepte.Text := ProductVerpakking.Diepte
   else
-    EditDiepte.Text := ProductDetailInformatie.DefaultData.Diepte; // Default
-  if ProductDetailInformatie.Hoogte <> '' then
-    EditHoogte.Text := ProductDetailInformatie.Hoogte
+    EditDiepte.Text := ProductVerpakking.DefaultDiepte; // Default
+  if ProductVerpakking.Hoogte <> '' then
+    EditHoogte.Text := ProductVerpakking.Hoogte
   else
-    EditHoogte.Text := ProductDetailInformatie.DefaultData.Hoogte;
-  EditMaxCombAantal.Text := ProductDetailInformatie.MaxCombinAantal;
-  EditAantal.Text := ProductDetailInformatie.Aantal;
+    EditHoogte.Text := ProductVerpakking.DefaultHoogte;
+  EditMaxCombAantal.Text := ProductVerpakking.MaxCombinAantal;
+  EditAantal.Text := ProductVerpakking.Aantal;
 
   // Rechterhelft
 
@@ -176,7 +190,7 @@
   begin
     ComboBoxPlaatsing.Items.Add(Item);
   end;
-  if (ApplicationContext.UiInstellingenContext.Plaatsing.TryGetValue(ProductDetailInformatie.Plaatsing, Item) = True) then
+  if (ApplicationContext.UiInstellingenContext.Plaatsing.TryGetValue(ProductVerpakking.Plaatsing, Item) = True) then
     ComboBoxPlaatsing.ItemIndex := ComboBoxPlaatsing.Items.IndexOf(Item)
   else if ComboBoxPlaatsing.Items.Count > 0 then
     ComboBoxPlaatsing.ItemIndex := 0;
@@ -189,12 +203,12 @@
   begin
     CheckComboBoxPositie.Items.Add(Item);
   end;
-  if ProductDetailInformatie.Positie = '' then
+  if ProductVerpakking.Positie = '' then
     // Lege positie betekent alles aangeduid
     for I := 0 to CheckComboBoxPositie.Items.Count - 1 do
       CheckComboBoxPositie.Checked[I] := True
   else
-    for TempStr in SplitString(ProductDetailInformatie.Positie, '') do
+    for TempStr in SplitString(ProductVerpakking.Positie, '') do
       if CheckComboBoxPositie.Items.IndexOf(TempStr) >= 0 then
         CheckComboBoxPositie.Checked[CheckComboBoxPositie.Items.IndexOf(TempStr)] := True;
 
@@ -206,18 +220,11 @@
   begin
     CheckComboBoxRichting.Items.Add(Item);
   end;
-  if ProductDetailInformatie.Rotatie <> '' then
+  if ProductVerpakking.Richting <> '' then
   begin
-    for TempStr in SplitString(ProductDetailInformatie.Rotatie, '') do
+    for TempStr in SplitString(ProductVerpakking.Richting, '') do
       if CheckComboBoxRichting.Items.IndexOf(TempStr) >= 0 then
         CheckComboBoxRichting.Checked[CheckComboBoxRichting.Items.IndexOf(TempStr)] := True;
-  end
-  else
-  begin
-    // Leeg, kies default waarden
-    for TempStr in SplitString(ProductDetailInformatie.DefaultData.Rotatie, ';') do
-      if CheckComboBoxRichting.Items.IndexOf(TempStr) >= 0 then
-        CheckComboBoxRichting.Checked[CheckComboBoxRichting.Items.IndexOf(TempStr)] := True;
   end;
 
   UpdateControlsEnableStatus()
Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r581 -r582
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 581)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 582)
@@ -9,8 +9,7 @@
 
 uses
   ObserverPattern,
-  System.Generics.Collections, SysUtils,
-  OptiServerService;
+  System.Generics.Collections, SysUtils;
 
 // SUB CONTEXTS: klassen die overeenkomen met bepaalde sub-context (bv. alles gerelateerd met authenticatie).
 
@@ -34,15 +33,6 @@
   end;
 
   // - UI instellingen
-//  TPair = class
-//  private
-//    FKey: string;
-//    FValue: string;
-//  public
-//    property Key: string read FKey write FKey;
-//    property Value: string read FValue write FValue;
-//  end;
-
   TUiInstellingenContext = class(TSubject)
   private
     FPositie: TDictionary<String, String>;
@@ -97,30 +87,74 @@
     constructor Create();
     procedure Reset();
     procedure NotifyChanged();
-    property Producten: TList<TProductInformatie> read FProducten write FProducten;
+    property Producten: TList<TProductInformatie> read FProducten;
 
     property IsOK: Boolean read FIsOK write FIsOK;
     property ErrorMessage: string read FErrorMessage write FErrorMessage;
     property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage;
   end;
 
   // - Product Detail
-  // TProductDetailInformatie = class()
-  // end;
+  TProductVerpakking = class
+  private
+    FRawData: TObject;
 
+    FID: string;
+    FMetaCaption: string;
+    FCutOrder: Integer;
+    FBreedte: string;
+    FDefaultBreedte: string;
+    FDiepte: string;
+    FDefaultDiepte: string;
+    FHoogte: string;
+    FDefaultHoogte: string;
+    FAantal: string;
+    FMaxCombinAantal: string;
+    FPlaatsing: string;
+    FPositie: string;
+    FRichting: string;
+
+    FDeelVanID: string;
+    FDeelVan: TProductVerpakking;
+  public
+    property RawData: TObject read FRawData write FRawData;
+
+    property ID: string read FID write FID;
+    property MetaCaption: string read FMetaCaption write FMetaCaption;
+    property CutOrder: Integer read FCutOrder write FCutOrder;
+    property Breedte: string read FBreedte write FBreedte;
+    property DefaultBreedte: string read FDefaultBreedte write FDefaultBreedte;
+    property Diepte: string read FDiepte write FDiepte;
+    property DefaultDiepte: string read FDefaultDiepte write FDefaultDiepte;
+    property Hoogte: string read FHoogte write FHoogte;
+    property DefaultHoogte: string read FDefaultHoogte write FDefaultHoogte;
+    property Aantal: string read FAantal write FAantal;
+    property MaxCombinAantal: string read FMaxCombinAantal write FMaxCombinAantal;
+    property Plaatsing: string read FPlaatsing write FPlaatsing;
+    property Positie: string read FPositie write FPositie;
+    property Richting: string read FRichting write FRichting;
+
+    property DeelVanID: string read FDeelVanID write FDeelVanID;
+    property DeelVan: TProductVerpakking read FDeelVan write FDeelVan;
+
+    function Equals(Obj: TObject): Boolean; override;
+  end;
+
   TProductDetailContext = class(TSubject)
   private
     FGeselecteerdProduct: TProductInformatie;
-    FProductDetailInformatie: OptiServerService.pxBoxData;
+    FProductVerpakkingen: TList<TProductVerpakking>;
 
     FIsOK: Boolean;
     FErrorMessage: string;
     FInternalErrorMessage: string;
   public
+    constructor Create();
     procedure NotifyChanged();
     procedure Reset();
     property GeselecteerdProduct: TProductInformatie read FGeselecteerdProduct write FGeselecteerdProduct;
-    property ProductDetailInformatie: OptiServerService.pxBoxData read FProductDetailInformatie write FProductDetailInformatie;
+    property ProductVerpakkingen: TList<TProductVerpakking> read FProductVerpakkingen;
+    function GetDeelVanOpties(ProductVerpakking: TProductVerpakking): TList<String>;
 
     property IsOK: Boolean read FIsOK write FIsOK;
     property ErrorMessage: string read FErrorMessage write FErrorMessage;
@@ -172,6 +206,11 @@
   FProducten := TList<TProductInformatie>.Create();
 end;
 
+procedure TProductsContext.NotifyChanged();
+begin
+  self.Change();
+end;
+
 // Enkel updaten wanneer nog niet op nil stond.
 procedure TProductsContext.Reset();
 begin
@@ -217,12 +256,13 @@
   end;
 end;
 
-procedure TProductsContext.NotifyChanged();
+// PRODUCT DETAIL
+constructor TProductDetailContext.Create;
 begin
-  self.Change();
+  inherited Create();
+  FProductVerpakkingen := TList<TProductVerpakking>.Create();
 end;
 
-// PRODUCT DETAIL
 procedure TProductDetailContext.NotifyChanged();
 begin
   self.Change();
@@ -231,14 +271,42 @@
 // Enkel updaten wanneer nog niet op nil stond.
 procedure TProductDetailContext.Reset();
 begin
-  if (GeselecteerdProduct <> nil) or (ProductDetailInformatie <> nil) then
+  if (GeselecteerdProduct <> nil) or (ProductVerpakkingen.Count > 0) then
   begin
     GeselecteerdProduct := nil;
-    ProductDetailInformatie := nil;
+    ProductVerpakkingen.Clear();
     NotifyChanged();
   end;
 end;
 
+function TProductDetailContext.GetDeelVanOpties(ProductVerpakking: TProductVerpakking): TList<string>;
+var
+  ProductVerpakkingTeZoeken: TProductVerpakking;
+  Namen: TList<String>;
+begin
+  Namen := TList<String>.Create();
+  for ProductVerpakkingTeZoeken in FProductVerpakkingen do
+  begin
+    if ProductVerpakkingTeZoeken.Equals(ProductVerpakking) then
+      Namen.Add(intToStr(ProductVerpakkingTeZoeken.CutOrder) + ': ' + ProductVerpakkingTeZoeken.MetaCaption)
+  end;
+
+  Result := Namen;
+end;
+
+// Product verpakking
+function TProductVerpakking.Equals(Obj: TObject): Boolean;
+begin
+  if Obj <> nil then
+    Result := false
+  else if not(Obj is TProductVerpakking) then
+    Result := false
+  else if (Obj as TProductVerpakking).ID = self.ID then
+    Result := true
+  else
+    Result := false;
+end;
+
 // APPLICATION CONTEXT
 constructor TApplicationContext.Create();
 begin