Index: PlanScan/PlanScan.res
===================================================================
diff -u -r259 -r470
Binary files differ
Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r461 -r470
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 461)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 470)
@@ -307,14 +307,15 @@
     else
       ScanTijdstipAsString := DateTimeToStr(DnaCodes[ii].ScanTijdstip.AsUTCDateTime);
 
-    cdsDnaCodes.InsertRecord([DnaCodes[ii].DnaCode,
-                              DnaCodes[ii].PalletCode,
-                              DnaCodes[ii].Toelevering,
-                              GetEnumName(typeInfo(DnaCodeStatus),Ord(DnaCodes[ii].Status)),
-                              DnaCodes[ii].BatchId,
-                              ScanTijdstipAsString,
-                              DnaCodes[ii].InitialenScanner,
-                              DnaCodes[ii].LadeCode]);
+    if not(DnaCodes[ii].AfdrukTijdstip = nil) then
+      cdsDnaCodes.InsertRecord([DnaCodes[ii].DnaCode,
+                                DnaCodes[ii].PalletCode,
+                                DnaCodes[ii].Toelevering,
+                                GetEnumName(typeInfo(DnaCodeStatus),Ord(DnaCodes[ii].Status)),
+                                DnaCodes[ii].BatchId,
+                                ScanTijdstipAsString,
+                                DnaCodes[ii].InitialenScanner,
+                                DnaCodes[ii].LadeCode]);
     ii := ii + 1;
   end;
 end;