Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r537 -r694
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 537)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 694)
@@ -33,16 +33,19 @@
     fIsWegwerpPalletPopupGetoond: boolean;
     fIsSSTPopupGetoond: boolean;
     fIsExportPopupGetoond: boolean;
+    fIsBlumXsPopupGetoond: boolean;
+    fIsKartonnenPalletPopupGetoond: boolean;
     fServerName: string;
     fModus: integer;
+    fMoetTbpCodeGenereren: boolean;
     fInternVhossId: string;
     fBatchId: String;
     fFormBreedte: integer;
     fFormHoogte: integer;
     fLaatsteDnaCodeGoedAfgemeld: boolean;
-    fLaatstAfgemeldeDnaCodesStringList: TStringList;
-    fAfTeDrukkenDnaCodesStringList: TStringList;
+    fLaatstAfgedrukteDnaCodes: TStringList;
   public
+    Constructor Create; overload;
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
     Property Pallet: String Read fPallet Write fPallet;
@@ -56,18 +59,24 @@
     Property IsSSTPopupGetoond: boolean Read fIsSSTPopupGetoond Write fIsSSTPopupGetoond;
     Property ServerName: string Read fServerName Write fServerName;
     Property Modus: integer Read fModus Write fModus;
+    Property MoetTbpCodeGenereren: boolean Read fMoetTbpCodeGenereren Write fMoetTbpCodeGenereren;
     Property InternVhossId: string read fInternVhossId Write fInternVhossId;
     Property IsExportPopupGetoond: boolean Read fIsExportPopupGetoond write fIsExportPopupGetoond;
+    Property IsBlumXsPopupGetoond: boolean Read fIsBlumXsPopupGetoond write fIsBlumXsPopupGetoond;
     Property BatchId: string Read fBatchId Write fBatchId;
     Property FormBreedte: integer Read fFormBreedte Write fFormBreedte;
     Property FormHoogte: integer Read fFormHoogte Write fFormHoogte;
     Property LaatsteDnaCodeGoedAfgemeld: boolean Read fLaatsteDnaCodeGoedAfgemeld Write fLaatsteDnaCodeGoedAfgemeld;
-    Property LaatstAfgemeldeDnaCodesStringList: TStringList Read fLaatstAfgemeldeDnaCodesStringList Write fLaatstAfgemeldeDnaCodesStringList;
-    Property AfTeDrukkenDnaCodesStringList: TStringList Read fAfTeDrukkenDnaCodesStringList Write fAfTeDrukkenDnaCodesStringList;
+    Property LaatstAfgedrukteDnaCodes: TStringList Read fLaatstAfgedrukteDnaCodes Write fLaatstAfgedrukteDnaCodes;
+    Property IsKartonnenPalletPopupGetoond: boolean Read fIsKartonnenPalletPopupGetoond write fIsKartonnenPalletPopupGetoond;
   end;
 
 implementation
 
 { TUiContext }
+constructor TUiContext.Create();
+begin
+  fLaatstAfgedrukteDnaCodes := TStringList.Create();
+end;
 
 end.