Index: AAPClient/WS/DnaCodeService.pas =================================================================== diff -u -r359 -r379 --- AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 359) +++ AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 379) @@ -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 -// (21/04/2020 13:48:23 - - $Rev: 45757 $) +// (29/05/2020 11:41:38 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -30,78 +30,232 @@ // 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. // ************************************************************************ // + // !: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] - // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] - DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaToeleveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - GeneriekeResponse = 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] } - ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DnaCodeAfmeldenResponse = 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] } + 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] } + 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] } - RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringBijwerkenResponse = 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] } ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringMetAantallen = 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] } + ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DirecteLeveringResponse = 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] } - HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } HernoemPalletRequest = 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] } + HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } DnaCodeStatus = (Nieuw, Gescand, Ongedaan, OnHold, InBuffer, InBatch); {$SCOPEDENUMS OFF} + ArrayOfKlantinstellingenKlantinstellingen = array of Klantinstellingen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + + + // ************************************************************************ // + // XML : GeefVolgendeTbpCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + GeefVolgendeTbpCodeRequest = class(TRemotable) + private + FHeader: RequestHeader; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + end; + ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // - // XML : DataTransferObject, global, + // XML : DnaCodeAfmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DataTransferObject = 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; + 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 : GeefVolgendeTbpCodeRequest, global, + // XML : ZoekViaPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeefVolgendeTbpCodeRequest = class(TRemotable) + ZoekViaPalletCodeRequest = class(TRemotable) private FHeader: RequestHeader; + FPalletCode: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; + property Header: RequestHeader read FHeader write FHeader; + property PalletCode: string read FPalletCode write FPalletCode; end; // ************************************************************************ // + // XML : ZoekViaToeleveringRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaToeleveringRequest = class(TRemotable) + private + FHeader: RequestHeader; + FToelevering: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; + end; + + + + // ************************************************************************ // + // XML : ZoekViaLadecodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaLadecodeRequest = class(TRemotable) + private + FHeader: RequestHeader; + FLadecode: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Ladecode: string read FLadecode write FLadecode; + end; + + + + // ************************************************************************ // + // XML : ZoekViaOrdernummerRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaOrdernummerRequest = class(TRemotable) + private + FHeader: RequestHeader; + FOrdernummer: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Ordernummer: string read FOrdernummer write FOrdernummer; + end; + + + + // ************************************************************************ // + // XML : BewerkKlantinstellingenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + BewerkKlantinstellingenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FActie: string; + FKlantId: string; + FIsExport: 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; + end; + + + + // ************************************************************************ // + // XML : RequestHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + RequestHeader = class(TRemotable) + private + FInitialen: String_; + FComputerNaam: String_; + published + property Initialen: String_ read FInitialen write FInitialen; + property ComputerNaam: String_ read FComputerNaam write FComputerNaam; + end; + + + + // ************************************************************************ // + // XML : DataTransferObject, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DataTransferObject = class(TRemotable) + private + published + end; + + + + // ************************************************************************ // // XML : DnaCode, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -200,202 +354,166 @@ // ************************************************************************ // - // XML : ValideerPalletCodeRequest, global, + // XML : ResponseHeader, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + ResponseHeader = class(TRemotable) private - FHeader: RequestHeader; - FPalletCode: string; - public - destructor Destroy; override; + FStatus: String_; + FOmschrijving: String_; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + property Status: String_ read FStatus write FStatus; + property Omschrijving: String_ read FOmschrijving write FOmschrijving; end; // ************************************************************************ // - // XML : ZoekViaToeleveringRequest, global, + // XML : Klantinstellingen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaToeleveringRequest = class(TRemotable) + Klantinstellingen = class(DataTransferObject) private - FHeader: RequestHeader; - FToelevering: 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 Toelevering: string read FToelevering write FToelevering; + 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 : ZoekViaPalletCodeRequest, global, + // XML : GeneriekeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaPalletCodeRequest = class(TRemotable) + GeneriekeResponse = class(DataTransferObject) private - FHeader: RequestHeader; - FPalletCode: string; + FHeader: ResponseHeader; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + property Header: ResponseHeader read FHeader write FHeader; end; // ************************************************************************ // - // XML : ZoekViaDnaCodeRequest, global, + // XML : BewerkKlantinstellingenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaDnaCodeRequest = class(TRemotable) + BewerkKlantinstellingenResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FDnaCode: string; + FKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen; + FKlantinstellingen_Specified: boolean; + procedure SetKlantinstellingen(Index: Integer; const AArrayOfKlantinstellingenKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen); + function Klantinstellingen_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: string read FDnaCode write FDnaCode; + property Klantinstellingen: ArrayOfKlantinstellingenKlantinstellingen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FKlantinstellingen write SetKlantinstellingen stored Klantinstellingen_Specified; end; // ************************************************************************ // - // XML : DnaCodeAfmeldenRequest, global, + // XML : GeefVolgendeTbpCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenRequest = class(TRemotable) + GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FDnaCode: string; - FAantal: Int64; - FAantal_Specified: boolean; - FToelevering: string; - FToelevering_Specified: boolean; - FPalletCode: string; - FLocatie: string; - FLocatie_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; - public - destructor Destroy; override; + FVolgendeTbpCode: string; 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 VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; end; // ************************************************************************ // - // XML : GeneriekeResponse, global, + // XML : DnaCodeAfmeldenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeneriekeResponse = class(DataTransferObject) + DnaCodeAfmeldenResponse = class(GeneriekeResponse) private - FHeader: ResponseHeader; - public - destructor Destroy; override; - published - property Header: ResponseHeader read FHeader write FHeader; - end; - - - - // ************************************************************************ // - // XML : ZoekViaPalletCodeResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ZoekViaPalletCodeResponse = 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 : ZoekViaToeleveringResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ZoekViaToeleveringResponse = class(GeneriekeResponse) - private FAantalInToelevering: Int64; FAantalInToelevering_Specified: boolean; FAantalReedsGescand: Int64; FAantalReedsGescand_Specified: boolean; FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; + FInterneVhossKastId: string; + FInterneVhossKastId_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; 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; end; // ************************************************************************ // - // XML : ValideerPalletCodeResponse, global, + // XML : ZoekViaKlantnummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeResponse = class(GeneriekeResponse) + 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 : ZoekViaDnaCodeResponse, global, + // XML : ZoekViaPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaDnaCodeResponse = class(GeneriekeResponse) + ZoekViaPalletCodeResponse = class(GeneriekeResponse) private - FDnaCodes: DnaCode; + FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property DnaCodes: DnaCode Index (IS_OPTN) 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; end; // ************************************************************************ // - // XML : DnaCodeAfmeldenResponse, global, + // XML : ZoekViaToeleveringResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenResponse = class(GeneriekeResponse) + ZoekViaToeleveringResponse = class(GeneriekeResponse) private FAantalInToelevering: Int64; FAantalInToelevering_Specified: boolean; @@ -417,76 +535,91 @@ property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; - String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // - // XML : RequestHeader, global, + // XML : ZoekViaLadecodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RequestHeader = class(TRemotable) + ZoekViaLadecodeResponse = class(GeneriekeResponse) private - FInitialen: String_; - FComputerNaam: 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 Initialen: String_ read FInitialen write FInitialen; - property ComputerNaam: String_ read FComputerNaam write FComputerNaam; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : ResponseHeader, global, + // XML : ZoekViaOrdernummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ResponseHeader = class(TRemotable) + ZoekViaOrdernummerResponse = class(GeneriekeResponse) private - FStatus: String_; - FOmschrijving: 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 Status: String_ read FStatus write FStatus; - property Omschrijving: String_ read FOmschrijving write FOmschrijving; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : GeefVolgendeTbpCodeResponse, global, + // XML : ToeleveringBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) + ToeleveringBijwerkenRequest = class(TRemotable) private - FVolgendeTbpCode: string; + FHeader: RequestHeader; + FToelevering: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; + public + destructor Destroy; override; published - property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; + property Status: DnaCodeStatus read FStatus write FStatus; + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; // ************************************************************************ // - // XML : RondAfKaderdeurDagRequest, global, + // XML : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfKaderdeurDagRequest = class(TRemotable) + ToeleveringBijwerkenResponse = class(GeneriekeResponse) 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; + ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenResponse, global, + // XML : RondAfKaderdeurDagResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) + RondAfKaderdeurDagResponse = class(GeneriekeResponse) private + FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen; + FToeleveringMetAantallen_Specified: boolean; + procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); + function ToeleveringMetAantallen_Specified(Index: Integer): boolean; + public + destructor Destroy; override; published + property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; end; @@ -518,93 +651,137 @@ // ************************************************************************ // - // XML : ToeleveringBijwerkenResponse, global, + // XML : ZoekViaDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenResponse = class(GeneriekeResponse) + ZoekViaDnaCodeResponse = class(GeneriekeResponse) private + FDnaCodes: DnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); + function DnaCodes_Specified(Index: Integer): boolean; + public + destructor Destroy; override; published + property DnaCodes: DnaCode Index (IS_OPTN) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : ToeleveringBijwerkenRequest, global, + // XML : ZoekViaKlantnummerRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenRequest = class(TRemotable) + ZoekViaKlantnummerRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FKlantnummer: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; - property Status: DnaCodeStatus read FStatus write FStatus; - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + property Header: RequestHeader read FHeader write FHeader; + property Klantnummer: string read FKlantnummer write FKlantnummer; end; - ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : RondAfKaderdeurDagResponse, global, + // XML : ZoekViaDnaCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfKaderdeurDagResponse = class(GeneriekeResponse) + ZoekViaDnaCodeRequest = class(TRemotable) private - FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen; - FToeleveringMetAantallen_Specified: boolean; - procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); - function ToeleveringMetAantallen_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FDnaCode: string; public destructor Destroy; override; published - property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: string read FDnaCode write FDnaCode; end; - ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : DirecteLeveringRequest, global, + // XML : ValideerPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringRequest = class(TRemotable) + ValideerPalletCodeRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; + FPalletCode: string; 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 PalletCode: string read FPalletCode write FPalletCode; end; // ************************************************************************ // - // XML : HernoemPalletResponse, global, + // XML : ValideerPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - HernoemPalletResponse = class(GeneriekeResponse) + ValideerPalletCodeResponse = class(GeneriekeResponse) private - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); - function DnaCodes_Specified(Index: Integer): boolean; + published + end; + + + + // ************************************************************************ // + // XML : DirecteLeveringResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DirecteLeveringResponse = class(GeneriekeResponse) + private + FIsDirecteLevering: Boolean; + published + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + end; + + + + // ************************************************************************ // + // XML : PalletBijwerkenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + PalletBijwerkenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FPallet: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: 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 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 : DirecteLeveringRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DirecteLeveringRequest = class(TRemotable) + private + FHeader: RequestHeader; + FToelevering: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; + end; + + + + // ************************************************************************ // // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -629,33 +806,50 @@ // ************************************************************************ // - // XML : DirecteLeveringResponse, global, + // XML : HernoemPalletResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringResponse = class(GeneriekeResponse) + HernoemPalletResponse = class(GeneriekeResponse) private - FIsDirecteLevering: 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 IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenRequest, global, + // XML : ProboxEtiketAfdrukkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenRequest = class(TRemotable) + ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) private + published + end; + + + + // ************************************************************************ // + // XML : RondAfKaderdeurDagRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + 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; + ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // @@ -670,22 +864,18 @@ // ************************************************************************ // - // XML : PalletBijwerkenRequest, global, + // XML : ProboxEtiketAfdrukkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenRequest = class(TRemotable) + ProboxEtiketAfdrukkenRequest = class(TRemotable) private FHeader: RequestHeader; - FPallet: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FDnaCodes: ArrayOfStringString; 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; + property Header: RequestHeader read FHeader write FHeader; + property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; end; @@ -702,6 +892,7 @@ // ************************************************************************ // DnaCodeServiceSoap = interface(IInvokable) ['{514675BC-4331-0084-2F76-0934B2799FAE}'] + function BewerkKlantinstellingen(const BewerkKlantInstellingen: BewerkKlantinstellingenRequest): BewerkKlantinstellingenResponse; stdcall; function DnaCodeAfmelden(const DnaCodeAfmeldenRequest: DnaCodeAfmeldenRequest): DnaCodeAfmeldenResponse; stdcall; function GeefVolgendeTbpCode(const GeefVolgendeTbpCodeRequest: GeefVolgendeTbpCodeRequest): GeefVolgendeTbpCodeResponse; stdcall; function HernoemPallet(const HernoemPalletRequest: HernoemPalletRequest): HernoemPalletResponse; stdcall; @@ -712,6 +903,9 @@ function ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall; function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; function ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall; + function ZoekViaKlantnummer(const ZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest): ZoekViaKlantnummerResponse; stdcall; + function ZoekViaLadecode(const ZoekViaLadecodeRequest: ZoekViaLadecodeRequest): ZoekViaLadecodeResponse; stdcall; + function ZoekViaOrdernummer(const ZoekViaOrdernummerRequest: ZoekViaOrdernummerRequest): ZoekViaOrdernummerResponse; stdcall; function ZoekViaPalletCode(const ZoakViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall; function ZoekViaToelevering(const ZoekViaToeleveringRequest: ZoekViaToeleveringRequest): ZoekViaToeleveringResponse; stdcall; end; @@ -765,6 +959,86 @@ inherited Destroy; end; +destructor DnaCodeAfmeldenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64); +begin + FAantal := AInt64; + FAantal_Specified := True; +end; + +function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean; +begin + Result := FAantal_Specified; +end; + +procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string); +begin + FToelevering := Astring; + FToelevering_Specified := True; +end; + +function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean; +begin + Result := FToelevering_Specified; +end; + +procedure DnaCodeAfmeldenRequest.SetLocatie(Index: Integer; const Astring: string); +begin + FLocatie := Astring; + FLocatie_Specified := True; +end; + +function DnaCodeAfmeldenRequest.Locatie_Specified(Index: Integer): boolean; +begin + Result := FLocatie_Specified; +end; + +procedure DnaCodeAfmeldenRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string); +begin + FGuiVhossVolgnummer := Astring; + FGuiVhossVolgnummer_Specified := True; +end; + +function DnaCodeAfmeldenRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean; +begin + Result := FGuiVhossVolgnummer_Specified; +end; + +destructor ZoekViaPalletCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekViaToeleveringRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekViaLadecodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekViaOrdernummerRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor BewerkKlantinstellingenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor DnaCode.Destroy; begin SysUtils.FreeAndNil(FScanTijdstip); @@ -958,75 +1232,141 @@ Result := FBatchId_Specified; end; -destructor ValideerPalletCodeRequest.Destroy; +procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FKlantId := Astring; + FKlantId_Specified := True; end; -destructor ZoekViaToeleveringRequest.Destroy; +function Klantinstellingen.KlantId_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FKlantId_Specified; end; -destructor ZoekViaPalletCodeRequest.Destroy; +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); inherited Destroy; end; -destructor ZoekViaDnaCodeRequest.Destroy; +destructor BewerkKlantinstellingenResponse.Destroy; +var + I: Integer; begin - SysUtils.FreeAndNil(FHeader); + for I := 0 to System.Length(FKlantinstellingen)-1 do + SysUtils.FreeAndNil(FKlantinstellingen[I]); + System.SetLength(FKlantinstellingen, 0); inherited Destroy; end; -destructor DnaCodeAfmeldenRequest.Destroy; +procedure BewerkKlantinstellingenResponse.SetKlantinstellingen(Index: Integer; const AArrayOfKlantinstellingenKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen); begin - SysUtils.FreeAndNil(FHeader); + FKlantinstellingen := AArrayOfKlantinstellingenKlantinstellingen; + FKlantinstellingen_Specified := True; +end; + +function BewerkKlantinstellingenResponse.Klantinstellingen_Specified(Index: Integer): boolean; +begin + Result := FKlantinstellingen_Specified; +end; + +destructor DnaCodeAfmeldenResponse.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 DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64); +procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); begin - FAantal := AInt64; - FAantal_Specified := True; + FAantalInToelevering := AInt64; + FAantalInToelevering_Specified := True; end; -function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.AantalInToelevering_Specified(Index: Integer): boolean; begin - Result := FAantal_Specified; + Result := FAantalInToelevering_Specified; end; -procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); begin - FToelevering := Astring; - FToelevering_Specified := True; + FAantalReedsGescand := AInt64; + FAantalReedsGescand_Specified := True; end; -function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; begin - Result := FToelevering_Specified; + Result := FAantalReedsGescand_Specified; end; -procedure DnaCodeAfmeldenRequest.SetLocatie(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FLocatie := Astring; - FLocatie_Specified := True; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -function DnaCodeAfmeldenRequest.Locatie_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FLocatie_Specified; + Result := FDnaCodes_Specified; end; -destructor GeneriekeResponse.Destroy; +procedure DnaCodeAfmeldenResponse.SetInterneVhossKastId(Index: Integer; const Astring: string); begin - SysUtils.FreeAndNil(FHeader); + FInterneVhossKastId := Astring; + FInterneVhossKastId_Specified := True; +end; + +function DnaCodeAfmeldenResponse.InterneVhossKastId_Specified(Index: Integer): boolean; +begin + Result := FInterneVhossKastId_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; @@ -1091,24 +1431,28 @@ Result := FDnaCodes_Specified; end; -destructor ZoekViaDnaCodeResponse.Destroy; +destructor ZoekViaLadecodeResponse.Destroy; +var + I: Integer; begin - SysUtils.FreeAndNil(FDnaCodes); + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); inherited Destroy; end; -procedure ZoekViaDnaCodeResponse.SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); +procedure ZoekViaLadecodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FDnaCodes := ADnaCode; + FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekViaDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaLadecodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; -destructor DnaCodeAfmeldenResponse.Destroy; +destructor ZoekViaOrdernummerResponse.Destroy; var I: Integer; begin @@ -1118,45 +1462,44 @@ inherited Destroy; end; -procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); +procedure ZoekViaOrdernummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FAantalInToelevering := AInt64; - FAantalInToelevering_Specified := True; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -function DnaCodeAfmeldenResponse.AantalInToelevering_Specified(Index: Integer): boolean; +function ZoekViaOrdernummerResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FAantalInToelevering_Specified; + Result := FDnaCodes_Specified; end; -procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); +destructor ToeleveringBijwerkenRequest.Destroy; begin - FAantalReedsGescand := AInt64; - FAantalReedsGescand_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; +destructor RondAfKaderdeurDagResponse.Destroy; +var + I: Integer; begin - Result := FAantalReedsGescand_Specified; + for I := 0 to System.Length(FToeleveringMetAantallen)-1 do + SysUtils.FreeAndNil(FToeleveringMetAantallen[I]); + System.SetLength(FToeleveringMetAantallen, 0); + inherited Destroy; end; -procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure RondAfKaderdeurDagResponse.SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + FToeleveringMetAantallen := AArrayOfToeleveringMetAantallenToeleveringMetAantallen; + FToeleveringMetAantallen_Specified := True; end; -function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; +function RondAfKaderdeurDagResponse.ToeleveringMetAantallen_Specified(Index: Integer): boolean; begin - Result := FDnaCodes_Specified; + Result := FToeleveringMetAantallen_Specified; end; -destructor RondAfKaderdeurDagRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string); begin FToeleveringID := Astring; @@ -1190,58 +1533,51 @@ Result := FAantalKaderdeurenGescand_Specified; end; -destructor ToeleveringBijwerkenRequest.Destroy; +destructor ZoekViaDnaCodeResponse.Destroy; begin - SysUtils.FreeAndNil(FHeader); + SysUtils.FreeAndNil(FDnaCodes); inherited Destroy; end; -destructor RondAfKaderdeurDagResponse.Destroy; -var - I: Integer; +procedure ZoekViaDnaCodeResponse.SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); begin - for I := 0 to System.Length(FToeleveringMetAantallen)-1 do - SysUtils.FreeAndNil(FToeleveringMetAantallen[I]); - System.SetLength(FToeleveringMetAantallen, 0); - inherited Destroy; + FDnaCodes := ADnaCode; + FDnaCodes_Specified := True; end; -procedure RondAfKaderdeurDagResponse.SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); +function ZoekViaDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin - FToeleveringMetAantallen := AArrayOfToeleveringMetAantallenToeleveringMetAantallen; - FToeleveringMetAantallen_Specified := True; + Result := FDnaCodes_Specified; end; -function RondAfKaderdeurDagResponse.ToeleveringMetAantallen_Specified(Index: Integer): boolean; +destructor ZoekViaKlantnummerRequest.Destroy; begin - Result := FToeleveringMetAantallen_Specified; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -destructor DirecteLeveringRequest.Destroy; +destructor ZoekViaDnaCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor HernoemPalletResponse.Destroy; -var - I: Integer; +destructor ValideerPalletCodeRequest.Destroy; begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); + SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -procedure HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +destructor PalletBijwerkenRequest.Destroy; begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean; +destructor DirecteLeveringRequest.Destroy; begin - Result := FDnaCodes_Specified; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; destructor HernoemPalletRequest.Destroy; @@ -1261,13 +1597,34 @@ Result := FEnkelDezeDnaCode_Specified; end; -destructor ProboxEtiketAfdrukkenRequest.Destroy; +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 RondAfKaderdeurDagRequest.Destroy; +begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor PalletBijwerkenRequest.Destroy; +destructor ProboxEtiketAfdrukkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; @@ -1278,6 +1635,9 @@ InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode/WS.Halux.AAP.DnaCodeService.%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(DnaCodeServiceSoap), ioDocument); + { DnaCodeServiceSoap.BewerkKlantinstellingen } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'BewerkKlantinstellingen', '', + '[ReturnName="BewerkKlantinstellingenResult"]'); { DnaCodeServiceSoap.DnaCodeAfmelden } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'DnaCodeAfmelden', '', '[ReturnName="DnaCodeAfmeldenResult"]'); @@ -1308,52 +1668,75 @@ { DnaCodeServiceSoap.ZoekViaDnaCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaDnaCode', '', '[ReturnName="ZoekViaDnaCodeResult"]'); + { DnaCodeServiceSoap.ZoekViaKlantnummer } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaKlantnummer', '', + '[ReturnName="ZoekViaKlantnummerResult"]'); + { DnaCodeServiceSoap.ZoekViaLadecode } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaLadecode', '', + '[ReturnName="ZoekViaLadecodeResult"]'); + { DnaCodeServiceSoap.ZoekViaOrdernummer } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaOrdernummer', '', + '[ReturnName="ZoekViaOrdernummerResult"]'); { DnaCodeServiceSoap.ZoekViaPalletCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaPalletCode', '', '[ReturnName="ZoekViaPalletCodeResult"]'); { DnaCodeServiceSoap.ZoekViaToelevering } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '', '[ReturnName="ZoekViaToeleveringResult"]'); - RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); - RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); + 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(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); - RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); - RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest'); - RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); + 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(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'); + 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(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(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'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaToeleveringResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); - RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); - RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); - RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); - RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); - RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); - RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); - RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(ZoekViaLadecodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeResponse'); + 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(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); + 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(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]'); - RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString'); + RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); + 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(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); + RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); + RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); - RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenRequest'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); end. \ No newline at end of file