Index: ProScan/WS/DnaCodeService.pas
===================================================================
diff -u -r466 -r469
--- ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 466)
+++ ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 469)
@@ -5,7 +5,7 @@
 //  >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0
 // Encoding : UTF-8
 // Version  : 1.0
-// (29/07/2020 10:32:57 - - $Rev: 45757 $)
+// (30/07/2020 14:52:37 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -342,6 +342,8 @@
     FIsWegwerpPallet_Specified: boolean;
     FBatchId: string;
     FBatchId_Specified: boolean;
+    FAfdrukTijdstip: TXSDateTime;
+    FAfdrukTijdstip_Specified: boolean;
     procedure SetAxProductieOrderNummer(Index: Integer; const Astring: string);
     function  AxProductieOrderNummer_Specified(Index: Integer): boolean;
     procedure SetProductNummer(Index: Integer; const Astring: string);
@@ -376,6 +378,8 @@
     function  IsWegwerpPallet_Specified(Index: Integer): boolean;
     procedure SetBatchId(Index: Integer; const Astring: string);
     function  BatchId_Specified(Index: Integer): boolean;
+    procedure SetAfdrukTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime);
+    function  AfdrukTijdstip_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
@@ -396,6 +400,7 @@
     property SequentieNummer:        string         Index (IS_OPTN) read FSequentieNummer write SetSequentieNummer stored SequentieNummer_Specified;
     property IsWegwerpPallet:        Boolean        Index (IS_OPTN) read FIsWegwerpPallet write SetIsWegwerpPallet stored IsWegwerpPallet_Specified;
     property BatchId:                string         Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified;
+    property AfdrukTijdstip:         TXSDateTime    Index (IS_OPTN) read FAfdrukTijdstip write SetAfdrukTijdstip stored AfdrukTijdstip_Specified;
   end;
 
 
@@ -1165,6 +1170,7 @@
 destructor DnaCode.Destroy;
 begin
   SysUtils.FreeAndNil(FScanTijdstip);
+  SysUtils.FreeAndNil(FAfdrukTijdstip);
   inherited Destroy;
 end;
 
@@ -1355,6 +1361,17 @@
   Result := FBatchId_Specified;
 end;
 
+procedure DnaCode.SetAfdrukTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime);
+begin
+  FAfdrukTijdstip := ATXSDateTime;
+  FAfdrukTijdstip_Specified := True;
+end;
+
+function DnaCode.AfdrukTijdstip_Specified(Index: Integer): boolean;
+begin
+  Result := FAfdrukTijdstip_Specified;
+end;
+
 destructor GeneriekeResponse.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);