Index: ProScan/ProScan.dproj.local
===================================================================
diff -u -r466 -r469
--- ProScan/ProScan.dproj.local (.../ProScan.dproj.local) (revision 466)
+++ ProScan/ProScan.dproj.local (.../ProScan.dproj.local) (revision 469)
@@ -20,8 +20,8 @@
2019/03/05 10:53:16.000.806,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/05 10:56:57.000.976,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\GebruikerService.pas
2019/03/05 11:54:27.000.053,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+ 2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/06 07:41:24.000.503,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/06 07:41:41.000.580,E:\svn\Delphi\AAPClient\UI\Images.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/06 07:41:41.000.580,E:\svn\Delphi\AAPClient\UI\Images.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
@@ -35,26 +35,26 @@
2019/03/07 15:19:13.000.507,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
2019/03/08 10:21:18.000.208,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/08 10:26:55.000.996,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
- 2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas
2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm
+ 2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas
2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm
2019/03/08 10:28:02.000.451,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
2019/03/08 11:14:25.000.860,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/08 13:41:42.000.692,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/08 13:43:18.000.168,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/08 13:43:18.000.168,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/08 16:42:04.000.691,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/08 16:42:12.000.086,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/03/08 16:42:32.000.114,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
2019/03/12 11:42:34.000.194,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/03/12 11:42:41.000.845,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/12 11:42:52.000.715,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
2019/03/18 09:44:48.000.103,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas
2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.dfm
+ 2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas
2019/03/18 11:06:46.000.842,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/18 11:07:10.000.880,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/03/18 11:07:23.000.750,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
@@ -81,8 +81,8 @@
2019/09/04 14:42:49.000.071,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/09/06 07:39:37.000.990,=E:\svn\Delphi\AAPClient\WS.pas
2019/09/06 07:39:48.000.040,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
- 2019/09/06 07:40:00.000.929,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
2019/09/06 07:40:00.000.929,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm
+ 2019/09/06 07:40:00.000.929,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
2019/09/06 07:44:11.000.442,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/09/06 07:45:06.000.602,=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas
2019/09/06 07:46:50.000.159,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
@@ -163,6 +163,9 @@
2020/07/29 10:32:57.627,=E:\svn\Delphi\ProScan\WS.pas
2020/07/29 10:33:03.336,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=
2020/07/29 10:33:17.085,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=E:\svn\Delphi\ProScan\WS.pas
+ 2020/07/30 14:52:25.855,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=
+ 2020/07/30 14:52:37.470,=E:\svn\Delphi\ProScan\WS.pas
+ 2020/07/30 14:52:50.983,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=E:\svn\Delphi\ProScan\WS.pas
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);