Index: PlanScan/Main.pas
===================================================================
diff -u -r261 -r262
--- PlanScan/Main.pas	(.../Main.pas)	(revision 261)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 262)
@@ -39,12 +39,14 @@
   DnaCodesStringList: TStringList;
   DnaCodes: ArrayOfDnaCodeDnaCode;
   ii: integer;
+  ScanTijdstip: TDateTime;
 begin
   UiContext := TUiContext.Create;
   UiContext.Pallet := 'TBP98984';
   UiContext.LoginCode := '1513';
   UiContext.Initialen := 'TSN';
-  UiContext.Toelevering := '210817';
+  UiContext.Toelevering := '274804';
+  //UiContext.Toelevering := '210817';      //210817 heeft 4600 lijnen
   fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(UiContext.Toelevering);
   try
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
@@ -55,7 +57,7 @@
       ClientDataSet1.FieldDefs.Add('Toelevering',ftString,10);
       ClientDataSet1.FieldDefs.Add('Status',ftString,10);
       ClientDataSet1.FieldDefs.Add('Batch',ftString,10);
-      ClientDataSet1.FieldDefs.Add('Tijdstip',ftString,10);
+      ClientDataSet1.FieldDefs.Add('Tijdstip',ftString,20);
       ClientDataSet1.FieldDefs.Add('Initialen',ftString,3);
       ClientDataSet1.CreateDataSet;
 
@@ -65,8 +67,8 @@
                                       DnaCodes[ii].PalletCode,
                                       DnaCodes[ii].Toelevering,
                                       GetEnumName(typeInfo(DnaCodeStatus),Ord(DnaCodes[ii].Status)),
-                                      '',//DnaCodes[ii].BatchId,
-                                      DnaCodes[ii].ScanTijdstip,
+                                      DnaCodes[ii].BatchId,
+                                      DateTimeToStr(DnaCodes[ii].ScanTijdstip.AsDateTime),
                                       DnaCodes[ii].InitialenScanner]);
         ii := ii + 1;
       end;