Index: ProScan/ProScan.dproj.local =================================================================== diff -u -r405 -r425 --- ProScan/ProScan.dproj.local (.../ProScan.dproj.local) (revision 405) +++ ProScan/ProScan.dproj.local (.../ProScan.dproj.local) (revision 425) @@ -37,12 +37,12 @@ 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.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm 2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas - 2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\UI\PalletScherm.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 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/08 13:41:42.000.692,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/08 13:43:18.000.168,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm @@ -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.pas=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas 2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.dfm + 2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas 2019/03/18 11:06:46.000.842,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/18 11:07:10.000.880,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/03/18 11:07:23.000.750,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas @@ -88,8 +88,8 @@ 2019/09/06 07:46:50.000.159,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas 2019/09/09 10:12:07.000.120,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas= 2019/09/25 09:00:58.000.441,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/09/25 09:40:05.000.670,E:\svn\Delphi\AAPClient\UI\DnaCodeReedsGescandScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/09/25 09:40:05.000.670,E:\svn\Delphi\AAPClient\UI\DnaCodeReedsGescandScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/09/25 09:40:05.000.670,E:\svn\Delphi\AAPClient\UI\DnaCodeReedsGescandScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/10/01 13:49:36.000.449,=E:\svn\Delphi\AAPClient\WS.pas 2019/10/01 13:49:56.000.314,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/10/01 13:50:07.000.220,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas @@ -145,6 +145,9 @@ 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 @@ -176,8 +179,8 @@ - + Index: ProScan/WS/DnaCodeService.pas =================================================================== diff -u -r396 -r425 --- ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 396) +++ ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 425) @@ -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 -// (3/06/2020 17:24:09 - - $Rev: 45757 $) +// (30/06/2020 8:56:11 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -245,13 +245,17 @@ FActie: string; FKlantId: string; FIsExport: Boolean; + FWegwerpPallet: Boolean; + FMeerdereToeleveringen: Boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Actie: string read FActie write FActie; - property KlantId: string read FKlantId write FKlantId; - property IsExport: Boolean read FIsExport write FIsExport; + property Header: RequestHeader read FHeader write FHeader; + property Actie: string read FActie write FActie; + property KlantId: string read FKlantId write FKlantId; + property IsExport: Boolean read FIsExport write FIsExport; + property WegwerpPallet: Boolean read FWegwerpPallet write FWegwerpPallet; + property MeerdereToeleveringen: Boolean read FMeerdereToeleveringen write FMeerdereToeleveringen; end; @@ -519,12 +523,17 @@ private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; + FMeerdereToeleveringenToegestaan: Boolean; + FMeerdereToeleveringenToegestaan_Specified: boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; + procedure SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); + function MeerdereToeleveringenToegestaan_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; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property MeerdereToeleveringenToegestaan: Boolean Index (IS_OPTN) read FMeerdereToeleveringenToegestaan write SetMeerdereToeleveringenToegestaan stored MeerdereToeleveringenToegestaan_Specified; end; @@ -605,16 +614,26 @@ FKlantnaam_Specified: boolean; FIsExport: Boolean; FIsExport_Specified: boolean; + FWegwerpPallet: Boolean; + FWegwerpPallet_Specified: boolean; + FMeerdereToeleveringen: Boolean; + FMeerdereToeleveringen_Specified: boolean; procedure SetKlantId(Index: Integer; const Astring: string); function KlantId_Specified(Index: Integer): boolean; procedure SetKlantnaam(Index: Integer; const Astring: string); function Klantnaam_Specified(Index: Integer): boolean; procedure SetIsExport(Index: Integer; const ABoolean: Boolean); function IsExport_Specified(Index: Integer): boolean; + procedure SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); + function WegwerpPallet_Specified(Index: Integer): boolean; + procedure SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); + function MeerdereToeleveringen_Specified(Index: Integer): boolean; published - property KlantId: string Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified; - property Klantnaam: string Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified; - property IsExport: Boolean Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified; + property KlantId: string Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified; + property Klantnaam: string Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified; + property IsExport: Boolean Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified; + property WegwerpPallet: Boolean Index (IS_OPTN) read FWegwerpPallet write SetWegwerpPallet stored WegwerpPallet_Specified; + property MeerdereToeleveringen: Boolean Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified; end; @@ -1474,6 +1493,17 @@ Result := FDnaCodes_Specified; end; +procedure ZoekViaPalletCodeResponse.SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); +begin + FMeerdereToeleveringenToegestaan := ABoolean; + FMeerdereToeleveringenToegestaan_Specified := True; +end; + +function ZoekViaPalletCodeResponse.MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean; +begin + Result := FMeerdereToeleveringenToegestaan_Specified; +end; + destructor ZoekViaToeleveringResponse.Destroy; var I: Integer; @@ -1592,6 +1622,28 @@ Result := FIsExport_Specified; end; +procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); +begin + FWegwerpPallet := ABoolean; + FWegwerpPallet_Specified := True; +end; + +function Klantinstellingen.WegwerpPallet_Specified(Index: Integer): boolean; +begin + Result := FWegwerpPallet_Specified; +end; + +procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); +begin + FMeerdereToeleveringen := ABoolean; + FMeerdereToeleveringen_Specified := True; +end; + +function Klantinstellingen.MeerdereToeleveringen_Specified(Index: Integer): boolean; +begin + Result := FMeerdereToeleveringen_Specified; +end; + destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader);