Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r170 -r175
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 170)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 175)
@@ -161,7 +161,10 @@
                  lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
                  imgInfo.Visible := true;
                  if Response.DnaCodes[0].IsGlsDirect then begin
-                   ToonPopupScherm('GLS DIRECT', 'OK');
+                   ToonPopupScherm('GLS Direct', 'OK');
+                 end;
+                 if Response.DnaCodes[0].IsWegwerpPallet then begin
+                   ToonPopupScherm('Wegwerppallet', 'OK');
                    imgGls.Visible := Response.DnaCodes[0].IsGlsDirect;
                  end;
                  Self.ModalResult := mrDnaCode;