Index: AAPClient/WS/DnaCodeService.pas =================================================================== diff -u -r81 -r98 --- AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 81) +++ AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 98) @@ -5,7 +5,7 @@ // >Import : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 -// (20/03/2019 14:52:28 - - $Rev: 45757 $) +// (10/04/2019 7:45:17 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -34,19 +34,22 @@ // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] - DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RequestHeader = 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] } + ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringBijwerkenRequest = 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] } - ZoekViaToeleveringResponse = 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] } + ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} @@ -58,6 +61,21 @@ // ************************************************************************ // + // XML : ValideerPalletCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ValideerPalletCodeResponse = class(TRemotable) + private + FHeader: ResponseHeader; + public + destructor Destroy; override; + published + property Header: ResponseHeader read FHeader write FHeader; + end; + + + + // ************************************************************************ // // XML : DataTransferObject, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -69,10 +87,10 @@ // ************************************************************************ // - // XML : ValideerPalletCodeResponse, global, + // XML : GeneriekeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeResponse = class(DataTransferObject) + GeneriekeResponse = class(DataTransferObject) private FHeader: ResponseHeader; public @@ -129,35 +147,35 @@ // ************************************************************************ // - // XML : ValideerPalletCodeRequest, global, + // XML : ZoekViaToeleveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + ZoekViaToeleveringRequest = class(TRemotable) private FHeader: RequestHeader; - FPalletCode: string; + FToelevering: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; end; // ************************************************************************ // - // XML : ZoekViaToeleveringRequest, global, + // XML : ValideerPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaToeleveringRequest = 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; @@ -180,16 +198,20 @@ // ************************************************************************ // - // XML : ResponseHeader, global, + // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ResponseHeader = class(TRemotable) + HernoemPalletRequest = class(TRemotable) private - FStatus: String_; - FOmschrijving: String_; + FHeader: RequestHeader; + FOudeCode: string; + FNieuweCode: string; + public + destructor Destroy; override; published - property Status: String_ read FStatus write FStatus; - property Omschrijving: String_ read FOmschrijving write FOmschrijving; + property Header: RequestHeader read FHeader write FHeader; + property OudeCode: string read FOudeCode write FOudeCode; + property NieuweCode: string read FNieuweCode write FNieuweCode; end; @@ -198,44 +220,38 @@ // XML : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenResponse = class(DataTransferObject) + ToeleveringBijwerkenResponse = class(GeneriekeResponse) private - FHeader: ResponseHeader; - public - destructor Destroy; override; published - property Header: ResponseHeader read FHeader write FHeader; end; + ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : ToeleveringBijwerkenRequest, global, + // XML : HernoemPalletResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenRequest = class(TRemotable) + HernoemPalletResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FToelevering: string; - FStatus: DnaCodeStatus; + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; - property Status: DnaCodeStatus read FStatus write FStatus; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; - ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // // XML : DnaCodeAfmeldenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenResponse = class(DataTransferObject) + DnaCodeAfmeldenResponse = class(GeneriekeResponse) private - FHeader: ResponseHeader; FAantalInToelevering: Int64; FAantalInToelevering_Specified: boolean; FAantalReedsGescand: Int64; @@ -251,7 +267,6 @@ public destructor Destroy; override; published - property Header: ResponseHeader read FHeader write FHeader; 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; @@ -260,12 +275,29 @@ // ************************************************************************ // + // 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(DataTransferObject) + ZoekViaToeleveringResponse = class(GeneriekeResponse) private - FHeader: ResponseHeader; FAantalInToelevering: Int64; FAantalInToelevering_Specified: boolean; FAantalReedsGescand: Int64; @@ -281,7 +313,6 @@ public destructor Destroy; override; published - property Header: ResponseHeader read FHeader write FHeader; 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; @@ -290,21 +321,35 @@ // ************************************************************************ // - // XML : ZoekViaPalletCodeResponse, global, + // XML : ResponseHeader, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaPalletCodeResponse = class(DataTransferObject) + ResponseHeader = class(TRemotable) private - FHeader: ResponseHeader; - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); - function DnaCodes_Specified(Index: Integer): boolean; + FStatus: String_; + FOmschrijving: String_; + published + property Status: String_ read FStatus write FStatus; + property Omschrijving: String_ read FOmschrijving write FOmschrijving; + end; + + + + // ************************************************************************ // + // XML : ToeleveringBijwerkenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ToeleveringBijwerkenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FToelevering: string; + FStatus: DnaCodeStatus; public destructor Destroy; override; published - property Header: ResponseHeader read FHeader write FHeader; - 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 Toelevering: string read FToelevering write FToelevering; + property Status: DnaCodeStatus read FStatus write FStatus; end; Horolog = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -409,6 +454,7 @@ DnaCodeServiceSoap = interface(IInvokable) ['{514675BC-4331-0084-2F76-0934B2799FAE}'] function DnaCodeAfmelden(const DnaCodeAfmeldenRequest: DnaCodeAfmeldenRequest): DnaCodeAfmeldenResponse; stdcall; + function HernoemPallet(const HernoemPalletRequest: HernoemPalletRequest): HernoemPalletResponse; stdcall; function ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall; function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; function ZoekViaPalletcode(const ZoakViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall; @@ -464,6 +510,12 @@ inherited Destroy; end; +destructor GeneriekeResponse.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor DnaCodeAfmeldenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -492,13 +544,13 @@ Result := FToelevering_Specified; end; -destructor ValideerPalletCodeRequest.Destroy; +destructor ZoekViaToeleveringRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ZoekViaToeleveringRequest.Destroy; +destructor ValideerPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; @@ -510,26 +562,40 @@ inherited Destroy; end; -destructor ToeleveringBijwerkenResponse.Destroy; +destructor HernoemPalletRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ToeleveringBijwerkenRequest.Destroy; +destructor HernoemPalletResponse.Destroy; +var + I: Integer; begin - SysUtils.FreeAndNil(FHeader); + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); inherited Destroy; end; +procedure 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; begin for I := 0 to System.Length(FDnaCodes)-1 do SysUtils.FreeAndNil(FDnaCodes[I]); System.SetLength(FDnaCodes, 0); - SysUtils.FreeAndNil(FHeader); inherited Destroy; end; @@ -566,14 +632,34 @@ Result := FDnaCodes_Specified; end; +destructor ZoekViaPalletCodeResponse.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 ZoekViaPalletCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +begin + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; +end; + +function ZoekViaPalletCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +begin + Result := FDnaCodes_Specified; +end; + destructor ZoekViaToeleveringResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FDnaCodes)-1 do SysUtils.FreeAndNil(FDnaCodes[I]); System.SetLength(FDnaCodes, 0); - SysUtils.FreeAndNil(FHeader); inherited Destroy; end; @@ -610,28 +696,12 @@ Result := FDnaCodes_Specified; end; -destructor ZoekViaPalletCodeResponse.Destroy; -var - I: Integer; +destructor ToeleveringBijwerkenRequest.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 ZoekViaPalletCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); -begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; -end; - -function ZoekViaPalletCodeResponse.DnaCodes_Specified(Index: Integer): boolean; -begin - Result := FDnaCodes_Specified; -end; - procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); begin FAxProductieOrderNummer := Astring; @@ -805,6 +875,9 @@ { DnaCodeServiceSoap.DnaCodeAfmelden } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'DnaCodeAfmelden', '', '[ReturnName="DnaCodeAfmeldenResult"]'); + { DnaCodeServiceSoap.HernoemPallet } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'HernoemPallet', '', + '[ReturnName="HernoemPalletResult"]'); { DnaCodeServiceSoap.ToeleveringBijwerken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ToeleveringBijwerken', '', '[ReturnName="ToeleveringBijwerkenResult"]'); @@ -817,25 +890,29 @@ { DnaCodeServiceSoap.ZoekViaToelevering } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '', '[ReturnName="ZoekViaToeleveringResult"]'); - RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); + RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); + RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); 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(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest'); - RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); + RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); - RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); + 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(ZoekViaToeleveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaToeleveringResponse), '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(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); + RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(Horolog), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Horolog'); RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode');