Index: AAPClient/WS/DnaCodeService.pas =================================================================== diff -u -r384 -r390 --- AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 384) +++ AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 390) @@ -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 -// (2/06/2020 10:32:10 - - $Rev: 45757 $) +// (3/06/2020 17:24:09 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -44,38 +44,40 @@ ZoekViaOrdernummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } BewerkKlantinstellingenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - Klantinstellingen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } BewerkKlantinstellingenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } 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] } - ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + Klantinstellingen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringBijwerkenResponse = 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] } ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekAlleDnaCodesDieOpVhossMoetenResponse = 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] } ZoekAlleVhossLadesBijDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekAlleVhossLadesBijDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - PalletBijwerkenRequest = 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] } - HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -99,7 +101,6 @@ property Header: RequestHeader read FHeader write FHeader; end; - ArrayOfKlantinstellingenKlantinstellingen = array of Klantinstellingen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -271,6 +272,22 @@ // ************************************************************************ // + // XML : ResponseHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ResponseHeader = class(TRemotable) + private + FStatus: String_; + FOmschrijving: String_; + published + property Status: String_ read FStatus write FStatus; + property Omschrijving: String_ read FOmschrijving write FOmschrijving; + end; + + ArrayOfKlantinstellingenKlantinstellingen = array of Klantinstellingen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + + + // ************************************************************************ // // XML : DataTransferObject, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -380,47 +397,6 @@ // ************************************************************************ // - // XML : ResponseHeader, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - 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 : Klantinstellingen, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - Klantinstellingen = class(DataTransferObject) - private - FKlantId: string; - FKlantId_Specified: boolean; - FKlantnaam: string; - FKlantnaam_Specified: boolean; - FIsExport: Boolean; - FIsExport_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; - 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; - end; - - - - // ************************************************************************ // // XML : GeneriekeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -467,6 +443,24 @@ // ************************************************************************ // + // XML : HernoemPalletResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + HernoemPalletResponse = 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 : DnaCodeAfmeldenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -600,18 +594,27 @@ // ************************************************************************ // - // XML : ValideerPalletCodeRequest, global, + // XML : Klantinstellingen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + Klantinstellingen = class(DataTransferObject) private - FHeader: RequestHeader; - FPalletCode: string; - public - destructor Destroy; override; + FKlantId: string; + FKlantId_Specified: boolean; + FKlantnaam: string; + FKlantnaam_Specified: boolean; + FIsExport: Boolean; + FIsExport_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; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + 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; end; @@ -628,18 +631,40 @@ // ************************************************************************ // - // XML : ToeleveringBijwerkenResponse, global, + // XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenResponse = class(GeneriekeResponse) + ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable) private + FHeader: RequestHeader; + FFrameId: string; + public + destructor Destroy; override; published + property Header: RequestHeader read FHeader write FHeader; + property FrameId: string read FFrameId write FFrameId; end; - ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // + // XML : ValideerPalletCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + 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; + + + + // ************************************************************************ // // XML : ToeleveringBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -661,6 +686,35 @@ // ************************************************************************ // + // XML : ToeleveringBijwerkenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ToeleveringBijwerkenResponse = class(GeneriekeResponse) + private + published + end; + + + + // ************************************************************************ // + // XML : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekAlleDnaCodesDieOpVhossMoetenResponse = 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 : ZoekViaDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -753,27 +807,12 @@ // ************************************************************************ // - // XML : ToeleveringMetAantallen, global, + // XML : PalletBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringMetAantallen = class(DataTransferObject) + PalletBijwerkenResponse = class(GeneriekeResponse) private - FToeleveringID: string; - FToeleveringID_Specified: boolean; - FAantalKaderdeuren: string; - FAantalKaderdeuren_Specified: boolean; - FAantalKaderdeurenGescand: string; - FAantalKaderdeurenGescand_Specified: boolean; - procedure SetToeleveringID(Index: Integer; const Astring: string); - function ToeleveringID_Specified(Index: Integer): boolean; - procedure SetAantalKaderdeuren(Index: Integer; const Astring: string); - function AantalKaderdeuren_Specified(Index: Integer): boolean; - procedure SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); - function AantalKaderdeurenGescand_Specified(Index: Integer): boolean; published - property ToeleveringID: string Index (IS_OPTN) read FToeleveringID write SetToeleveringID stored ToeleveringID_Specified; - property AantalKaderdeuren: string Index (IS_OPTN) read FAantalKaderdeuren write SetAantalKaderdeuren stored AantalKaderdeuren_Specified; - property AantalKaderdeurenGescand: string Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified; end; @@ -800,12 +839,18 @@ // ************************************************************************ // - // XML : PalletBijwerkenResponse, global, + // XML : DirecteLeveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenResponse = class(GeneriekeResponse) + 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; @@ -821,58 +866,51 @@ property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; + ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : HernoemPalletResponse, global, + // XML : ProboxEtiketAfdrukkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - HernoemPalletResponse = class(GeneriekeResponse) + ProboxEtiketAfdrukkenRequest = class(TRemotable) 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 : DirecteLeveringRequest, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - DirecteLeveringRequest = class(TRemotable) - private FHeader: RequestHeader; - FToelevering: string; + FDnaCodes: ArrayOfStringString; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; + property Header: RequestHeader read FHeader write FHeader; + property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; end; // ************************************************************************ // - // XML : RondAfKaderdeurDagRequest, global, + // XML : ToeleveringMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfKaderdeurDagRequest = class(TRemotable) + ToeleveringMetAantallen = class(DataTransferObject) private - FHeader: RequestHeader; - FDnaCode: String_; - public - destructor Destroy; override; + FToeleveringID: string; + FToeleveringID_Specified: boolean; + FAantalKaderdeuren: string; + FAantalKaderdeuren_Specified: boolean; + FAantalKaderdeurenGescand: string; + FAantalKaderdeurenGescand_Specified: boolean; + procedure SetToeleveringID(Index: Integer; const Astring: string); + function ToeleveringID_Specified(Index: Integer): boolean; + procedure SetAantalKaderdeuren(Index: Integer; const Astring: string); + function AantalKaderdeuren_Specified(Index: Integer): boolean; + procedure SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); + function AantalKaderdeurenGescand_Specified(Index: Integer): boolean; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: String_ read FDnaCode write FDnaCode; + property ToeleveringID: string Index (IS_OPTN) read FToeleveringID write SetToeleveringID stored ToeleveringID_Specified; + property AantalKaderdeuren: string Index (IS_OPTN) read FAantalKaderdeuren write SetAantalKaderdeuren stored AantalKaderdeuren_Specified; + 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] } // ************************************************************************ // @@ -902,22 +940,21 @@ published end; - ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenRequest, global, + // XML : RondAfKaderdeurDagRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenRequest = class(TRemotable) + RondAfKaderdeurDagRequest = class(TRemotable) private FHeader: RequestHeader; - FDnaCodes: ArrayOfStringString; + FDnaCode: 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 DnaCode: String_ read FDnaCode write FDnaCode; end; @@ -944,6 +981,7 @@ function RondAfKaderdeurDag(const RondAfKaderdeurDagRequest: RondAfKaderdeurDagRequest): RondAfKaderdeurDagResponse; stdcall; function ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall; function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; + function ZoekAlleDnaCodesDieOpVhossMoeten(const ZoekAlleDnaCodesDieOpVhossMoetenRequest: ZoekAlleDnaCodesDieOpVhossMoetenRequest): ZoekAlleDnaCodesDieOpVhossMoetenResponse; stdcall; function ZoekAlleVhossLadesBijDnaCode(const ZoekAlleVhossLadesBijDnaCode: ZoekAlleVhossLadesBijDnaCodeRequest): ZoekAlleVhossLadesBijDnaCodeResponse; stdcall; function ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall; function ZoekViaKlantnummer(const ZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest): ZoekViaKlantnummerResponse; stdcall; @@ -1292,39 +1330,6 @@ Result := FBatchId_Specified; end; -procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string); -begin - FKlantId := Astring; - FKlantId_Specified := True; -end; - -function Klantinstellingen.KlantId_Specified(Index: Integer): boolean; -begin - Result := FKlantId_Specified; -end; - -procedure Klantinstellingen.SetKlantnaam(Index: Integer; const Astring: string); -begin - FKlantnaam := Astring; - FKlantnaam_Specified := True; -end; - -function Klantinstellingen.Klantnaam_Specified(Index: Integer): boolean; -begin - Result := FKlantnaam_Specified; -end; - -procedure Klantinstellingen.SetIsExport(Index: Integer; const ABoolean: Boolean); -begin - FIsExport := ABoolean; - FIsExport_Specified := True; -end; - -function Klantinstellingen.IsExport_Specified(Index: Integer): boolean; -begin - Result := FIsExport_Specified; -end; - destructor GeneriekeResponse.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1352,6 +1357,27 @@ Result := FKlantinstellingen_Specified; end; +destructor HernoemPalletResponse.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 HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +begin + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; +end; + +function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean; +begin + Result := FDnaCodes_Specified; +end; + destructor DnaCodeAfmeldenResponse.Destroy; var I: Integer; @@ -1533,6 +1559,45 @@ Result := FDnaCodes_Specified; end; +procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string); +begin + FKlantId := Astring; + FKlantId_Specified := True; +end; + +function Klantinstellingen.KlantId_Specified(Index: Integer): boolean; +begin + Result := FKlantId_Specified; +end; + +procedure Klantinstellingen.SetKlantnaam(Index: Integer; const Astring: string); +begin + FKlantnaam := Astring; + FKlantnaam_Specified := True; +end; + +function Klantinstellingen.Klantnaam_Specified(Index: Integer): boolean; +begin + Result := FKlantnaam_Specified; +end; + +procedure Klantinstellingen.SetIsExport(Index: Integer; const ABoolean: Boolean); +begin + FIsExport := ABoolean; + FIsExport_Specified := True; +end; + +function Klantinstellingen.IsExport_Specified(Index: Integer): boolean; +begin + Result := FIsExport_Specified; +end; + +destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor ValideerPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1545,6 +1610,27 @@ inherited Destroy; end; +destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.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 ZoekAlleDnaCodesDieOpVhossMoetenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +begin + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; +end; + +function ZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes_Specified(Index: Integer): boolean; +begin + Result := FDnaCodes_Specified; +end; + destructor ZoekViaDnaCodeResponse.Destroy; begin SysUtils.FreeAndNil(FDnaCodes); @@ -1612,6 +1698,24 @@ Result := FDnaCodes_Specified; end; +destructor PalletBijwerkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor DirecteLeveringRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ProboxEtiketAfdrukkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string); begin FToeleveringID := Astring; @@ -1645,45 +1749,6 @@ Result := FAantalKaderdeurenGescand_Specified; end; -destructor PalletBijwerkenRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - -destructor HernoemPalletResponse.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 HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); -begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; -end; - -function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean; -begin - Result := FDnaCodes_Specified; -end; - -destructor DirecteLeveringRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - -destructor RondAfKaderdeurDagRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - destructor RondAfKaderdeurDagResponse.Destroy; var I: Integer; @@ -1705,7 +1770,7 @@ Result := FToeleveringMetAantallen_Specified; end; -destructor ProboxEtiketAfdrukkenRequest.Destroy; +destructor RondAfKaderdeurDagRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; @@ -1746,6 +1811,9 @@ { DnaCodeServiceSoap.ValideerPalletCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ValideerPalletCode', '', '[ReturnName="ValideerPalletCodeResult"]'); + { DnaCodeServiceSoap.ZoekAlleDnaCodesDieOpVhossMoeten } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekAlleDnaCodesDieOpVhossMoeten', '', + '[ReturnName="ZoekAlleDnaCodesDieOpVhossMoetenResult"]'); { DnaCodeServiceSoap.ZoekAlleVhossLadesBijDnaCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekAlleVhossLadesBijDnaCode', '', '[ReturnName="ZoekAlleVhossLadesBijDnaCodeResult"]'); @@ -1768,9 +1836,8 @@ InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '', '[ReturnName="ZoekViaToeleveringResult"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); - RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); - RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKlantinstellingenKlantinstellingen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfKlantinstellingenKlantinstellingen'); + 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(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); @@ -1780,14 +1847,16 @@ RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerRequest'); RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenRequest'); RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); + RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKlantinstellingenKlantinstellingen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfKlantinstellingenKlantinstellingen'); RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); - RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); - RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen'); RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse'); RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(BewerkKlantinstellingenResponse), 'Klantinstellingen', '[ArrayItemName="Klantinstellingen"]'); RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); + RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse'); + 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'); @@ -1800,30 +1869,32 @@ RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaLadecodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaOrdernummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen'); RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); - RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen'); + RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleDnaCodesDieOpVhossMoetenResponse), '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(ZoekAlleVhossLadesBijDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleVhossLadesBijDnaCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); - RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); - RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); - RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); - RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]'); - RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); + RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); 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(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); + 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"]'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); end. \ No newline at end of file