Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r522 -r529
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 522)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 529)
@@ -39,7 +39,7 @@
     procedure ZetToeleveringStatus(Status: DnaCodeStatus; isDirecteLevering: boolean = false);
     procedure ToeleveringDataOphalen();
     procedure VhossDataOphalen();
-    procedure VerwerkMogelijkePopups(DnaCodes: ArrayofDnaCodeDnaCode; Toelevering: String);
+    procedure VerwerkMogelijkePopups(DnaCodes: ArrayofDnaCodeDnaCode; Toelevering: String; IsSST: boolean = false);
     function BepaalIndexEersteRelevanteDnaCode(DnaCodes: ArrayofDnaCodeDnaCode; Toelevering: String): integer;
     function BepaalAantalLadesOpHuidigePallet: integer;
     function BepaalDirecteLevering: boolean;
@@ -367,7 +367,7 @@
                lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
                ZetInfoIcoontjeZichtbaar;
                ZetIcoontjesBovenaan;
-               VerwerkMogelijkePopups(Response.DnaCodes, UiContext.Toelevering);
+               VerwerkMogelijkePopups(Response.DnaCodes, UiContext.Toelevering, Response.isSST);
                Self.ModalResult := mrDnaCode;
                UiContext.LaatsteDnaCodeGoedAfgemeld := true;
              end;
@@ -520,7 +520,7 @@
   end;
 end;
 
-procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(DnaCodes: ArrayofDnaCodeDnaCode; Toelevering: String);
+procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(DnaCodes: ArrayofDnaCodeDnaCode; Toelevering: String; IsSST: boolean = false);
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
   ii: integer;
@@ -545,6 +545,13 @@
     end;
     imgWegwerpPallet.Visible := DnaCodes[fIndexEersteRelevanteDnaCode].IsWegwerpPallet;
 
+    if IsSST then begin
+      if not UIContext.IsSSTPopupGetoond then begin
+        ToonPopupScherm('SpaceStep aanwezig', 'OK','',13,-1,-1,clGray);
+        UIContext.IsSSTPopupGetoond := true;
+      end;
+    end;
+
     ii := 0;
     if not UiContext.IsExportPopupGetoond then begin
       try
Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r497 -r529
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 497)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 529)
@@ -31,6 +31,7 @@
     fDesktopMode: boolean;
     fIsDirecteLeveringPopupGetoond: boolean;
     fIsWegwerpPalletPopupGetoond: boolean;
+    fIsSSTPopupGetoond: boolean;
     fIsExportPopupGetoond: boolean;
     fServerName: string;
     fModus: integer;
@@ -50,6 +51,7 @@
     Property DesktopMode: boolean Read fDesktopMode Write fDesktopMode;
     Property IsDirecteLeveringPopupGetoond: boolean Read fIsDirecteLeveringPopupGetoond Write fIsDirecteLeveringPopupGetoond;
     Property IsWegwerpPalletPopupGetoond: boolean Read fIsWegwerpPalletPopupGetoond Write fIsWegwerpPalletPopupGetoond;
+    Property IsSSTPopupGetoond: boolean Read fIsSSTPopupGetoond Write fIsSSTPopupGetoond;
     Property ServerName: string Read fServerName Write fServerName;
     Property Modus: integer Read fModus Write fModus;
     Property InternVhossId: string read fInternVhossId Write fInternVhossId;
Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r474 -r529
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 474)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 529)
@@ -85,6 +85,7 @@
     //popups resetten
     UiContext.IsDirecteLeveringPopupGetoond := false;
     UiContext.IsWegwerpPalletPopupGetoond := false;
+    UIContext.IsSSTPopupGetoond := false;
     UiContext.IsExportPopupGetoond := false;
     UiContext.InternVhossId := '';
   end else if (UiContext.Modus = modusKAD) then begin