Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r197 -r199
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 197)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 199)
@@ -269,11 +269,11 @@
 
 procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
 begin
-  if EersteDnaCode.IsGlsDirect then begin
+  if EersteDnaCode.IsDirecteLevering then begin
     if not imgGls.Visible then
       ToonPopupScherm('GLS Direct', 'OK','',15,-1,-1,clBlue);
     fImagesScherm.ilAlgemeen32.GetIcon(3, imgGls.Picture.Icon);
-    imgGls.Visible := EersteDnaCode.IsGlsDirect;
+    imgGls.Visible := EersteDnaCode.IsDirecteLevering;
   end else begin
     imgGls.Visible := false;
   end;