Index: PlanScan/PlanScan.dproj =================================================================== diff -u -r463 -r468 --- PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 463) +++ PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 468) @@ -116,9 +116,9 @@
fmKlantinstellingenDetail
dfm - + Cfg_2 Index: PlanScan/PlanScan.dproj.local =================================================================== diff -u -r457 -r468 --- PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 457) +++ PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 468) @@ -2,73 +2,76 @@ 2020/02/17 10:05:16.000.600,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas - 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm=E:\svn\Delphi\PlanScan\Main.dfm - 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas=E:\svn\Delphi\PlanScan\Main.pas - 2020/02/17 10:06:12.000.996,C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj=E:\svn\Delphi\PlanScan\PlanScan.dproj - 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas + 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas + 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm + 2020/02/17 10:06:12.000.996,E:\svn\Delphi\PlanScan\PlanScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj 2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas - 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history + 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas 2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history 2020/02/17 11:12:28.000.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas 2020/02/17 11:13:01.000.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas= 2020/02/17 11:14:30.000.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas 2020/02/17 11:16:33.000.742,=E:\svn\Delphi\PlanScan\UI\Images.pas 2020/02/18 08:16:12.000.093,=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 08:21:57.000.780,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/02/18 08:32:28.000.107,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= 2020/02/18 08:32:46.000.480,=E:\svn\Delphi\PlanScan\WS.pas - 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/02/18 11:21:59.000.209,=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 11:22:27.000.481,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/03/02 09:30:33.000.825,=E:\svn\Delphi\PlanScan\WS.pas 2020/03/02 09:30:46.000.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas= - 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas + 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/03/04 11:43:31.000.229,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm - 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\LoginScherm.pas + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 08:48:05.000.552,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas - 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm - 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm - 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas + 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm + 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas 2020/04/20 09:21:17.000.241,=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 10:46:18.000.858,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\frameGebruikers.pas - 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm + 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.pas=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/21 13:47:35.000.169,=E:\svn\Delphi\PlanScan\WS.pas 2020/04/21 13:47:43.000.211,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/04/21 13:47:54.000.335,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/04/21 13:47:54.000.335,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/04/28 16:29:21.000.325,=E:\svn\Delphi\PlanScan\WS.pas 2020/04/28 16:29:32.000.030,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/04/28 16:29:49.000.701,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/04/28 16:29:49.000.701,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/05/06 15:48:04.000.623,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/05/06 15:48:51.000.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm - 2020/05/06 15:48:51.000.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.pas=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/05/06 15:48:51.000.604,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.dfm + 2020/05/06 15:48:51.000.604,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.pas 2020/05/07 08:09:33.000.580,=E:\svn\Delphi\PlanScan\WS.pas 2020/05/07 08:09:44.000.951,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/05/07 08:10:20.000.303,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/05/07 08:10:20.000.303,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/05/07 08:37:58.000.610,=E:\svn\Delphi\PlanScan\WS.pas 2020/05/07 08:38:23.000.569,=E:\svn\Delphi\PlanScan\WS.pas 2020/05/07 08:38:31.000.739,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas= - 2020/05/07 08:38:57.000.386,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/05/07 08:38:57.000.386,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas 2020/05/07 11:27:31.000.777,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/05/07 11:28:03.000.538,E:\svn\Delphi\PlanScan\UI\KlantinstellingenDetailScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/05/07 11:28:03.000.538,E:\svn\Delphi\PlanScan\UI\KlantinstellingenDetailScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/05/07 11:28:03.000.538,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\KlantinstellingenDetailScherm.dfm + 2020/05/07 11:28:03.000.538,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\KlantinstellingenDetailScherm.pas 2020/06/22 09:45:59.000.420,=E:\svn\Delphi\PlanScan\WS.pas 2020/06/22 09:46:07.000.509,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/06/22 09:46:23.000.552,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/06/22 09:46:23.000.552,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/06/22 10:13:59.000.200,=E:\svn\Delphi\PlanScan\WS.pas 2020/06/22 10:14:25.000.473,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/06/22 10:14:54.000.776,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/06/22 10:14:54.000.776,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/06/30 12:02:40.000.659,=E:\svn\Delphi\PlanScan\WS.pas 2020/06/30 12:03:20.000.988,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas= 2020/06/30 12:04:00.000.987,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/06/30 12:04:28.000.864,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/06/30 12:04:28.000.864,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/06/30 12:04:53.000.617,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas - 2020/07/14 14:42:35.095,=E:\svn\Delphi\PlanScan\WS.pas - 2020/07/14 14:43:07.741,E:\svn\Delphi\PlanScan\WS\AfdrukService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/07/14 14:42:35.000.095,=E:\svn\Delphi\PlanScan\WS.pas + 2020/07/14 14:43:07.000.741,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\AfdrukService.pas + 2020/07/30 14:51:51.877,=E:\svn\Delphi\PlanScan\WS.pas + 2020/07/30 14:52:02.905,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= + 2020/07/30 14:52:16.466,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas @@ -86,10 +89,10 @@ - + Index: PlanScan/WS/DnaCodeService.pas =================================================================== diff -u -r437 -r468 --- PlanScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 437) +++ PlanScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 468) @@ -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 -// (30/06/2020 12:02:40 - - $Rev: 45757 $) +// (30/07/2020 14:51:51 - - $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,45 +105,6 @@ // ************************************************************************ // - // XML : DnaCodeAfmeldenRequest, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - DnaCodeAfmeldenRequest = class(TRemotable) - private - FHeader: RequestHeader; - FDnaCode: string; - FAantal: Int64; - FAantal_Specified: boolean; - FToelevering: string; - FToelevering_Specified: boolean; - FPalletCode: string; - FLocatie: string; - FLocatie_Specified: boolean; - FGuiVhossVolgnummer: string; - FGuiVhossVolgnummer_Specified: boolean; - procedure SetAantal(Index: Integer; const AInt64: Int64); - function Aantal_Specified(Index: Integer): boolean; - procedure SetToelevering(Index: Integer; const Astring: string); - function Toelevering_Specified(Index: Integer): boolean; - procedure SetLocatie(Index: Integer; const Astring: string); - function Locatie_Specified(Index: Integer): 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 Aantal: Int64 Index (IS_OPTN) read FAantal write SetAantal stored Aantal_Specified; - property Toelevering: string Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified; - property PalletCode: string read FPalletCode write FPalletCode; - property Locatie: string Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified; - property GuiVhossVolgnummer: string Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified; - end; - - - - // ************************************************************************ // // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -170,18 +129,40 @@ // ************************************************************************ // - // XML : DirecteLeveringRequest, global, + // XML : DnaCodeAfmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringRequest = class(TRemotable) + DnaCodeAfmeldenRequest = class(TRemotable) private FHeader: RequestHeader; + FDnaCode: string; + FAantal: Int64; + FAantal_Specified: boolean; FToelevering: string; + FToelevering_Specified: boolean; + FPalletCode: string; + FLocatie: string; + FLocatie_Specified: boolean; + FBatchId: string; + FBatchId_Specified: boolean; + procedure SetAantal(Index: Integer; const AInt64: Int64); + function Aantal_Specified(Index: Integer): boolean; + procedure SetToelevering(Index: Integer; const Astring: string); + function Toelevering_Specified(Index: Integer): boolean; + procedure SetLocatie(Index: Integer; const Astring: string); + function Locatie_Specified(Index: Integer): boolean; + procedure SetBatchId(Index: Integer; const Astring: string); + function BatchId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; + property DnaCode: string read FDnaCode write FDnaCode; + property Aantal: Int64 Index (IS_OPTN) read FAantal write SetAantal stored Aantal_Specified; + property Toelevering: string Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified; + property PalletCode: string read FPalletCode write FPalletCode; + property Locatie: string Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified; + property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; end; @@ -361,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); @@ -395,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 @@ -415,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; @@ -495,46 +481,28 @@ FAantalReedsGescand_Specified: boolean; FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; - FInterneVhossKastId: string; - FInterneVhossKastId_Specified: boolean; + FBatchId: string; + FBatchId_Specified: boolean; procedure SetAantalInToelevering(Index: Integer; const AInt64: Int64); function AantalInToelevering_Specified(Index: Integer): boolean; procedure SetAantalReedsGescand(Index: Integer; const AInt64: Int64); function AantalReedsGescand_Specified(Index: Integer): boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; - procedure SetInterneVhossKastId(Index: Integer; const Astring: string); - function InterneVhossKastId_Specified(Index: Integer): boolean; + procedure SetBatchId(Index: Integer; const Astring: string); + function BatchId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property AantalInToelevering: Int64 Index (IS_OPTN) read FAantalInToelevering write SetAantalInToelevering stored AantalInToelevering_Specified; property AantalReedsGescand: Int64 Index (IS_OPTN) read FAantalReedsGescand write SetAantalReedsGescand stored AantalReedsGescand_Specified; property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; - property InterneVhossKastId: string Index (IS_OPTN) read FInterneVhossKastId write SetInterneVhossKastId stored InterneVhossKastId_Specified; + property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; end; // ************************************************************************ // - // 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 +626,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 +666,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 +712,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 +782,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 +817,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 +896,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 +968,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 +1007,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 +1070,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); @@ -1136,40 +1126,17 @@ Result := FLocatie_Specified; end; -procedure DnaCodeAfmeldenRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenRequest.SetBatchId(Index: Integer; const Astring: string); begin - FGuiVhossVolgnummer := Astring; - FGuiVhossVolgnummer_Specified := True; + FBatchId := Astring; + FBatchId_Specified := True; end; -function DnaCodeAfmeldenRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenRequest.BatchId_Specified(Index: Integer): boolean; begin - Result := FGuiVhossVolgnummer_Specified; + 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); @@ -1203,6 +1170,7 @@ destructor DnaCode.Destroy; begin SysUtils.FreeAndNil(FScanTijdstip); + SysUtils.FreeAndNil(FAfdrukTijdstip); inherited Destroy; end; @@ -1393,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); @@ -1484,38 +1463,17 @@ Result := FDnaCodes_Specified; end; -procedure DnaCodeAfmeldenResponse.SetInterneVhossKastId(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenResponse.SetBatchId(Index: Integer; const Astring: string); begin - FInterneVhossKastId := Astring; - FInterneVhossKastId_Specified := True; + FBatchId := Astring; + FBatchId_Specified := True; end; -function DnaCodeAfmeldenResponse.InterneVhossKastId_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.BatchId_Specified(Index: Integer): boolean; begin - Result := FInterneVhossKastId_Specified; + 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 +1646,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 +1673,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 +1711,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 +1733,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 +1761,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 +1782,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 +1851,6 @@ Result := FAantalKaderdeurenGescand_Specified; end; -destructor RondAfKaderdeurDagRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - destructor RondAfKaderdeurDagResponse.Destroy; var I: Integer; @@ -1916,9 +1895,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 +1935,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 +1955,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 +1964,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: PlanScan/PlanScan.dpr =================================================================== diff -u -r463 -r468 --- PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 463) +++ PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 468) @@ -16,9 +16,9 @@ frameGebruikers in 'UI\frameGebruikers.pas' {frmGebruikers: TFrame}, frameKlantinstellingen in 'UI\frameKlantinstellingen.pas' {frmKlantinstellingen: TFrame}, KlantinstellingenDetailScherm in 'UI\KlantinstellingenDetailScherm.pas' {fmKlantinstellingenDetail}, - DnaCodeService in 'WS\DnaCodeService.pas', GebruikerService in 'WS\GebruikerService.pas', - AfdrukService in 'WS\AfdrukService.pas'; + AfdrukService in 'WS\AfdrukService.pas', + DnaCodeService in 'WS\DnaCodeService.pas'; {$R *.res}