Index: ProScan/ProScan.dproj.local
===================================================================
diff -u -r451 -r466
--- ProScan/ProScan.dproj.local (.../ProScan.dproj.local) (revision 451)
+++ ProScan/ProScan.dproj.local (.../ProScan.dproj.local) (revision 466)
@@ -9,8 +9,8 @@
2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/01 15:26:22.000.761,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas
2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm
+ 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas
2019/03/04 07:46:54.000.107,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/04 07:48:44.000.257,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/04 07:48:53.000.280,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=
@@ -23,11 +23,11 @@
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/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.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
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
2019/03/07 08:39:12.000.150,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+ 2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 11:22:02.000.536,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
@@ -37,8 +37,8 @@
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:45.000.805,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm
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
@@ -53,8 +53,8 @@
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.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 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.dfm
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
@@ -64,8 +64,8 @@
2019/03/20 14:52:34.000.233,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/03/20 14:52:47.000.492,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
2019/03/22 12:38:06.000.040,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/22 12:42:12.000.397,E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/22 12:42:12.000.397,E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+ 2019/03/22 12:42:12.000.397,E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/04/10 07:45:17.000.841,=E:\svn\Delphi\AAPClient\WS.pas
2019/04/10 07:45:55.000.611,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/04/10 07:46:07.000.445,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.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:40:00.000.929,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm
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
@@ -145,19 +145,24 @@
2020/06/03 17:25:05.000.147,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
2020/06/11 13:42:02.000.458,=E:\svn\Delphi\ProScan\Unit1.pas
2020/06/11 13:42:37.000.605,E:\svn\Delphi\ProScan\BL\BlPallet.pas=E:\svn\Delphi\ProScan\Unit1.pas
- 2020/06/30 08:56:11.401,=E:\svn\Delphi\ProScan\WS.pas
- 2020/06/30 08:57:06.002,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=
- 2020/06/30 08:57:20.899,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=E:\svn\Delphi\ProScan\WS.pas
- 2020/07/03 13:18:22.586,=E:\svn\Delphi\ProScan\Unit1.pas
- 2020/07/03 13:25:23.372,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.dfm=E:\svn\Delphi\ProScan\Unit1.dfm
- 2020/07/03 13:25:23.372,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas=E:\svn\Delphi\ProScan\Unit1.pas
- 2020/07/03 13:28:16.574,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas=
- 2020/07/03 13:28:35.965,=E:\svn\Delphi\ProScan\Unit1.pas
- 2020/07/03 13:28:49.735,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas=E:\svn\Delphi\ProScan\Unit1.pas
- 2020/07/03 13:28:49.735,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.dfm=E:\svn\Delphi\ProScan\Unit1.dfm
- 2020/07/10 14:00:01.992,=E:\svn\Delphi\ProScan\WS.pas
- 2020/07/10 14:00:10.387,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=
- 2020/07/10 14:00:36.160,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=E:\svn\Delphi\ProScan\WS.pas
+ 2020/06/30 08:56:11.000.401,=E:\svn\Delphi\ProScan\WS.pas
+ 2020/06/30 08:57:06.000.002,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=
+ 2020/06/30 08:57:20.000.899,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=E:\svn\Delphi\ProScan\WS.pas
+ 2020/07/03 13:18:22.000.586,=E:\svn\Delphi\ProScan\Unit1.pas
+ 2020/07/03 13:25:23.000.372,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.dfm=E:\svn\Delphi\ProScan\Unit1.dfm
+ 2020/07/03 13:25:23.000.372,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas=E:\svn\Delphi\ProScan\Unit1.pas
+ 2020/07/03 13:28:16.000.574,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas=
+ 2020/07/03 13:28:35.000.965,=E:\svn\Delphi\ProScan\Unit1.pas
+ 2020/07/03 13:28:49.000.735,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.dfm=E:\svn\Delphi\ProScan\Unit1.dfm
+ 2020/07/03 13:28:49.000.735,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas=E:\svn\Delphi\ProScan\Unit1.pas
+ 2020/07/10 14:00:01.000.992,=E:\svn\Delphi\ProScan\WS.pas
+ 2020/07/10 14:00:10.000.387,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=
+ 2020/07/10 14:00:36.000.160,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=E:\svn\Delphi\ProScan\WS.pas
+ 2020/07/29 10:26:50.339,=E:\svn\Delphi\ProScan\WS.pas
+ 2020/07/29 10:27:08.714,E:\svn\Delphi\ProScan\WS\AfdrukService.pas=E:\svn\Delphi\ProScan\WS.pas
+ 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
@@ -192,6 +197,7 @@
+
Index: ProScan/WS/DnaCodeService.pas
===================================================================
diff -u -r451 -r466
--- ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 451)
+++ ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 466)
@@ -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
-// (10/07/2020 14:00:01 - - $Rev: 45757 $)
+// (29/07/2020 10:32:57 - - $Rev: 45757 $)
// ************************************************************************ //
unit DnaCodeService;
@@ -30,15 +30,14 @@
// typically map to predefined/known XML or Embarcadero types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
- // !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:long - "http://www.w3.org/2001/XMLSchema"[Gbl]
+ // !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:string - "http://www.w3.org/2001/XMLSchema"[Gbl]
GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaToeleveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaLadecodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
@@ -53,32 +52,31 @@
GeefVolgendeTbpCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
DnaCodeAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ZoekViaKlantnummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaToeleveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaLadecodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaOrdernummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
Klantinstellingen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ZoekAlleDnaCodesDieOpVhossMoetenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekAlleVhossLadesBijDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ZoekAlleDnaCodesDieOpVhossMoetenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekAlleVhossLadesBijDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ZoekViaKlantnummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ZoekAlleDnaCodesDieOpVhossMoetenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ZoekAlleDnaCodesDieOpVhossMoetenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaBatchRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ZoekViaKlantnummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ZoekViaKlantnummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ZoekViaBatchResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
- RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
{$SCOPEDENUMS ON}
@@ -107,6 +105,30 @@
// ************************************************************************ //
+ // XML : HernoemPalletRequest, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+ // ************************************************************************ //
+ HernoemPalletRequest = class(TRemotable)
+ private
+ FHeader: RequestHeader;
+ FOudeCode: string;
+ FNieuweCode: string;
+ FEnkelDezeDnaCode: string;
+ FEnkelDezeDnaCode_Specified: boolean;
+ procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string);
+ function EnkelDezeDnaCode_Specified(Index: Integer): boolean;
+ public
+ destructor Destroy; override;
+ published
+ property Header: RequestHeader read FHeader write FHeader;
+ property OudeCode: string read FOudeCode write FOudeCode;
+ property NieuweCode: string read FNieuweCode write FNieuweCode;
+ property EnkelDezeDnaCode: string Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified;
+ end;
+
+
+
+ // ************************************************************************ //
// XML : DnaCodeAfmeldenRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
@@ -146,47 +168,6 @@
// ************************************************************************ //
- // XML : HernoemPalletRequest, global,
- // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
- // ************************************************************************ //
- HernoemPalletRequest = class(TRemotable)
- private
- FHeader: RequestHeader;
- FOudeCode: string;
- FNieuweCode: string;
- FEnkelDezeDnaCode: string;
- FEnkelDezeDnaCode_Specified: boolean;
- procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string);
- function EnkelDezeDnaCode_Specified(Index: Integer): boolean;
- public
- destructor Destroy; override;
- published
- property Header: RequestHeader read FHeader write FHeader;
- property OudeCode: string read FOudeCode write FOudeCode;
- property NieuweCode: string read FNieuweCode write FNieuweCode;
- property EnkelDezeDnaCode: string Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified;
- end;
-
-
-
- // ************************************************************************ //
- // XML : DirecteLeveringRequest, global,
- // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
- // ************************************************************************ //
- DirecteLeveringRequest = class(TRemotable)
- private
- FHeader: RequestHeader;
- FToelevering: string;
- public
- destructor Destroy; override;
- published
- property Header: RequestHeader read FHeader write FHeader;
- property Toelevering: string read FToelevering write FToelevering;
- end;
-
-
-
- // ************************************************************************ //
// XML : ZoekViaPalletCodeRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
@@ -517,24 +498,6 @@
// ************************************************************************ //
- // XML : ZoekViaKlantnummerResponse, global,
- // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
- // ************************************************************************ //
- ZoekViaKlantnummerResponse = class(GeneriekeResponse)
- private
- FDnaCodes: ArrayOfDnaCodeDnaCode;
- FDnaCodes_Specified: boolean;
- procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
- function DnaCodes_Specified(Index: Integer): boolean;
- public
- destructor Destroy; override;
- published
- property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
- end;
-
-
-
- // ************************************************************************ //
// XML : ZoekViaPalletCodeResponse, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
@@ -658,11 +621,33 @@
// ************************************************************************ //
- // XML : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global,
+ // XML : ZoekAlleVhossLadesBijDnaCodeRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ZoekAlleDnaCodesDieOpVhossMoetenResponse = class(GeneriekeResponse)
+ ZoekAlleVhossLadesBijDnaCodeRequest = class(TRemotable)
private
+ FHeader: RequestHeader;
+ FDnaCode: string;
+ FGuiVhossVolgnummer: string;
+ FGuiVhossVolgnummer_Specified: boolean;
+ procedure SetGuiVhossVolgnummer(Index: Integer; const Astring: string);
+ function GuiVhossVolgnummer_Specified(Index: Integer): boolean;
+ public
+ destructor Destroy; override;
+ published
+ property Header: RequestHeader read FHeader write FHeader;
+ property DnaCode: string read FDnaCode write FDnaCode;
+ property GuiVhossVolgnummer: string Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified;
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : ZoekAlleVhossLadesBijDnaCodeResponse, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+ // ************************************************************************ //
+ ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse)
+ private
FDnaCodes: ArrayOfDnaCodeDnaCode;
FDnaCodes_Specified: boolean;
procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
@@ -676,28 +661,35 @@
// ************************************************************************ //
- // XML : ZoekAlleVhossLadesBijDnaCodeRequest, global,
+ // XML : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ZoekAlleVhossLadesBijDnaCodeRequest = class(TRemotable)
+ ZoekAlleDnaCodesDieOpVhossMoetenResponse = class(GeneriekeResponse)
private
- FHeader: RequestHeader;
- FDnaCode: string;
- FGuiVhossVolgnummer: string;
- FGuiVhossVolgnummer_Specified: boolean;
- procedure SetGuiVhossVolgnummer(Index: Integer; const Astring: string);
- function GuiVhossVolgnummer_Specified(Index: Integer): boolean;
+ FDnaCodes: ArrayOfDnaCodeDnaCode;
+ FDnaCodes_Specified: boolean;
+ procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+ function DnaCodes_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
- property Header: RequestHeader read FHeader write FHeader;
- property DnaCode: string read FDnaCode write FDnaCode;
- property GuiVhossVolgnummer: string Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified;
+ property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
end;
// ************************************************************************ //
+ // XML : ValideerPalletCodeResponse, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+ // ************************************************************************ //
+ ValideerPalletCodeResponse = class(GeneriekeResponse)
+ private
+ published
+ end;
+
+
+
+ // ************************************************************************ //
// XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
@@ -715,38 +707,44 @@
// ************************************************************************ //
- // XML : ValideerPalletCodeRequest, global,
+ // XML : ZoekViaBatchRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ValideerPalletCodeRequest = class(TRemotable)
+ ZoekViaBatchRequest = class(TRemotable)
private
FHeader: RequestHeader;
- FPalletCode: string;
+ FBatchId: string;
public
destructor Destroy; override;
published
- property Header: RequestHeader read FHeader write FHeader;
- property PalletCode: string read FPalletCode write FPalletCode;
+ property Header: RequestHeader read FHeader write FHeader;
+ property BatchId: string read FBatchId write FBatchId;
end;
// ************************************************************************ //
- // XML : ValideerPalletCodeResponse, global,
+ // XML : ZoekViaKlantnummerRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ValideerPalletCodeResponse = class(GeneriekeResponse)
+ ZoekViaKlantnummerRequest = class(TRemotable)
private
+ FHeader: RequestHeader;
+ FKlantnummer: string;
+ public
+ destructor Destroy; override;
published
+ property Header: RequestHeader read FHeader write FHeader;
+ property Klantnummer: string read FKlantnummer write FKlantnummer;
end;
// ************************************************************************ //
- // XML : ZoekAlleVhossLadesBijDnaCodeResponse, global,
+ // XML : ZoekViaKlantnummerResponse, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse)
+ ZoekViaKlantnummerResponse = class(GeneriekeResponse)
private
FDnaCodes: ArrayOfDnaCodeDnaCode;
FDnaCodes_Specified: boolean;
@@ -779,18 +777,19 @@
// ************************************************************************ //
- // XML : ZoekViaKlantnummerRequest, global,
+ // XML : ZoekViaBatchResponse, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ZoekViaKlantnummerRequest = class(TRemotable)
+ ZoekViaBatchResponse = class(GeneriekeResponse)
private
- FHeader: RequestHeader;
- FKlantnummer: string;
+ FDnaCodes: ArrayOfDnaCodeDnaCode;
+ FDnaCodes_Specified: boolean;
+ procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+ function DnaCodes_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
- property Header: RequestHeader read FHeader write FHeader;
- property Klantnummer: string read FKlantnummer write FKlantnummer;
+ property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
end;
@@ -813,81 +812,72 @@
// ************************************************************************ //
- // XML : ZoekViaBatchRequest, global,
+ // XML : PalletBijwerkenResponse, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ZoekViaBatchRequest = class(TRemotable)
+ PalletBijwerkenResponse = class(GeneriekeResponse)
private
- FHeader: RequestHeader;
- FBatchId: string;
- public
- destructor Destroy; override;
published
- property Header: RequestHeader read FHeader write FHeader;
- property BatchId: string read FBatchId write FBatchId;
end;
// ************************************************************************ //
- // XML : ZoekViaBatchResponse, global,
+ // XML : RondAfKaderdeurDagRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ZoekViaBatchResponse = class(GeneriekeResponse)
+ RondAfKaderdeurDagRequest = class(TRemotable)
private
- FDnaCodes: ArrayOfDnaCodeDnaCode;
- FDnaCodes_Specified: boolean;
- procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
- function DnaCodes_Specified(Index: Integer): boolean;
+ FHeader: RequestHeader;
+ FDnaCode: String_;
public
destructor Destroy; override;
published
- property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
+ property Header: RequestHeader read FHeader write FHeader;
+ property DnaCode: String_ read FDnaCode write FDnaCode;
end;
// ************************************************************************ //
- // XML : ToeleveringBijwerkenResponse, global,
+ // XML : PalletBijwerkenRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ToeleveringBijwerkenResponse = class(GeneriekeResponse)
+ PalletBijwerkenRequest = class(TRemotable)
private
+ FHeader: RequestHeader;
+ FPallet: string;
+ FStatus: DnaCodeStatus;
+ FIsDirecteLevering: Boolean;
+ public
+ destructor Destroy; override;
published
+ property Header: RequestHeader read FHeader write FHeader;
+ property Pallet: string read FPallet write FPallet;
+ property Status: DnaCodeStatus read FStatus write FStatus;
+ property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering;
end;
- ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
// ************************************************************************ //
- // XML : ProboxEtiketAfdrukkenRequest, global,
+ // XML : DirecteLeveringRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ProboxEtiketAfdrukkenRequest = class(TRemotable)
+ DirecteLeveringRequest = class(TRemotable)
private
FHeader: RequestHeader;
- FDnaCodes: ArrayOfStringString;
+ FToelevering: string;
public
destructor Destroy; override;
published
- property Header: RequestHeader read FHeader write FHeader;
- property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes;
+ property Header: RequestHeader read FHeader write FHeader;
+ property Toelevering: string read FToelevering write FToelevering;
end;
// ************************************************************************ //
- // XML : PalletBijwerkenResponse, global,
- // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
- // ************************************************************************ //
- PalletBijwerkenResponse = class(GeneriekeResponse)
- private
- published
- end;
-
-
-
- // ************************************************************************ //
// XML : DirecteLeveringResponse, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
@@ -901,36 +891,31 @@
// ************************************************************************ //
- // XML : PalletBijwerkenRequest, global,
+ // XML : ToeleveringBijwerkenResponse, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- PalletBijwerkenRequest = class(TRemotable)
+ ToeleveringBijwerkenResponse = class(GeneriekeResponse)
private
- FHeader: RequestHeader;
- FPallet: string;
- FStatus: DnaCodeStatus;
- FIsDirecteLevering: Boolean;
- public
- destructor Destroy; override;
published
- property Header: RequestHeader read FHeader write FHeader;
- property Pallet: string read FPallet write FPallet;
- property Status: DnaCodeStatus read FStatus write FStatus;
- property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering;
end;
// ************************************************************************ //
- // XML : ProboxEtiketAfdrukkenResponse, global,
+ // XML : ValideerPalletCodeRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse)
+ ValideerPalletCodeRequest = class(TRemotable)
private
+ FHeader: RequestHeader;
+ FPalletCode: string;
+ public
+ destructor Destroy; override;
published
+ property Header: RequestHeader read FHeader write FHeader;
+ property PalletCode: string read FPalletCode write FPalletCode;
end;
- ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
// ************************************************************************ //
@@ -978,26 +963,10 @@
property AantalKaderdeurenGescand: string Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified;
end;
+ ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
// ************************************************************************ //
- // XML : RondAfKaderdeurDagRequest, global,
- // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
- // ************************************************************************ //
- RondAfKaderdeurDagRequest = class(TRemotable)
- private
- FHeader: RequestHeader;
- FDnaCode: String_;
- public
- destructor Destroy; override;
- published
- property Header: RequestHeader read FHeader write FHeader;
- property DnaCode: String_ read FDnaCode write FDnaCode;
- end;
-
-
-
- // ************************************************************************ //
// XML : RondAfKaderdeurDagResponse, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
@@ -1033,7 +1002,6 @@
function HernoemPallet(const HernoemPalletRequest: HernoemPalletRequest): HernoemPalletResponse; stdcall;
function IsDirecteLevering(const DirecteLeveringRequest: DirecteLeveringRequest): DirecteLeveringResponse; stdcall;
function PalletBijwerken(const PalletBijwerkenRequest: PalletBijwerkenRequest): PalletBijwerkenResponse; stdcall;
- function ProboxEtiketAfdrukken(const ProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest): ProboxEtiketAfdrukkenResponse; stdcall;
function RondAfKaderdeurDag(const RondAfKaderdeurDagRequest: RondAfKaderdeurDagRequest): RondAfKaderdeurDagResponse; stdcall;
function ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall;
function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall;
@@ -1097,6 +1065,23 @@
inherited Destroy;
end;
+destructor HernoemPalletRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
+procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string);
+begin
+ FEnkelDezeDnaCode := Astring;
+ FEnkelDezeDnaCode_Specified := True;
+end;
+
+function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean;
+begin
+ Result := FEnkelDezeDnaCode_Specified;
+end;
+
destructor DnaCodeAfmeldenRequest.Destroy;
begin
SysUtils.FreeAndNil(FHeader);
@@ -1147,29 +1132,6 @@
Result := FBatchId_Specified;
end;
-destructor HernoemPalletRequest.Destroy;
-begin
- SysUtils.FreeAndNil(FHeader);
- inherited Destroy;
-end;
-
-procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string);
-begin
- FEnkelDezeDnaCode := Astring;
- FEnkelDezeDnaCode_Specified := True;
-end;
-
-function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean;
-begin
- Result := FEnkelDezeDnaCode_Specified;
-end;
-
-destructor DirecteLeveringRequest.Destroy;
-begin
- SysUtils.FreeAndNil(FHeader);
- inherited Destroy;
-end;
-
destructor ZoekViaPalletCodeRequest.Destroy;
begin
SysUtils.FreeAndNil(FHeader);
@@ -1495,27 +1457,6 @@
Result := FBatchId_Specified;
end;
-destructor ZoekViaKlantnummerResponse.Destroy;
-var
- I: Integer;
-begin
- for I := 0 to System.Length(FDnaCodes)-1 do
- SysUtils.FreeAndNil(FDnaCodes[I]);
- System.SetLength(FDnaCodes, 0);
- inherited Destroy;
-end;
-
-procedure ZoekViaKlantnummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
-begin
- FDnaCodes := AArrayOfDnaCodeDnaCode;
- FDnaCodes_Specified := True;
-end;
-
-function ZoekViaKlantnummerResponse.DnaCodes_Specified(Index: Integer): boolean;
-begin
- Result := FDnaCodes_Specified;
-end;
-
destructor ZoekViaPalletCodeResponse.Destroy;
var
I: Integer;
@@ -1688,7 +1629,24 @@
Result := FMeerdereToeleveringen_Specified;
end;
-destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy;
+destructor ZoekAlleVhossLadesBijDnaCodeRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
+procedure ZoekAlleVhossLadesBijDnaCodeRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string);
+begin
+ FGuiVhossVolgnummer := Astring;
+ FGuiVhossVolgnummer_Specified := True;
+end;
+
+function ZoekAlleVhossLadesBijDnaCodeRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean;
+begin
+ Result := FGuiVhossVolgnummer_Specified;
+end;
+
+destructor ZoekAlleVhossLadesBijDnaCodeResponse.Destroy;
var
I: Integer;
begin
@@ -1698,32 +1656,36 @@
inherited Destroy;
end;
-procedure ZoekAlleDnaCodesDieOpVhossMoetenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+procedure ZoekAlleVhossLadesBijDnaCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
begin
FDnaCodes := AArrayOfDnaCodeDnaCode;
FDnaCodes_Specified := True;
end;
-function ZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes_Specified(Index: Integer): boolean;
+function ZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean;
begin
Result := FDnaCodes_Specified;
end;
-destructor ZoekAlleVhossLadesBijDnaCodeRequest.Destroy;
+destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy;
+var
+ I: Integer;
begin
- SysUtils.FreeAndNil(FHeader);
+ for I := 0 to System.Length(FDnaCodes)-1 do
+ SysUtils.FreeAndNil(FDnaCodes[I]);
+ System.SetLength(FDnaCodes, 0);
inherited Destroy;
end;
-procedure ZoekAlleVhossLadesBijDnaCodeRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string);
+procedure ZoekAlleDnaCodesDieOpVhossMoetenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
begin
- FGuiVhossVolgnummer := Astring;
- FGuiVhossVolgnummer_Specified := True;
+ FDnaCodes := AArrayOfDnaCodeDnaCode;
+ FDnaCodes_Specified := True;
end;
-function ZoekAlleVhossLadesBijDnaCodeRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean;
+function ZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes_Specified(Index: Integer): boolean;
begin
- Result := FGuiVhossVolgnummer_Specified;
+ Result := FDnaCodes_Specified;
end;
destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy;
@@ -1732,13 +1694,19 @@
inherited Destroy;
end;
-destructor ValideerPalletCodeRequest.Destroy;
+destructor ZoekViaBatchRequest.Destroy;
begin
SysUtils.FreeAndNil(FHeader);
inherited Destroy;
end;
-destructor ZoekAlleVhossLadesBijDnaCodeResponse.Destroy;
+destructor ZoekViaKlantnummerRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
+destructor ZoekViaKlantnummerResponse.Destroy;
var
I: Integer;
begin
@@ -1748,13 +1716,13 @@
inherited Destroy;
end;
-procedure ZoekAlleVhossLadesBijDnaCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+procedure ZoekViaKlantnummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
begin
FDnaCodes := AArrayOfDnaCodeDnaCode;
FDnaCodes_Specified := True;
end;
-function ZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean;
+function ZoekViaKlantnummerResponse.DnaCodes_Specified(Index: Integer): boolean;
begin
Result := FDnaCodes_Specified;
end;
@@ -1776,24 +1744,6 @@
Result := FDnaCodes_Specified;
end;
-destructor ZoekViaKlantnummerRequest.Destroy;
-begin
- SysUtils.FreeAndNil(FHeader);
- inherited Destroy;
-end;
-
-destructor ZoekViaDnaCodeRequest.Destroy;
-begin
- SysUtils.FreeAndNil(FHeader);
- inherited Destroy;
-end;
-
-destructor ZoekViaBatchRequest.Destroy;
-begin
- SysUtils.FreeAndNil(FHeader);
- inherited Destroy;
-end;
-
destructor ZoekViaBatchResponse.Destroy;
var
I: Integer;
@@ -1815,18 +1765,36 @@
Result := FDnaCodes_Specified;
end;
-destructor ProboxEtiketAfdrukkenRequest.Destroy;
+destructor ZoekViaDnaCodeRequest.Destroy;
begin
SysUtils.FreeAndNil(FHeader);
inherited Destroy;
end;
+destructor RondAfKaderdeurDagRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
destructor PalletBijwerkenRequest.Destroy;
begin
SysUtils.FreeAndNil(FHeader);
inherited Destroy;
end;
+destructor DirecteLeveringRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
+destructor ValideerPalletCodeRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
destructor ToeleveringBijwerkenRequest.Destroy;
begin
SysUtils.FreeAndNil(FHeader);
@@ -1866,12 +1834,6 @@
Result := FAantalKaderdeurenGescand_Specified;
end;
-destructor RondAfKaderdeurDagRequest.Destroy;
-begin
- SysUtils.FreeAndNil(FHeader);
- inherited Destroy;
-end;
-
destructor RondAfKaderdeurDagResponse.Destroy;
var
I: Integer;
@@ -1916,9 +1878,6 @@
{ DnaCodeServiceSoap.PalletBijwerken }
InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'PalletBijwerken', '',
'[ReturnName="PalletBijwerkenResult"]');
- { DnaCodeServiceSoap.ProboxEtiketAfdrukken }
- InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ProboxEtiketAfdrukken', '',
- '[ReturnName="ProboxEtiketAfdrukkenResult"]');
{ DnaCodeServiceSoap.RondAfKaderdeurDag }
InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'RondAfKaderdeurDag', '',
'[ReturnName="RondAfKaderdeurDagResult"]');
@@ -1959,9 +1918,8 @@
RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus');
RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest');
RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String');
- RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest');
RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest');
- RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest');
+ RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest');
RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest');
RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest');
RemClassRegistry.RegisterXSClass(ZoekViaLadecodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeRequest');
@@ -1980,8 +1938,6 @@
RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse');
RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
- RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerResponse');
- RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaKlantnummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse');
RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
RemClassRegistry.RegisterXSClass(ZoekViaToeleveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringResponse');
@@ -1991,32 +1947,31 @@
RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerResponse');
RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaOrdernummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen');
- RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenResponse');
- RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleDnaCodesDieOpVhossMoetenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeRequest');
- RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest');
- RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest');
- RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse');
RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeResponse');
RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleVhossLadesBijDnaCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
- RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse');
- RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest');
- RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest');
+ RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenResponse');
+ RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleDnaCodesDieOpVhossMoetenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
+ RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse');
+ RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest');
RemClassRegistry.RegisterXSClass(ZoekViaBatchRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaBatchRequest');
+ RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest');
+ RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerResponse');
+ RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaKlantnummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
+ RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse');
RemClassRegistry.RegisterXSClass(ZoekViaBatchResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaBatchResponse');
RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaBatchResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
- RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse');
- RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString');
- RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenRequest');
- RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]');
+ RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest');
RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse');
- RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse');
+ RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest');
RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest');
- RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse');
- RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen');
+ RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest');
+ RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse');
+ RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse');
+ RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest');
RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest');
RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen');
- RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest');
+ RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen');
RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse');
RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]');
Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r451 -r466
--- ProScan/WS/Agent.pas (.../Agent.pas) (revision 451)
+++ ProScan/WS/Agent.pas (.../Agent.pas) (revision 466)
@@ -3,7 +3,7 @@
interface
uses
- DnaCodeService, GebruikerService, System.SysUtils, Vcl.Forms, UiContext, System.Classes;
+ DnaCodeService, GebruikerService, AfdrukService, System.SysUtils, Vcl.Forms, UiContext, System.Classes;
type
TAgent = class
@@ -12,6 +12,7 @@
fServer: string;
fGebruikerServiceSoap: GebruikerServiceSoap;
fDnaCodeServiceSoap: DnaCodeServiceSoap;
+ fAfdrukServiceSoap: AfdrukServiceSoap;
function ComputerName: String;
function WUserName: String;
public
@@ -53,7 +54,8 @@
if fServer = 'cache01' then
fNameSpace := 'admin1';
fGebruikerServiceSoap := GebruikerService.GetGebruikerServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.GebruikerService.cls',nil);
- fDnaCodeServiceSoap := DnaCodeService.GetDnaCodeServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.DnaCodeService.cls',nil)
+ fDnaCodeServiceSoap := DnaCodeService.GetDnaCodeServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.DnaCodeService.cls',nil);
+ fAfdrukServiceSoap := AfdrukService.GetAfdrukServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.AfdrukService.cls',nil);
end;
function TAgent.DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string;
@@ -85,11 +87,11 @@
function TAgent.GebruikerAanmelden(Initialen,
LoginCode: string): GebruikerAanmeldenResponse;
var
- Request: GebruikerAanmeldenRequest;
- Header: RequestHeader;
+ Request: GebruikerService.GebruikerAanmeldenRequest;
+ Header: GebruikerService.RequestHeader;
begin
Request := GebruikerAanmeldenRequest.Create;
- Header := RequestHeader.Create;
+ Header := GebruikerService.RequestHeader.Create;
try
Request.Initialen := Initialen;
Request.LoginCode := LoginCode;
@@ -106,11 +108,11 @@
function TAgent.GebruikerAfmelden(): boolean;
var
- Request: GebruikerAfmeldenRequest;
- Header: RequestHeader;
+ Request: GebruikerService.GebruikerAfmeldenRequest;
+ Header: GebruikerService.RequestHeader;
begin
Request := GebruikerAfmeldenRequest.Create;
- Header := RequestHeader.Create;
+ Header := GebruikerService.RequestHeader.Create;
try
Request.Initialen := fUiContext.Initialen;
Request.LoginCode := fUiContext.LoginCode;
@@ -347,13 +349,13 @@
function TAgent.ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
var
- Header: DnaCodeService.RequestHeader;
+ Header: AfdrukService.RequestHeader;
fProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest;
DnaCodesArray: ArrayOfStringString;
ii: integer;
begin
fProboxEtiketAfdrukkenRequest := ProboxEtiketAfdrukkenRequest.Create;
- Header := DnaCodeService.RequestHeader.Create;
+ Header := AfdrukService.RequestHeader.Create;
try
Header.Initialen := fUiContext.Initialen;
Header.ComputerNaam := FullName();
@@ -370,7 +372,7 @@
fProboxEtiketAfdrukkenRequest.DnaCodes := DnaCodesArray;
- result := fDnaCodeServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
+ result := fAfdrukServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
finally
fProboxEtiketAfdrukkenRequest.Free;
end;
Index: ProScan/ProScan.dproj
===================================================================
diff -u -r451 -r466
--- ProScan/ProScan.dproj (.../ProScan.dproj) (revision 451)
+++ ProScan/ProScan.dproj (.../ProScan.dproj) (revision 466)
@@ -70,7 +70,7 @@
true
- displaymode=desktop server=tve-w10
+ displaymode=desktop server=cacheaccept2010
ProScan_Icon.ico
true
1033
@@ -135,6 +135,7 @@
dfm
+
Cfg_2
Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r451 -r466
--- ProScan/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 451)
+++ ProScan/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 466)
@@ -5,7 +5,7 @@
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
- Vcl.StdCtrls, DnaCodeService, Vcl.ExtCtrls, Images, Vcl.Imaging.pngimage, System.StrUtils;
+ Vcl.StdCtrls, DnaCodeService, AfdrukService, Vcl.ExtCtrls, Images, Vcl.Imaging.pngimage, System.StrUtils;
type
TfmDnaCodeScherm = class(TfmDrieKnoppenScherm)
Index: ProScan/ProScan.dpr
===================================================================
diff -u -r451 -r466
--- ProScan/ProScan.dpr (.../ProScan.dpr) (revision 451)
+++ ProScan/ProScan.dpr (.../ProScan.dpr) (revision 466)
@@ -21,6 +21,7 @@
CommonFunctions in 'UI\CommonFunctions.pas',
MidasLib,
OnvolledigeToeleveringScherm in 'UI\OnvolledigeToeleveringScherm.pas' {fmOnvolledigeToeleveringScherm},
+ AfdrukService in 'WS\AfdrukService.pas',
DnaCodeService in 'WS\DnaCodeService.pas';
{$R *.res}
Index: ProScan/WS/AfdrukService.pas
===================================================================
diff -u
--- ProScan/WS/AfdrukService.pas (revision 0)
+++ ProScan/WS/AfdrukService.pas (revision 466)
@@ -0,0 +1,304 @@
+// ************************************************************************ //
+// The types declared in this file were generated from data read from the
+// WSDL File described below:
+// WSDL : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.CLS?WSDL=1
+// >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.CLS?WSDL=1>0
+// Encoding : UTF-8
+// Version : 1.0
+// (29/07/2020 10:26:50 - - $Rev: 45757 $)
+// ************************************************************************ //
+
+unit AfdrukService;
+
+interface
+
+uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
+
+const
+ IS_OPTN = $0001;
+ IS_UNBD = $0002;
+ IS_NLBL = $0004;
+ IS_REF = $0080;
+
+
+type
+
+ // ************************************************************************ //
+ // The following types, referred to in the WSDL document are not being represented
+ // in this file. They are either aliases[@] of other types represented or were referred
+ // to but never[!] declared in the document. The types from the latter category
+ // typically map to predefined/known XML or Embarcadero types; however, they could also
+ // indicate incorrect WSDL documents that failed to declare or import a schema type.
+ // ************************************************************************ //
+ // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl]
+
+ ProductEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ KlantEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ ProductEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+ KlantEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+
+ String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblSmpl] }
+ ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] }
+
+
+ // ************************************************************************ //
+ // XML : ProductEtiketAfdrukkenRequest, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ ProductEtiketAfdrukkenRequest = class(TRemotable)
+ private
+ FHeader: RequestHeader;
+ FDnaCodes: ArrayOfStringString;
+ public
+ destructor Destroy; override;
+ published
+ property Header: RequestHeader read FHeader write FHeader;
+ property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes;
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : KlantEtiketAfdrukkenRequest, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ KlantEtiketAfdrukkenRequest = class(TRemotable)
+ private
+ FHeader: RequestHeader;
+ FDnaCodes: ArrayOfStringString;
+ public
+ destructor Destroy; override;
+ published
+ property Header: RequestHeader read FHeader write FHeader;
+ property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes;
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : RequestHeader, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ RequestHeader = class(TRemotable)
+ private
+ FInitialen: String_;
+ FComputerNaam: String_;
+ published
+ property Initialen: String_ read FInitialen write FInitialen;
+ property ComputerNaam: String_ read FComputerNaam write FComputerNaam;
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : ResponseHeader, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ ResponseHeader = class(TRemotable)
+ private
+ FStatus: String_;
+ FOmschrijving: String_;
+ published
+ property Status: String_ read FStatus write FStatus;
+ property Omschrijving: String_ read FOmschrijving write FOmschrijving;
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : ProboxEtiketAfdrukkenRequest, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ ProboxEtiketAfdrukkenRequest = class(TRemotable)
+ private
+ FHeader: RequestHeader;
+ FDnaCodes: ArrayOfStringString;
+ public
+ destructor Destroy; override;
+ published
+ property Header: RequestHeader read FHeader write FHeader;
+ property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes;
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : DataTransferObject, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ DataTransferObject = class(TRemotable)
+ private
+ published
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : GeneriekeResponse, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ GeneriekeResponse = class(DataTransferObject)
+ private
+ FHeader: ResponseHeader;
+ public
+ destructor Destroy; override;
+ published
+ property Header: ResponseHeader read FHeader write FHeader;
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : ProductEtiketAfdrukkenResponse, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ ProductEtiketAfdrukkenResponse = class(GeneriekeResponse)
+ private
+ published
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : ProboxEtiketAfdrukkenResponse, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse)
+ private
+ published
+ end;
+
+
+
+ // ************************************************************************ //
+ // XML : KlantEtiketAfdrukkenResponse, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // ************************************************************************ //
+ KlantEtiketAfdrukkenResponse = class(GeneriekeResponse)
+ private
+ published
+ end;
+
+
+ // ************************************************************************ //
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk
+ // soapAction: http://www.vanhoecke.be/Halux/AAP/Afdruk/WS.Halux.AAP.AfdrukService.%operationName%
+ // transport : http://schemas.xmlsoap.org/soap/http
+ // style : document
+ // use : literal
+ // binding : AfdrukServiceSoap
+ // service : AfdrukService
+ // port : AfdrukServiceSoap
+ // URL : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.cls
+ // ************************************************************************ //
+ AfdrukServiceSoap = interface(IInvokable)
+ ['{7DFC4969-9BAE-1639-C2E3-2B1C7F9C77C5}']
+ function KlantEtiketAfdrukken(const KlantEtiketAfdrukkenRequest: KlantEtiketAfdrukkenRequest): KlantEtiketAfdrukkenResponse; stdcall;
+ function ProboxEtiketAfdrukken(const ProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest): ProboxEtiketAfdrukkenResponse; stdcall;
+ function ProductEtiketAfdrukken(const ProductEtiketAfdrukkenRequest: ProductEtiketAfdrukkenRequest): ProductEtiketAfdrukkenResponse; stdcall;
+ end;
+
+function GetAfdrukServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): AfdrukServiceSoap;
+
+
+implementation
+ uses SysUtils;
+
+function GetAfdrukServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): AfdrukServiceSoap;
+const
+ defWSDL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.CLS?WSDL=1';
+ defURL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.cls';
+ defSvc = 'AfdrukService';
+ defPrt = 'AfdrukServiceSoap';
+var
+ RIO: THTTPRIO;
+begin
+ Result := nil;
+ if (Addr = '') then
+ begin
+ if UseWSDL then
+ Addr := defWSDL
+ else
+ Addr := defURL;
+ end;
+ if HTTPRIO = nil then
+ RIO := THTTPRIO.Create(nil)
+ else
+ RIO := HTTPRIO;
+ try
+ Result := (RIO as AfdrukServiceSoap);
+ if UseWSDL then
+ begin
+ RIO.WSDLLocation := Addr;
+ RIO.Service := defSvc;
+ RIO.Port := defPrt;
+ end else
+ RIO.URL := Addr;
+ finally
+ if (Result = nil) and (HTTPRIO = nil) then
+ RIO.Free;
+ end;
+end;
+
+
+destructor ProductEtiketAfdrukkenRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
+destructor KlantEtiketAfdrukkenRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
+destructor ProboxEtiketAfdrukkenRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
+destructor GeneriekeResponse.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
+initialization
+ { AfdrukServiceSoap }
+ InvRegistry.RegisterInterface(TypeInfo(AfdrukServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'UTF-8');
+ InvRegistry.RegisterDefaultSOAPAction(TypeInfo(AfdrukServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/Afdruk/WS.Halux.AAP.AfdrukService.%operationName%');
+ InvRegistry.RegisterInvokeOptions(TypeInfo(AfdrukServiceSoap), ioDocument);
+ { AfdrukServiceSoap.KlantEtiketAfdrukken }
+ InvRegistry.RegisterMethodInfo(TypeInfo(AfdrukServiceSoap), 'KlantEtiketAfdrukken', '',
+ '[ReturnName="KlantEtiketAfdrukkenResult"]');
+ { AfdrukServiceSoap.ProboxEtiketAfdrukken }
+ InvRegistry.RegisterMethodInfo(TypeInfo(AfdrukServiceSoap), 'ProboxEtiketAfdrukken', '',
+ '[ReturnName="ProboxEtiketAfdrukkenResult"]');
+ { AfdrukServiceSoap.ProductEtiketAfdrukken }
+ InvRegistry.RegisterMethodInfo(TypeInfo(AfdrukServiceSoap), 'ProductEtiketAfdrukken', '',
+ '[ReturnName="ProductEtiketAfdrukkenResult"]');
+ RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'String_', 'String');
+ RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ArrayOfStringString');
+ RemClassRegistry.RegisterXSClass(ProductEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ProductEtiketAfdrukkenRequest');
+ RemClassRegistry.RegisterExternalPropName(TypeInfo(ProductEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]');
+ RemClassRegistry.RegisterXSClass(KlantEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'KlantEtiketAfdrukkenRequest');
+ RemClassRegistry.RegisterExternalPropName(TypeInfo(KlantEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]');
+ RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'RequestHeader');
+ RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ResponseHeader');
+ RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ProboxEtiketAfdrukkenRequest');
+ RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]');
+ RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'DataTransferObject');
+ RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'GeneriekeResponse');
+ RemClassRegistry.RegisterXSClass(ProductEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ProductEtiketAfdrukkenResponse');
+ RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ProboxEtiketAfdrukkenResponse');
+ RemClassRegistry.RegisterXSClass(KlantEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'KlantEtiketAfdrukkenResponse');
+
+end.
\ No newline at end of file