Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r185 -r200
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 185)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 200)
@@ -103,7 +103,7 @@
     Font.Style = []
     ParentFont = False
   end
-  object imgGls: TImage [8]
+  object imgDirecteLevering: TImage [8]
     Left = 404
     Top = 99
     Width = 32
Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r199 -r200
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 199)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 200)
@@ -18,7 +18,7 @@
     lblAantalGescand: TLabel;
     lblTotaalAantal: TLabel;
     lblSlash: TLabel;
-    imgGls: TImage;
+    imgDirecteLevering: TImage;
     lblHuidigePallet: TLabel;
     lblScanPallet: TLabel;
     lblToelevering: TLabel;
@@ -71,8 +71,8 @@
     if fWaarschuwingModalResult = mrYes then begin
       if BepaalDirecteLevering then begin
         ToonPopupScherm('GLS Direct', 'OK','',15,-1,-1,clBlue);
-        fImagesScherm.ilAlgemeen32.GetIcon(3, imgGls.Picture.Icon);
-        imgGls.Visible := true;
+        fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
+        imgDirecteLevering.Visible := true;
       end;
       PalletBijwerken(DnaCodeStatus.InBuffer,BepaalDirecteLevering);
     end;
@@ -175,7 +175,7 @@
   if not (UiContext.Toelevering = '') then
     ToeleveringDataOphalen()
   else begin
-    imgGls.Visible := false;
+    imgDirecteLevering.Visible := false;
     imgWegwerpPallet.Visible := false;
   end;
 
@@ -270,12 +270,12 @@
 procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
 begin
   if EersteDnaCode.IsDirecteLevering then begin
-    if not imgGls.Visible then
+    if not imgDirecteLevering.Visible then
       ToonPopupScherm('GLS Direct', 'OK','',15,-1,-1,clBlue);
-    fImagesScherm.ilAlgemeen32.GetIcon(3, imgGls.Picture.Icon);
-    imgGls.Visible := EersteDnaCode.IsDirecteLevering;
+    fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
+    imgDirecteLevering.Visible := EersteDnaCode.IsDirecteLevering;
   end else begin
-    imgGls.Visible := false;
+    imgDirecteLevering.Visible := false;
   end;
 
   if EersteDnaCode.IsWegwerpPallet then begin