Index: AAPClient/WS/DnaCodeService.pas =================================================================== diff -u -r218 -r257 --- AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 218) +++ AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 257) @@ -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/10/2019 13:21:55 - - $Rev: 45757 $) +// (13/02/2020 14:45:19 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -30,35 +30,37 @@ // 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. // ************************************************************************ // + // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:long - "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] } - GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } 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] } - DnaCodeAfmeldenResponse = 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] } + ValideerPalletCodeResponse = 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] } + ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCodeAfmeldenResponse = 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] } + ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ValideerPalletCodeRequest = 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] } + HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeefVolgendeTbpCodeResponse = 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] } + HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenRequest = 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] } + DirecteLeveringResponse = 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] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -78,147 +80,229 @@ end; ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + Horolog = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // - // XML : GeneriekeResponse, global, + // XML : DnaCode, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeneriekeResponse = class(DataTransferObject) + DnaCode = class(DataTransferObject) private - FHeader: ResponseHeader; - public - destructor Destroy; override; + FAxProductieOrderNummer: string; + FAxProductieOrderNummer_Specified: boolean; + FProductNummer: string; + FProductNummer_Specified: boolean; + FDnaCode: string; + FDnaCode_Specified: boolean; + FPalletCode: string; + FPalletCode_Specified: boolean; + FToelevering: string; + FToelevering_Specified: boolean; + FKlantNummer: string; + FKlantNummer_Specified: boolean; + FLocatie: string; + FLocatie_Specified: boolean; + FLijn: string; + FLijn_Specified: boolean; + FInitialenScanner: string; + FInitialenScanner_Specified: boolean; + FScanTijdstip: Horolog; + FScanTijdstip_Specified: boolean; + FLadeCode: string; + FLadeCode_Specified: boolean; + FStatus: DnaCodeStatus; + FStatus_Specified: boolean; + FIsDirecteLevering: Boolean; + FIsDirecteLevering_Specified: boolean; + FParentDnaCode: string; + FParentDnaCode_Specified: boolean; + FSequentieNummer: string; + FSequentieNummer_Specified: boolean; + FIsWegwerpPallet: Boolean; + FIsWegwerpPallet_Specified: boolean; + procedure SetAxProductieOrderNummer(Index: Integer; const Astring: string); + function AxProductieOrderNummer_Specified(Index: Integer): boolean; + procedure SetProductNummer(Index: Integer; const Astring: string); + function ProductNummer_Specified(Index: Integer): boolean; + procedure SetDnaCode(Index: Integer; const Astring: string); + function DnaCode_Specified(Index: Integer): boolean; + procedure SetPalletCode(Index: Integer; const Astring: string); + function PalletCode_Specified(Index: Integer): boolean; + procedure SetToelevering(Index: Integer; const Astring: string); + function Toelevering_Specified(Index: Integer): boolean; + procedure SetKlantNummer(Index: Integer; const Astring: string); + function KlantNummer_Specified(Index: Integer): boolean; + procedure SetLocatie(Index: Integer; const Astring: string); + function Locatie_Specified(Index: Integer): boolean; + procedure SetLijn(Index: Integer; const Astring: string); + function Lijn_Specified(Index: Integer): boolean; + procedure SetInitialenScanner(Index: Integer; const Astring: string); + function InitialenScanner_Specified(Index: Integer): boolean; + procedure SetScanTijdstip(Index: Integer; const AHorolog: Horolog); + function ScanTijdstip_Specified(Index: Integer): boolean; + procedure SetLadeCode(Index: Integer; const Astring: string); + function LadeCode_Specified(Index: Integer): boolean; + procedure SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); + function Status_Specified(Index: Integer): boolean; + procedure SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean); + function IsDirecteLevering_Specified(Index: Integer): boolean; + procedure SetParentDnaCode(Index: Integer; const Astring: string); + function ParentDnaCode_Specified(Index: Integer): boolean; + procedure SetSequentieNummer(Index: Integer; const Astring: string); + function SequentieNummer_Specified(Index: Integer): boolean; + procedure SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean); + function IsWegwerpPallet_Specified(Index: Integer): boolean; published - property Header: ResponseHeader read FHeader write FHeader; + property AxProductieOrderNummer: string Index (IS_OPTN) read FAxProductieOrderNummer write SetAxProductieOrderNummer stored AxProductieOrderNummer_Specified; + property ProductNummer: string Index (IS_OPTN) read FProductNummer write SetProductNummer stored ProductNummer_Specified; + property DnaCode: string Index (IS_OPTN) read FDnaCode write SetDnaCode stored DnaCode_Specified; + property PalletCode: string Index (IS_OPTN) read FPalletCode write SetPalletCode stored PalletCode_Specified; + property Toelevering: string Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified; + property KlantNummer: string Index (IS_OPTN) read FKlantNummer write SetKlantNummer stored KlantNummer_Specified; + property Locatie: string Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified; + property Lijn: string Index (IS_OPTN) read FLijn write SetLijn stored Lijn_Specified; + property InitialenScanner: string Index (IS_OPTN) read FInitialenScanner write SetInitialenScanner stored InitialenScanner_Specified; + property ScanTijdstip: Horolog Index (IS_OPTN) read FScanTijdstip write SetScanTijdstip stored ScanTijdstip_Specified; + property LadeCode: string Index (IS_OPTN) read FLadeCode write SetLadeCode stored LadeCode_Specified; + property Status: DnaCodeStatus Index (IS_OPTN) read FStatus write SetStatus stored Status_Specified; + property IsDirecteLevering: Boolean Index (IS_OPTN) read FIsDirecteLevering write SetIsDirecteLevering stored IsDirecteLevering_Specified; + property ParentDnaCode: string Index (IS_OPTN) read FParentDnaCode write SetParentDnaCode stored ParentDnaCode_Specified; + property SequentieNummer: string Index (IS_OPTN) read FSequentieNummer write SetSequentieNummer stored SequentieNummer_Specified; + property IsWegwerpPallet: Boolean Index (IS_OPTN) read FIsWegwerpPallet write SetIsWegwerpPallet stored IsWegwerpPallet_Specified; end; // ************************************************************************ // - // XML : ZoekViaPalletCodeResponse, global, + // XML : ZoekViaToeleveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaPalletCodeResponse = class(GeneriekeResponse) + ZoekViaToeleveringRequest = class(TRemotable) private - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); - function DnaCodes_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FToelevering: string; 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 Toelevering: string read FToelevering write FToelevering; end; // ************************************************************************ // - // XML : ZoekViaDnaCodeResponse, global, + // XML : ZoekViaDnaCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaDnaCodeResponse = class(GeneriekeResponse) + ZoekViaDnaCodeRequest = class(TRemotable) private - FDnaCodes: DnaCode; - FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); - function DnaCodes_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FDnaCode: string; public destructor Destroy; override; published - property DnaCodes: DnaCode Index (IS_OPTN) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: string read FDnaCode write FDnaCode; end; - Horolog = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // - // XML : ZoekViaToeleveringRequest, global, + // XML : ZoekViaPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaToeleveringRequest = class(TRemotable) + ZoekViaPalletCodeRequest = 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 : ZoekViaDnaCodeRequest, global, + // XML : DnaCodeAfmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaDnaCodeRequest = class(TRemotable) + DnaCodeAfmeldenRequest = class(TRemotable) private FHeader: RequestHeader; FDnaCode: string; + FAantal: Int64; + FAantal_Specified: boolean; + FToelevering: string; + FToelevering_Specified: boolean; + FPalletCode: string; + 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; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: string read FDnaCode write FDnaCode; + 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; 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; - String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // - // XML : RequestHeader, global, + // XML : ValideerPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RequestHeader = class(TRemotable) + ValideerPalletCodeResponse = class(GeneriekeResponse) private - FInitialen: String_; - FComputerNaam: String_; published - property Initialen: String_ read FInitialen write FInitialen; - property ComputerNaam: String_ read FComputerNaam write FComputerNaam; end; // ************************************************************************ // - // XML : ResponseHeader, global, + // XML : ZoekViaPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ResponseHeader = class(TRemotable) + ZoekViaPalletCodeResponse = 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 : 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; @@ -243,39 +327,28 @@ // ************************************************************************ // - // XML : DnaCodeAfmeldenRequest, global, + // XML : ZoekViaDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenRequest = class(TRemotable) + ZoekViaDnaCodeResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FDnaCode: string; - FAantal: Int64; - FAantal_Specified: boolean; - FToelevering: string; - FToelevering_Specified: boolean; - FPalletCode: string; - 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; + FDnaCodes: DnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); + function DnaCodes_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 DnaCodes: DnaCode Index (IS_OPTN) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : ZoekViaToeleveringResponse, global, + // XML : DnaCodeAfmeldenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaToeleveringResponse = class(GeneriekeResponse) + DnaCodeAfmeldenResponse = class(GeneriekeResponse) private FAantalInToelevering: Int64; FAantalInToelevering_Specified: boolean; @@ -297,245 +370,176 @@ 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 : PalletBijwerkenResponse, global, + // XML : RequestHeader, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenResponse = class(GeneriekeResponse) + 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 : ValideerPalletCodeResponse, global, + // XML : ResponseHeader, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeResponse = class(GeneriekeResponse) + ResponseHeader = class(TRemotable) private + FStatus: String_; + FOmschrijving: String_; published + property Status: String_ read FStatus write FStatus; + property Omschrijving: String_ read FOmschrijving write FOmschrijving; end; + ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : ValideerPalletCodeRequest, global, + // XML : ProboxEtiketAfdrukkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + ProboxEtiketAfdrukkenRequest = class(TRemotable) private FHeader: RequestHeader; - FPalletCode: string; + FDnaCodes: ArrayOfStringString; 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 DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; 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 : GeefVolgendeTbpCodeResponse, global, + // XML : ProboxEtiketAfdrukkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) + ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) private - FVolgendeTbpCode: string; published - property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; end; // ************************************************************************ // - // XML : GeefVolgendeTbpCodeRequest, global, + // XML : ValideerPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeefVolgendeTbpCodeRequest = class(TRemotable) + ValideerPalletCodeRequest = 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 : DirecteLeveringResponse, global, + // XML : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringResponse = class(GeneriekeResponse) + ToeleveringBijwerkenResponse = class(GeneriekeResponse) private - FIsDirecteLevering: Boolean; published - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; // ************************************************************************ // - // XML : PalletBijwerkenRequest, global, + // XML : ToeleveringBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenRequest = class(TRemotable) + ToeleveringBijwerkenRequest = class(TRemotable) private FHeader: RequestHeader; - FPallet: string; + FToelevering: string; FStatus: DnaCodeStatus; FIsDirecteLevering: Boolean; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; - property Pallet: string read FPallet write FPallet; + property Toelevering: string read FToelevering write FToelevering; property Status: DnaCodeStatus read FStatus write FStatus; property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; // ************************************************************************ // - // XML : ToeleveringBijwerkenRequest, global, + // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenRequest = class(TRemotable) + HernoemPalletRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FOudeCode: string; + FNieuweCode: string; + FEnkelDezeDnaCode: string; + FEnkelDezeDnaCode_Specified: boolean; + procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); + function EnkelDezeDnaCode_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 IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + property Header: RequestHeader read FHeader write FHeader; + property OudeCode: string read FOudeCode write FOudeCode; + property NieuweCode: string read FNieuweCode write FNieuweCode; + property EnkelDezeDnaCode: string Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified; end; // ************************************************************************ // - // XML : DnaCode, global, + // XML : GeefVolgendeTbpCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCode = class(DataTransferObject) + GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) private - FAxProductieOrderNummer: string; - FAxProductieOrderNummer_Specified: boolean; - FProductNummer: string; - FProductNummer_Specified: boolean; - FDnaCode: string; - FDnaCode_Specified: boolean; - FPalletCode: string; - FPalletCode_Specified: boolean; - FToelevering: string; - FToelevering_Specified: boolean; - FKlantNummer: string; - FKlantNummer_Specified: boolean; - FLocatie: string; - FLocatie_Specified: boolean; - FLijn: string; - FLijn_Specified: boolean; - FInitialenScanner: string; - FInitialenScanner_Specified: boolean; - FScanTijdstip: Horolog; - FScanTijdstip_Specified: boolean; - FLadeCode: string; - FLadeCode_Specified: boolean; - FStatus: DnaCodeStatus; - FStatus_Specified: boolean; - FIsDirecteLevering: Boolean; - FIsDirecteLevering_Specified: boolean; - FParentDnaCode: string; - FParentDnaCode_Specified: boolean; - FSequentieNummer: string; - FSequentieNummer_Specified: boolean; - FIsWegwerpPallet: Boolean; - FIsWegwerpPallet_Specified: boolean; - procedure SetAxProductieOrderNummer(Index: Integer; const Astring: string); - function AxProductieOrderNummer_Specified(Index: Integer): boolean; - procedure SetProductNummer(Index: Integer; const Astring: string); - function ProductNummer_Specified(Index: Integer): boolean; - procedure SetDnaCode(Index: Integer; const Astring: string); - function DnaCode_Specified(Index: Integer): boolean; - procedure SetPalletCode(Index: Integer; const Astring: string); - function PalletCode_Specified(Index: Integer): boolean; - procedure SetToelevering(Index: Integer; const Astring: string); - function Toelevering_Specified(Index: Integer): boolean; - procedure SetKlantNummer(Index: Integer; const Astring: string); - function KlantNummer_Specified(Index: Integer): boolean; - procedure SetLocatie(Index: Integer; const Astring: string); - function Locatie_Specified(Index: Integer): boolean; - procedure SetLijn(Index: Integer; const Astring: string); - function Lijn_Specified(Index: Integer): boolean; - procedure SetInitialenScanner(Index: Integer; const Astring: string); - function InitialenScanner_Specified(Index: Integer): boolean; - procedure SetScanTijdstip(Index: Integer; const AHorolog: Horolog); - function ScanTijdstip_Specified(Index: Integer): boolean; - procedure SetLadeCode(Index: Integer; const Astring: string); - function LadeCode_Specified(Index: Integer): boolean; - procedure SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); - function Status_Specified(Index: Integer): boolean; - procedure SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean); - function IsDirecteLevering_Specified(Index: Integer): boolean; - procedure SetParentDnaCode(Index: Integer; const Astring: string); - function ParentDnaCode_Specified(Index: Integer): boolean; - procedure SetSequentieNummer(Index: Integer; const Astring: string); - function SequentieNummer_Specified(Index: Integer): boolean; - procedure SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean); - function IsWegwerpPallet_Specified(Index: Integer): boolean; + FVolgendeTbpCode: string; published - property AxProductieOrderNummer: string Index (IS_OPTN) read FAxProductieOrderNummer write SetAxProductieOrderNummer stored AxProductieOrderNummer_Specified; - property ProductNummer: string Index (IS_OPTN) read FProductNummer write SetProductNummer stored ProductNummer_Specified; - property DnaCode: string Index (IS_OPTN) read FDnaCode write SetDnaCode stored DnaCode_Specified; - property PalletCode: string Index (IS_OPTN) read FPalletCode write SetPalletCode stored PalletCode_Specified; - property Toelevering: string Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified; - property KlantNummer: string Index (IS_OPTN) read FKlantNummer write SetKlantNummer stored KlantNummer_Specified; - property Locatie: string Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified; - property Lijn: string Index (IS_OPTN) read FLijn write SetLijn stored Lijn_Specified; - property InitialenScanner: string Index (IS_OPTN) read FInitialenScanner write SetInitialenScanner stored InitialenScanner_Specified; - property ScanTijdstip: Horolog Index (IS_OPTN) read FScanTijdstip write SetScanTijdstip stored ScanTijdstip_Specified; - property LadeCode: string Index (IS_OPTN) read FLadeCode write SetLadeCode stored LadeCode_Specified; - property Status: DnaCodeStatus Index (IS_OPTN) read FStatus write SetStatus stored Status_Specified; - property IsDirecteLevering: Boolean Index (IS_OPTN) read FIsDirecteLevering write SetIsDirecteLevering stored IsDirecteLevering_Specified; - property ParentDnaCode: string Index (IS_OPTN) read FParentDnaCode write SetParentDnaCode stored ParentDnaCode_Specified; - property SequentieNummer: string Index (IS_OPTN) read FSequentieNummer write SetSequentieNummer stored SequentieNummer_Specified; - property IsWegwerpPallet: Boolean Index (IS_OPTN) read FIsWegwerpPallet write SetIsWegwerpPallet stored IsWegwerpPallet_Specified; + property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; 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; @@ -559,30 +563,57 @@ // ************************************************************************ // - // XML : HernoemPalletRequest, global, + // XML : PalletBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - HernoemPalletRequest = class(TRemotable) + PalletBijwerkenRequest = class(TRemotable) private FHeader: RequestHeader; - FOudeCode: string; - FNieuweCode: string; - FEnkelDezeDnaCode: string; - FEnkelDezeDnaCode_Specified: boolean; - procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); - function EnkelDezeDnaCode_Specified(Index: Integer): boolean; + FPallet: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property OudeCode: string read FOudeCode write FOudeCode; - property NieuweCode: string read FNieuweCode write FNieuweCode; - property EnkelDezeDnaCode: string Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_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 : 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 : 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; + + + // ************************************************************************ // + // 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 @@ -599,6 +630,7 @@ function HernoemPallet(const HernoemPalletRequest: HernoemPalletRequest): HernoemPalletResponse; stdcall; function IsDirecteLevering(const DirecteLeveringRequest: DirecteLeveringRequest): DirecteLeveringResponse; stdcall; function PalletBijwerken(const PalletBijwerkenRequest: PalletBijwerkenRequest): PalletBijwerkenResponse; stdcall; + function ProboxEtiketAfdrukken(const ProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest): ProboxEtiketAfdrukkenResponse; stdcall; function ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall; function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; function ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall; @@ -649,383 +681,394 @@ end; -destructor GeneriekeResponse.Destroy; +procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FAxProductieOrderNummer := Astring; + FAxProductieOrderNummer_Specified := True; end; -destructor ZoekViaPalletCodeResponse.Destroy; -var - I: Integer; +function DnaCode.AxProductieOrderNummer_Specified(Index: Integer): boolean; begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); - inherited Destroy; + Result := FAxProductieOrderNummer_Specified; end; -procedure ZoekViaPalletCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure DnaCode.SetProductNummer(Index: Integer; const Astring: string); begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + FProductNummer := Astring; + FProductNummer_Specified := True; end; -function ZoekViaPalletCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +function DnaCode.ProductNummer_Specified(Index: Integer): boolean; begin - Result := FDnaCodes_Specified; + Result := FProductNummer_Specified; end; -destructor ZoekViaDnaCodeResponse.Destroy; +procedure DnaCode.SetDnaCode(Index: Integer; const Astring: string); begin - SysUtils.FreeAndNil(FDnaCodes); - inherited Destroy; + FDnaCode := Astring; + FDnaCode_Specified := True; end; -procedure ZoekViaDnaCodeResponse.SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); +function DnaCode.DnaCode_Specified(Index: Integer): boolean; begin - FDnaCodes := ADnaCode; - FDnaCodes_Specified := True; + Result := FDnaCode_Specified; end; -function ZoekViaDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +procedure DnaCode.SetPalletCode(Index: Integer; const Astring: string); begin - Result := FDnaCodes_Specified; + FPalletCode := Astring; + FPalletCode_Specified := True; end; -destructor ZoekViaToeleveringRequest.Destroy; +function DnaCode.PalletCode_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FPalletCode_Specified; end; -destructor ZoekViaDnaCodeRequest.Destroy; +procedure DnaCode.SetToelevering(Index: Integer; const Astring: string); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FToelevering := Astring; + FToelevering_Specified := True; end; -destructor ZoekViaPalletCodeRequest.Destroy; +function DnaCode.Toelevering_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FToelevering_Specified; end; -destructor DnaCodeAfmeldenResponse.Destroy; -var - I: Integer; +procedure DnaCode.SetKlantNummer(Index: Integer; const Astring: string); begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); - inherited Destroy; + FKlantNummer := Astring; + FKlantNummer_Specified := True; end; -procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); +function DnaCode.KlantNummer_Specified(Index: Integer): boolean; begin - FAantalInToelevering := AInt64; - FAantalInToelevering_Specified := True; + Result := FKlantNummer_Specified; end; -function DnaCodeAfmeldenResponse.AantalInToelevering_Specified(Index: Integer): boolean; +procedure DnaCode.SetLocatie(Index: Integer; const Astring: string); begin - Result := FAantalInToelevering_Specified; + FLocatie := Astring; + FLocatie_Specified := True; end; -procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); +function DnaCode.Locatie_Specified(Index: Integer): boolean; begin - FAantalReedsGescand := AInt64; - FAantalReedsGescand_Specified := True; + Result := FLocatie_Specified; end; -function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; +procedure DnaCode.SetLijn(Index: Integer; const Astring: string); begin - Result := FAantalReedsGescand_Specified; + FLijn := Astring; + FLijn_Specified := True; end; -procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +function DnaCode.Lijn_Specified(Index: Integer): boolean; begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + Result := FLijn_Specified; end; -function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; +procedure DnaCode.SetInitialenScanner(Index: Integer; const Astring: string); begin - Result := FDnaCodes_Specified; + FInitialenScanner := Astring; + FInitialenScanner_Specified := True; end; -destructor DnaCodeAfmeldenRequest.Destroy; +function DnaCode.InitialenScanner_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FInitialenScanner_Specified; end; -procedure DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64); +procedure DnaCode.SetScanTijdstip(Index: Integer; const AHorolog: Horolog); begin - FAantal := AInt64; - FAantal_Specified := True; + FScanTijdstip := AHorolog; + FScanTijdstip_Specified := True; end; -function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean; +function DnaCode.ScanTijdstip_Specified(Index: Integer): boolean; begin - Result := FAantal_Specified; + Result := FScanTijdstip_Specified; end; -procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string); +procedure DnaCode.SetLadeCode(Index: Integer; const Astring: string); begin - FToelevering := Astring; - FToelevering_Specified := True; + FLadeCode := Astring; + FLadeCode_Specified := True; end; -function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean; +function DnaCode.LadeCode_Specified(Index: Integer): boolean; begin - Result := FToelevering_Specified; + Result := FLadeCode_Specified; end; -destructor ZoekViaToeleveringResponse.Destroy; -var - I: Integer; +procedure DnaCode.SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); - inherited Destroy; + FStatus := ADnaCodeStatus; + FStatus_Specified := True; end; -procedure ZoekViaToeleveringResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); +function DnaCode.Status_Specified(Index: Integer): boolean; begin - FAantalInToelevering := AInt64; - FAantalInToelevering_Specified := True; + Result := FStatus_Specified; end; -function ZoekViaToeleveringResponse.AantalInToelevering_Specified(Index: Integer): boolean; +procedure DnaCode.SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean); begin - Result := FAantalInToelevering_Specified; + FIsDirecteLevering := ABoolean; + FIsDirecteLevering_Specified := True; end; -procedure ZoekViaToeleveringResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); +function DnaCode.IsDirecteLevering_Specified(Index: Integer): boolean; begin - FAantalReedsGescand := AInt64; - FAantalReedsGescand_Specified := True; + Result := FIsDirecteLevering_Specified; end; -function ZoekViaToeleveringResponse.AantalReedsGescand_Specified(Index: Integer): boolean; +procedure DnaCode.SetParentDnaCode(Index: Integer; const Astring: string); begin - Result := FAantalReedsGescand_Specified; + FParentDnaCode := Astring; + FParentDnaCode_Specified := True; end; -procedure ZoekViaToeleveringResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +function DnaCode.ParentDnaCode_Specified(Index: Integer): boolean; begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + Result := FParentDnaCode_Specified; end; -function ZoekViaToeleveringResponse.DnaCodes_Specified(Index: Integer): boolean; +procedure DnaCode.SetSequentieNummer(Index: Integer; const Astring: string); begin - Result := FDnaCodes_Specified; + FSequentieNummer := Astring; + FSequentieNummer_Specified := True; end; -destructor ValideerPalletCodeRequest.Destroy; +function DnaCode.SequentieNummer_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FSequentieNummer_Specified; end; -destructor GeefVolgendeTbpCodeRequest.Destroy; +procedure DnaCode.SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean); begin + FIsWegwerpPallet := ABoolean; + FIsWegwerpPallet_Specified := True; +end; + +function DnaCode.IsWegwerpPallet_Specified(Index: Integer): boolean; +begin + Result := FIsWegwerpPallet_Specified; +end; + +destructor ZoekViaToeleveringRequest.Destroy; +begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor PalletBijwerkenRequest.Destroy; +destructor ZoekViaDnaCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ToeleveringBijwerkenRequest.Destroy; +destructor ZoekViaPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); +destructor DnaCodeAfmeldenRequest.Destroy; begin - FAxProductieOrderNummer := Astring; - FAxProductieOrderNummer_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function DnaCode.AxProductieOrderNummer_Specified(Index: Integer): boolean; +procedure DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64); begin - Result := FAxProductieOrderNummer_Specified; + FAantal := AInt64; + FAantal_Specified := True; end; -procedure DnaCode.SetProductNummer(Index: Integer; const Astring: string); +function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean; begin - FProductNummer := Astring; - FProductNummer_Specified := True; + Result := FAantal_Specified; end; -function DnaCode.ProductNummer_Specified(Index: Integer): boolean; +procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string); begin - Result := FProductNummer_Specified; + FToelevering := Astring; + FToelevering_Specified := True; end; -procedure DnaCode.SetDnaCode(Index: Integer; const Astring: string); +function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean; begin - FDnaCode := Astring; - FDnaCode_Specified := True; + Result := FToelevering_Specified; end; -function DnaCode.DnaCode_Specified(Index: Integer): boolean; +destructor GeneriekeResponse.Destroy; begin - Result := FDnaCode_Specified; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -procedure DnaCode.SetPalletCode(Index: Integer; const Astring: string); +destructor ZoekViaPalletCodeResponse.Destroy; +var + I: Integer; begin - FPalletCode := Astring; - FPalletCode_Specified := True; + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; end; -function DnaCode.PalletCode_Specified(Index: Integer): boolean; +procedure ZoekViaPalletCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - Result := FPalletCode_Specified; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -procedure DnaCode.SetToelevering(Index: Integer; const Astring: string); +function ZoekViaPalletCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin - FToelevering := Astring; - FToelevering_Specified := True; + Result := FDnaCodes_Specified; end; -function DnaCode.Toelevering_Specified(Index: Integer): boolean; +destructor ZoekViaToeleveringResponse.Destroy; +var + I: Integer; begin - Result := FToelevering_Specified; + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; end; -procedure DnaCode.SetKlantNummer(Index: Integer; const Astring: string); +procedure ZoekViaToeleveringResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); begin - FKlantNummer := Astring; - FKlantNummer_Specified := True; + FAantalInToelevering := AInt64; + FAantalInToelevering_Specified := True; end; -function DnaCode.KlantNummer_Specified(Index: Integer): boolean; +function ZoekViaToeleveringResponse.AantalInToelevering_Specified(Index: Integer): boolean; begin - Result := FKlantNummer_Specified; + Result := FAantalInToelevering_Specified; end; -procedure DnaCode.SetLocatie(Index: Integer; const Astring: string); +procedure ZoekViaToeleveringResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); begin - FLocatie := Astring; - FLocatie_Specified := True; + FAantalReedsGescand := AInt64; + FAantalReedsGescand_Specified := True; end; -function DnaCode.Locatie_Specified(Index: Integer): boolean; +function ZoekViaToeleveringResponse.AantalReedsGescand_Specified(Index: Integer): boolean; begin - Result := FLocatie_Specified; + Result := FAantalReedsGescand_Specified; end; -procedure DnaCode.SetLijn(Index: Integer; const Astring: string); +procedure ZoekViaToeleveringResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FLijn := Astring; - FLijn_Specified := True; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -function DnaCode.Lijn_Specified(Index: Integer): boolean; +function ZoekViaToeleveringResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FLijn_Specified; + Result := FDnaCodes_Specified; end; -procedure DnaCode.SetInitialenScanner(Index: Integer; const Astring: string); +destructor ZoekViaDnaCodeResponse.Destroy; begin - FInitialenScanner := Astring; - FInitialenScanner_Specified := True; + SysUtils.FreeAndNil(FDnaCodes); + inherited Destroy; end; -function DnaCode.InitialenScanner_Specified(Index: Integer): boolean; +procedure ZoekViaDnaCodeResponse.SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); begin - Result := FInitialenScanner_Specified; + FDnaCodes := ADnaCode; + FDnaCodes_Specified := True; end; -procedure DnaCode.SetScanTijdstip(Index: Integer; const AHorolog: Horolog); +function ZoekViaDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin - FScanTijdstip := AHorolog; - FScanTijdstip_Specified := True; + Result := FDnaCodes_Specified; end; -function DnaCode.ScanTijdstip_Specified(Index: Integer): boolean; +destructor DnaCodeAfmeldenResponse.Destroy; +var + I: Integer; begin - Result := FScanTijdstip_Specified; + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; end; -procedure DnaCode.SetLadeCode(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); begin - FLadeCode := Astring; - FLadeCode_Specified := True; + FAantalInToelevering := AInt64; + FAantalInToelevering_Specified := True; end; -function DnaCode.LadeCode_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.AantalInToelevering_Specified(Index: Integer): boolean; begin - Result := FLadeCode_Specified; + Result := FAantalInToelevering_Specified; end; -procedure DnaCode.SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); +procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); begin - FStatus := ADnaCodeStatus; - FStatus_Specified := True; + FAantalReedsGescand := AInt64; + FAantalReedsGescand_Specified := True; end; -function DnaCode.Status_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; begin - Result := FStatus_Specified; + Result := FAantalReedsGescand_Specified; end; -procedure DnaCode.SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean); +procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FIsDirecteLevering := ABoolean; - FIsDirecteLevering_Specified := True; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -function DnaCode.IsDirecteLevering_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FIsDirecteLevering_Specified; + Result := FDnaCodes_Specified; end; -procedure DnaCode.SetParentDnaCode(Index: Integer; const Astring: string); +destructor ProboxEtiketAfdrukkenRequest.Destroy; begin - FParentDnaCode := Astring; - FParentDnaCode_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function DnaCode.ParentDnaCode_Specified(Index: Integer): boolean; +destructor ValideerPalletCodeRequest.Destroy; begin - Result := FParentDnaCode_Specified; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -procedure DnaCode.SetSequentieNummer(Index: Integer; const Astring: string); +destructor ToeleveringBijwerkenRequest.Destroy; begin - FSequentieNummer := Astring; - FSequentieNummer_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function DnaCode.SequentieNummer_Specified(Index: Integer): boolean; +destructor HernoemPalletRequest.Destroy; begin - Result := FSequentieNummer_Specified; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -procedure DnaCode.SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean); +procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string); begin - FIsWegwerpPallet := ABoolean; - FIsWegwerpPallet_Specified := True; + FEnkelDezeDnaCode := Astring; + FEnkelDezeDnaCode_Specified := True; end; -function DnaCode.IsWegwerpPallet_Specified(Index: Integer): boolean; +function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean; begin - Result := FIsWegwerpPallet_Specified; + Result := FEnkelDezeDnaCode_Specified; end; -destructor DirecteLeveringRequest.Destroy; +destructor GeefVolgendeTbpCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; @@ -1052,23 +1095,18 @@ Result := FDnaCodes_Specified; end; -destructor HernoemPalletRequest.Destroy; +destructor PalletBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string); +destructor DirecteLeveringRequest.Destroy; begin - FEnkelDezeDnaCode := Astring; - FEnkelDezeDnaCode_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean; -begin - Result := FEnkelDezeDnaCode_Specified; -end; - initialization { DnaCodeServiceSoap } InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); @@ -1089,6 +1127,9 @@ { DnaCodeServiceSoap.PalletBijwerken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'PalletBijwerken', '', '[ReturnName="PalletBijwerkenResult"]'); + { DnaCodeServiceSoap.ProboxEtiketAfdrukken } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ProboxEtiketAfdrukken', '', + '[ReturnName="ProboxEtiketAfdrukkenResult"]'); { DnaCodeServiceSoap.ToeleveringBijwerken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ToeleveringBijwerken', '', '[ReturnName="ToeleveringBijwerkenResult"]'); @@ -1105,37 +1146,41 @@ InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '', '[ReturnName="ZoekViaToeleveringResult"]'); RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); - RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); - RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse'); - RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); + 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(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest'); RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); 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(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(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); + 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(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.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenRequest'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); - RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); - RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); - RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); 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(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); + RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); end. \ No newline at end of file