Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r693 -r694
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 693)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 694)
@@ -27,6 +27,7 @@
     imgExport: TImage;
     imgBlumXs: TImage;
     lblAantalOpPallet: TLabel;
+    imgKartonnenPallet: TImage;
     procedure FormShow(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
     procedure actAfrondenExecute(Sender: TObject);
@@ -99,6 +100,7 @@
   fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(4, imgExport.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(6, imgBlumXs.Picture.Icon);
+  fImagesScherm.ilAlgemeen32.GetIcon(7, imgKartonnenPallet.Picture.Icon);
 
   if UiContext.Modus = modusVHOSS then begin
      VhossDataOphalen();
@@ -110,6 +112,7 @@
       imgWegwerpPallet.Visible := false;
       imgExport.Visible := false;
       imgBlumXs.Visible := false;
+      imgKartonnenPallet.Visible := false;
     end;
   end;
   ZetIcoontjesBovenaan;
@@ -646,6 +649,29 @@
       imgBlumXs.Visible := true;
     end;
 
+    ii := 0;
+    if not UiContext.IsKartonnenPalletPopupGetoond then begin
+      try
+        fAgent := TAgent.Create(UiContext);
+        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false, false, false);
+        fAgent.Free;
+        while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
+          if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
+             if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KartonnenPallet then begin
+                ToonPopupScherm('Kartonnen pallet', 'OK','',23,-1,-1,clRed);
+                UiContext.IsKartonnenPalletPopupGetoond := true;
+                imgKartonnenPallet.Visible := true;
+             end;
+          end;
+          ii := ii + 1;
+        end;
+      finally
+        fBewerkKlantinstellingenResponse.Free;
+      end;
+    end else begin
+      imgKartonnenPallet.Visible := true;
+    end;
+
     Repaint;
   end;
 end;