Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r598 -r599
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 598)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 599)
@@ -129,81 +129,91 @@
 
   TProductVerpakking = class
   private
-    FRawData: TObject;
+    FDefaultRawData: TObject;
 
     FID: string;
+    FObjType: string;
+    FObjRef: string;
     FCutOrder: Integer;
-
+    FDeelVan: TProductVerpakking;
+    FDeelVanCaption: string;
+    FDeelVanID: string; { TODO : Setter die ID en caption instelt + notify }
     FVolumeVanCaption: string;
+    FVolumeVanID: string;
+    FMetaCaption: string;
+    FMetaID: string;
+    FPosities: TList<string>;
+    FDefaultPosities: TList<string>;
+    FOptiType: string;
+    FDefaultOptiType: string;
+    FRichtingen: TList<string>;
+    FDefaultRichtingen: TList<string>;
+    FPlaatsing: string;
+    FDefaultPlaatsing: string;
+    FHoogte: string;
+    FDefaultHoogte: string;
     FBreedte: string;
     FDefaultBreedte: string;
     FDiepte: string;
     FDefaultDiepte: string;
-    FHoogte: string;
-    FDefaultHoogte: string;
     FAantal: string;
     FMaxCombinAantal: string;
-    FPlaatsing: string;
-    FDefaultPlaatsing: string;
-    FOptiType: string;
-    FDefaultOptiType: string;
-
-    FPosities: TList<string>;
-    FDefaultPosities: TList<string>;
-    FRichtingen: TList<string>;
-    FDefaultRichtingen: TList<string>;
-
     FParameters: TList<TProductVerpakkingParameter>;
 
-    FDeelVanID: string;
-    FDeelVanCaption: string;
-    FDeelVan: TProductVerpakking;
-
-    FMetaCaption: string;
-
     function GetMetaCaptionDisplay(): string;
     function GetBreedteDisplay: string;
     function GetDiepteDisplay: string;
     function GetHoogteDisplay: string;
     function GetParametersLijst: TReadOnlyList<TProductVerpakkingParameter>;
   public
-    property RawData: TObject read FRawData write FRawData;
+    property RawDefaultData: TObject read FDefaultRawData write FDefaultRawData;
 
     property ID: string read FID write FID;
+    property ObjType: string read FObjType write FObjType;
+    property ObjRef: string read FObjRef write FObjRef;
     property CutOrder: Integer read FCutOrder write FCutOrder;
 
+    property DeelVanID: string read FDeelVanID write FDeelVanID;
+    property DeelVanCaption: string read FDeelVanCaption write FDeelVanCaption;
+    property DeelVan: TProductVerpakking read FDeelVan write FDeelVan;
+
     property VolumeVanCaption: string read FVolumeVanCaption write FVolumeVanCaption;
+    property VolumeVanID: string read FVolumeVanID write FVolumeVanID;
+
+    property MetaCaptionDisplay: string read GetMetaCaptionDisplay;
+    property MetaCaption: string read FMetaCaption write FMetaCaption;
+    property MetaID: string read FMetaID write FMetaID;
+
+    property Posities: TList<string> read FPosities;
+    property DefaultPosities: TList<string> read FDefaultPosities;
+
+    property OptiType: string read FOptiType write FOptiType;
+    property DefaultOptiType: string read FDefaultOptiType write FDefaultOptiType;
+
+    property Richtingen: TList<string> read FRichtingen;
+    property DefaultRichtingen: TList<string> read FDefaultRichtingen;
+
+    property Plaatsing: string read FPlaatsing write FPlaatsing;
+    property DefaultPlaatsing: string read FDefaultPlaatsing write FDefaultPlaatsing;
+
+    property HoogteDisplay: string read GetHoogteDisplay;
+    property Hoogte: string read FHoogte write FHoogte;
+    property DefaultHoogte: string read FDefaultHoogte write FDefaultHoogte;
+
     property BreedteDisplay: string read GetBreedteDisplay;
     property Breedte: string read FBreedte write FBreedte;
     property DefaultBreedte: string read FDefaultBreedte write FDefaultBreedte;
+
     property DiepteDisplay: string read GetDiepteDisplay;
     property Diepte: string read FDiepte write FDiepte;
     property DefaultDiepte: string read FDefaultDiepte write FDefaultDiepte;
-    property HoogteDisplay: string read GetHoogteDisplay;
-    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 DefaultPlaatsing: string read FDefaultPlaatsing write FDefaultPlaatsing;
-    property OptiType: string read FOptiType write FOptiType;
-    property DefaultOptiType: string read FDefaultOptiType write FDefaultOptiType;
 
-    property Posities: TList<string> read FPosities;
-    property DefaultPosities: TList<string> read FDefaultPosities;
-    property Richtingen: TList<string> read FRichtingen;
-    property DefaultRichtingen: TList<string> read FDefaultRichtingen;
-
     property Parameters: TReadOnlyList<TProductVerpakkingParameter> read GetParametersLijst;
     procedure SetParameters(Collection: TEnumerable<TProductVerpakkingParameter>);
 
-    property DeelVanID: string read FDeelVanID write FDeelVanID;
-    property DeelVanCaption: string read FDeelVanCaption write FDeelVanCaption;
-    property DeelVan: TProductVerpakking read FDeelVan write FDeelVan;
-
-    property MetaCaption: string write FMetaCaption;
-    property MetaCaptionDisplay: string read GetMetaCaptionDisplay;
-
     function Equals(Obj: TObject): Boolean; override;
     constructor Create();
   end;