Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r663 -r669
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 663)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 669)
@@ -24,7 +24,6 @@
     fInitialen: String;
     fLoginCode: String;
     fPallet: String;
-    fLpnCode: String;
     fToelevering: String;
     fLaatsteDnaCode: String;
     fInfoLogSchermToonGescand: boolean;
@@ -37,6 +36,7 @@
     fIsBlumXsPopupGetoond: boolean;
     fServerName: string;
     fModus: integer;
+    fMoetTbpCodeGenereren: boolean;
     fInternVhossId: string;
     fBatchId: String;
     fFormBreedte: integer;
@@ -48,7 +48,6 @@
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
     Property Pallet: String Read fPallet Write fPallet;
-    Property LpnCode: String Read fLpnCode Write fLpnCode;
     Property Toelevering: String Read fToelevering Write fToelevering;
     Property LaatsteDnaCode: String Read fLaatsteDnaCode Write fLaatsteDnaCode;
     Property InfoLogSchermToonGescand: boolean Read fInfoLogSchermToonGescand Write fInfoLogSchermToonGescand;
@@ -59,6 +58,7 @@
     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;