Index: AAPClient/WS/DnaCodeService.pas =================================================================== diff -u -r199 -r209 --- AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 199) +++ AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 209) @@ -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 -// (7/10/2019 9:43:00 - - $Rev: 45757 $) +// (15/10/2019 10:29:07 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -43,18 +43,20 @@ ZoekViaPalletCodeRequest = 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] } - DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringRequest = 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] } + PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCode = 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] } + GeefVolgendeTbpCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -118,6 +120,7 @@ property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; + Horolog = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // @@ -203,6 +206,34 @@ // ************************************************************************ // + // XML : DnaCodeAfmeldenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DnaCodeAfmeldenResponse = class(GeneriekeResponse) + private + FAantalInToelevering: Int64; + FAantalInToelevering_Specified: boolean; + FAantalReedsGescand: Int64; + FAantalReedsGescand_Specified: boolean; + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_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; + 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; + end; + + + + // ************************************************************************ // // XML : DnaCodeAfmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -232,10 +263,10 @@ // ************************************************************************ // - // 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; @@ -260,74 +291,73 @@ // ************************************************************************ // - // XML : ZoekViaToeleveringResponse, global, + // XML : DirecteLeveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaToeleveringResponse = class(GeneriekeResponse) + DirecteLeveringRequest = class(TRemotable) private - FAantalInToelevering: Int64; - FAantalInToelevering_Specified: boolean; - FAantalReedsGescand: Int64; - FAantalReedsGescand_Specified: boolean; - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_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; + FHeader: RequestHeader; + FToelevering: string; 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 Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; end; // ************************************************************************ // - // XML : PalletBijwerkenResponse, global, + // XML : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenResponse = class(GeneriekeResponse) + ToeleveringBijwerkenResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // - // XML : ToeleveringBijwerkenResponse, global, + // XML : PalletBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenResponse = class(GeneriekeResponse) + PalletBijwerkenResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // - // XML : DirecteLeveringRequest, global, + // XML : GeefVolgendeTbpCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringRequest = class(TRemotable) + GeefVolgendeTbpCodeRequest = 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; + property Header: RequestHeader read FHeader write FHeader; end; - Horolog = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // + // 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 : ToeleveringBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -349,19 +379,6 @@ // ************************************************************************ // - // 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 // ************************************************************************ // @@ -514,8 +531,21 @@ end; + // ************************************************************************ // + // XML : GeefVolgendeTbpCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) + private + FVolgendeTbpCode: string; + published + property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; + end; + + + // ************************************************************************ // + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // soapAction: http://www.vanhoecke.be/Halux/AAP/DnaCode/WS.Halux.AAP.DnaCodeService.%operationName% // transport : http://schemas.xmlsoap.org/soap/http // style : document @@ -528,6 +558,7 @@ DnaCodeServiceSoap = interface(IInvokable) ['{514675BC-4331-0084-2F76-0934B2799FAE}'] function DnaCodeAfmelden(const DnaCodeAfmeldenRequest: DnaCodeAfmeldenRequest): DnaCodeAfmeldenResponse; stdcall; + function GeefVolgendeTbpCode(const GeefVolgendeTbpCodeRequest: GeefVolgendeTbpCodeRequest): GeefVolgendeTbpCodeResponse; stdcall; function HernoemPallet(const HernoemPalletRequest: HernoemPalletRequest): HernoemPalletResponse; stdcall; function IsDirecteLevering(const DirecteLeveringRequest: DirecteLeveringRequest): DirecteLeveringResponse; stdcall; function PalletBijwerken(const PalletBijwerkenRequest: PalletBijwerkenRequest): PalletBijwerkenResponse; stdcall; @@ -625,34 +656,6 @@ 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; - destructor DnaCodeAfmeldenResponse.Destroy; var I: Integer; @@ -696,6 +699,34 @@ Result := FDnaCodes_Specified; 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; + destructor ZoekViaToeleveringResponse.Destroy; var I: Integer; @@ -745,6 +776,12 @@ inherited Destroy; end; +destructor GeefVolgendeTbpCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor ToeleveringBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -979,6 +1016,9 @@ { DnaCodeServiceSoap.DnaCodeAfmelden } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'DnaCodeAfmelden', '', '[ReturnName="DnaCodeAfmeldenResult"]'); + { DnaCodeServiceSoap.GeefVolgendeTbpCode } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'GeefVolgendeTbpCode', '', + '[ReturnName="GeefVolgendeTbpCodeResult"]'); { DnaCodeServiceSoap.HernoemPallet } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'HernoemPallet', '', '[ReturnName="HernoemPalletResult"]'); @@ -1006,28 +1046,30 @@ RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSInfo(TypeInfo(Horolog), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Horolog'); 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.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(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaToeleveringResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); + RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); - RemClassRegistry.RegisterXSInfo(TypeInfo(Horolog), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Horolog'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); - RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); 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(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); end. \ No newline at end of file