// ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1 // >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 // (30/07/2020 14:51:51 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; const IS_OPTN = $0001; IS_UNBD = $0002; IS_NLBL = $0004; IS_REF = $0080; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Embarcadero types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaLadecodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaOrdernummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } BewerkKlantinstellingenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } BewerkKlantinstellingenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeefVolgendeTbpCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaLadecodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaOrdernummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } Klantinstellingen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekAlleVhossLadesBijDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekAlleVhossLadesBijDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekAlleDnaCodesDieOpVhossMoetenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekAlleDnaCodesDieOpVhossMoetenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaBatchRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaKlantnummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaKlantnummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaBatchResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } DnaCodeStatus = (Nieuw, Gescand, Ongedaan, OnHold, InBuffer, InBatch); {$SCOPEDENUMS OFF} ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // // XML : GeefVolgendeTbpCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // GeefVolgendeTbpCodeRequest = class(TRemotable) private FHeader: RequestHeader; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; end; String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // HernoemPalletRequest = 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; 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; end; // ************************************************************************ // // XML : DnaCodeAfmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // DnaCodeAfmeldenRequest = class(TRemotable) private FHeader: RequestHeader; FDnaCode: string; FAantal: Int64; FAantal_Specified: boolean; FToelevering: string; FToelevering_Specified: boolean; FPalletCode: string; FLocatie: string; FLocatie_Specified: boolean; FBatchId: string; FBatchId_Specified: boolean; procedure SetAantal(Index: Integer; const AInt64: Int64); function Aantal_Specified(Index: Integer): boolean; procedure SetToelevering(Index: Integer; const Astring: string); function Toelevering_Specified(Index: Integer): boolean; procedure SetLocatie(Index: Integer; const Astring: string); function Locatie_Specified(Index: Integer): boolean; procedure SetBatchId(Index: Integer; const Astring: string); function BatchId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property DnaCode: string read FDnaCode write FDnaCode; property Aantal: Int64 Index (IS_OPTN) read FAantal write SetAantal stored Aantal_Specified; property Toelevering: string Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified; property PalletCode: string read FPalletCode write FPalletCode; property Locatie: string Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified; property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; end; // ************************************************************************ // // XML : ZoekViaPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaPalletCodeRequest = class(TRemotable) private FHeader: RequestHeader; FPalletCode: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property PalletCode: string read FPalletCode write FPalletCode; end; // ************************************************************************ // // XML : ZoekViaToeleveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaToeleveringRequest = class(TRemotable) private FHeader: RequestHeader; FToelevering: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property Toelevering: string read FToelevering write FToelevering; end; // ************************************************************************ // // XML : ZoekViaLadecodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaLadecodeRequest = class(TRemotable) private FHeader: RequestHeader; FLadecode: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property Ladecode: string read FLadecode write FLadecode; end; // ************************************************************************ // // XML : ZoekViaOrdernummerRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaOrdernummerRequest = class(TRemotable) private FHeader: RequestHeader; FOrdernummer: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property Ordernummer: string read FOrdernummer write FOrdernummer; end; // ************************************************************************ // // XML : BewerkKlantinstellingenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // BewerkKlantinstellingenRequest = class(TRemotable) private FHeader: RequestHeader; FActie: string; FKlantId: string; FIsExport: Boolean; FIsBlumXs: Boolean; FWegwerpPallet: Boolean; FMeerdereToeleveringen: Boolean; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property Actie: string read FActie write FActie; property KlantId: string read FKlantId write FKlantId; property IsExport: Boolean read FIsExport write FIsExport; property IsBlumXs: Boolean read FIsBlumXs write FIsBlumXs; property WegwerpPallet: Boolean read FWegwerpPallet write FWegwerpPallet; property MeerdereToeleveringen: Boolean read FMeerdereToeleveringen write FMeerdereToeleveringen; end; // ************************************************************************ // // XML : RequestHeader, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // RequestHeader = class(TRemotable) private FInitialen: String_; FComputerNaam: String_; published property Initialen: String_ read FInitialen write FInitialen; property ComputerNaam: String_ read FComputerNaam write FComputerNaam; end; // ************************************************************************ // // XML : ResponseHeader, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ResponseHeader = class(TRemotable) private FStatus: String_; FOmschrijving: String_; published property Status: String_ read FStatus write FStatus; property Omschrijving: String_ read FOmschrijving write FOmschrijving; end; ArrayOfKlantinstellingenKlantinstellingen = array of Klantinstellingen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // // XML : DataTransferObject, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // DataTransferObject = class(TRemotable) private published end; // ************************************************************************ // // XML : DnaCode, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // DnaCode = class(DataTransferObject) 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: TXSDateTime; 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; FBatchId: string; FBatchId_Specified: boolean; FAfdrukTijdstip: TXSDateTime; FAfdrukTijdstip_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 ATXSDateTime: TXSDateTime); 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; procedure SetBatchId(Index: Integer; const Astring: string); function BatchId_Specified(Index: Integer): boolean; procedure SetAfdrukTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); function AfdrukTijdstip_Specified(Index: Integer): boolean; public destructor Destroy; override; 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: TXSDateTime 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 BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; property AfdrukTijdstip: TXSDateTime Index (IS_OPTN) read FAfdrukTijdstip write SetAfdrukTijdstip stored AfdrukTijdstip_Specified; end; // ************************************************************************ // // XML : GeneriekeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // GeneriekeResponse = class(DataTransferObject) private FHeader: ResponseHeader; public destructor Destroy; override; published property Header: ResponseHeader read FHeader write FHeader; end; // ************************************************************************ // // XML : BewerkKlantinstellingenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // BewerkKlantinstellingenResponse = class(GeneriekeResponse) private FKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen; FKlantinstellingen_Specified: boolean; procedure SetKlantinstellingen(Index: Integer; const AArrayOfKlantinstellingenKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen); function Klantinstellingen_Specified(Index: Integer): boolean; public destructor Destroy; override; published property Klantinstellingen: ArrayOfKlantinstellingenKlantinstellingen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FKlantinstellingen write SetKlantinstellingen stored Klantinstellingen_Specified; 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; // ************************************************************************ // // XML : HernoemPalletResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // HernoemPalletResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // // XML : DnaCodeAfmeldenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // DnaCodeAfmeldenResponse = class(GeneriekeResponse) private FAantalInToelevering: Int64; FAantalInToelevering_Specified: boolean; FAantalReedsGescand: Int64; FAantalReedsGescand_Specified: boolean; FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; FBatchId: string; FBatchId_Specified: boolean; procedure SetAantalInToelevering(Index: Integer; const AInt64: Int64); function AantalInToelevering_Specified(Index: Integer): boolean; procedure SetAantalReedsGescand(Index: Integer; const AInt64: Int64); function AantalReedsGescand_Specified(Index: Integer): boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; procedure SetBatchId(Index: Integer; const Astring: string); function BatchId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property AantalInToelevering: Int64 Index (IS_OPTN) read FAantalInToelevering write SetAantalInToelevering stored AantalInToelevering_Specified; property AantalReedsGescand: Int64 Index (IS_OPTN) read FAantalReedsGescand write SetAantalReedsGescand stored AantalReedsGescand_Specified; property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; end; // ************************************************************************ // // XML : ZoekViaPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaPalletCodeResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; FMeerdereToeleveringenToegestaan: Boolean; FMeerdereToeleveringenToegestaan_Specified: boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; procedure SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); function MeerdereToeleveringenToegestaan_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; property MeerdereToeleveringenToegestaan: Boolean Index (IS_OPTN) read FMeerdereToeleveringenToegestaan write SetMeerdereToeleveringenToegestaan stored MeerdereToeleveringenToegestaan_Specified; end; // ************************************************************************ // // XML : ZoekViaToeleveringResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaToeleveringResponse = class(GeneriekeResponse) private FAantalInToelevering: Int64; FAantalInToelevering_Specified: boolean; FAantalReedsGescand: Int64; FAantalReedsGescand_Specified: boolean; FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; 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 : ZoekViaLadecodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaLadecodeResponse = 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 : ZoekViaOrdernummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaOrdernummerResponse = 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 : Klantinstellingen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // Klantinstellingen = class(DataTransferObject) private FKlantId: string; FKlantId_Specified: boolean; FKlantnaam: string; FKlantnaam_Specified: boolean; FIsExport: Boolean; FIsExport_Specified: boolean; FWegwerpPallet: Boolean; FWegwerpPallet_Specified: boolean; FMeerdereToeleveringen: Boolean; FMeerdereToeleveringen_Specified: boolean; procedure SetKlantId(Index: Integer; const Astring: string); function KlantId_Specified(Index: Integer): boolean; procedure SetKlantnaam(Index: Integer; const Astring: string); function Klantnaam_Specified(Index: Integer): boolean; procedure SetIsExport(Index: Integer; const ABoolean: Boolean); function IsExport_Specified(Index: Integer): boolean; procedure SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); function WegwerpPallet_Specified(Index: Integer): boolean; procedure SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); function MeerdereToeleveringen_Specified(Index: Integer): boolean; published property KlantId: string Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified; property Klantnaam: string Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified; property IsExport: Boolean Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified; property WegwerpPallet: Boolean Index (IS_OPTN) read FWegwerpPallet write SetWegwerpPallet stored WegwerpPallet_Specified; property MeerdereToeleveringen: Boolean Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified; end; // ************************************************************************ // // XML : ZoekAlleVhossLadesBijDnaCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekAlleVhossLadesBijDnaCodeRequest = class(TRemotable) private FHeader: RequestHeader; FDnaCode: string; FGuiVhossVolgnummer: string; FGuiVhossVolgnummer_Specified: boolean; procedure SetGuiVhossVolgnummer(Index: Integer; const Astring: string); function GuiVhossVolgnummer_Specified(Index: Integer): boolean; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property DnaCode: string read FDnaCode write FDnaCode; property GuiVhossVolgnummer: string Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified; end; // ************************************************************************ // // XML : ZoekAlleVhossLadesBijDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekAlleVhossLadesBijDnaCodeResponse = 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 : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekAlleDnaCodesDieOpVhossMoetenResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // // XML : ValideerPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ValideerPalletCodeResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // // XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable) private FHeader: RequestHeader; FFrameId: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property FrameId: string read FFrameId write FFrameId; end; // ************************************************************************ // // XML : ZoekViaBatchRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaBatchRequest = class(TRemotable) private FHeader: RequestHeader; FBatchId: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property BatchId: string read FBatchId write FBatchId; end; // ************************************************************************ // // XML : ZoekViaKlantnummerRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaKlantnummerRequest = class(TRemotable) private FHeader: RequestHeader; FKlantnummer: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property Klantnummer: string read FKlantnummer write FKlantnummer; end; // ************************************************************************ // // XML : ZoekViaKlantnummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaKlantnummerResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // // XML : ZoekViaDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaDnaCodeResponse = class(GeneriekeResponse) private FDnaCodes: DnaCode; FDnaCodes_Specified: boolean; procedure SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published property DnaCodes: DnaCode Index (IS_OPTN) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // // XML : ZoekViaBatchResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaBatchResponse = 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 : ZoekViaDnaCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ZoekViaDnaCodeRequest = class(TRemotable) private FHeader: RequestHeader; FDnaCode: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property DnaCode: string read FDnaCode write FDnaCode; end; // ************************************************************************ // // XML : PalletBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // PalletBijwerkenResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // // XML : RondAfKaderdeurDagRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // RondAfKaderdeurDagRequest = class(TRemotable) private FHeader: RequestHeader; FDnaCode: String_; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property DnaCode: String_ read FDnaCode write FDnaCode; end; // ************************************************************************ // // XML : PalletBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // PalletBijwerkenRequest = class(TRemotable) private FHeader: RequestHeader; FPallet: string; FStatus: DnaCodeStatus; FIsDirecteLevering: Boolean; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property Pallet: string read FPallet write FPallet; property Status: DnaCodeStatus read FStatus write FStatus; property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; // ************************************************************************ // // XML : DirecteLeveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // DirecteLeveringRequest = class(TRemotable) private FHeader: RequestHeader; FToelevering: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property Toelevering: string read FToelevering write FToelevering; end; // ************************************************************************ // // XML : 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 : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ToeleveringBijwerkenResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // // XML : ValideerPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ValideerPalletCodeRequest = class(TRemotable) private FHeader: RequestHeader; FPalletCode: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property PalletCode: string read FPalletCode write FPalletCode; end; // ************************************************************************ // // XML : ToeleveringBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ToeleveringBijwerkenRequest = class(TRemotable) private FHeader: RequestHeader; FToelevering: string; FStatus: DnaCodeStatus; FIsDirecteLevering: 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; end; // ************************************************************************ // // XML : ToeleveringMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // ToeleveringMetAantallen = class(DataTransferObject) private FToeleveringID: string; FToeleveringID_Specified: boolean; FAantalKaderdeuren: string; FAantalKaderdeuren_Specified: boolean; FAantalKaderdeurenGescand: string; FAantalKaderdeurenGescand_Specified: boolean; procedure SetToeleveringID(Index: Integer; const Astring: string); function ToeleveringID_Specified(Index: Integer): boolean; procedure SetAantalKaderdeuren(Index: Integer; const Astring: string); function AantalKaderdeuren_Specified(Index: Integer): boolean; procedure SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); function AantalKaderdeurenGescand_Specified(Index: Integer): boolean; published property ToeleveringID: string Index (IS_OPTN) read FToeleveringID write SetToeleveringID stored ToeleveringID_Specified; property AantalKaderdeuren: string Index (IS_OPTN) read FAantalKaderdeuren write SetAantalKaderdeuren stored AantalKaderdeuren_Specified; property AantalKaderdeurenGescand: string Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified; end; ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // // XML : RondAfKaderdeurDagResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // RondAfKaderdeurDagResponse = class(GeneriekeResponse) private FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen; FToeleveringMetAantallen_Specified: boolean; procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); function ToeleveringMetAantallen_Specified(Index: Integer): boolean; public destructor Destroy; override; published property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; end; // ************************************************************************ // // 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 // use : literal // binding : DnaCodeServiceSoap // service : DnaCodeService // port : DnaCodeServiceSoap // URL : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls // ************************************************************************ // DnaCodeServiceSoap = interface(IInvokable) ['{514675BC-4331-0084-2F76-0934B2799FAE}'] function BewerkKlantinstellingen(const BewerkKlantInstellingen: BewerkKlantinstellingenRequest): BewerkKlantinstellingenResponse; stdcall; function DnaCodeAfmelden(const DnaCodeAfmeldenRequest: DnaCodeAfmeldenRequest): DnaCodeAfmeldenResponse; stdcall; function GeefVolgendeTbpCode(const GeefVolgendeTbpCodeRequest: GeefVolgendeTbpCodeRequest): GeefVolgendeTbpCodeResponse; stdcall; function HernoemPallet(const HernoemPalletRequest: HernoemPalletRequest): HernoemPalletResponse; stdcall; function IsDirecteLevering(const DirecteLeveringRequest: DirecteLeveringRequest): DirecteLeveringResponse; stdcall; function PalletBijwerken(const PalletBijwerkenRequest: PalletBijwerkenRequest): PalletBijwerkenResponse; stdcall; function RondAfKaderdeurDag(const RondAfKaderdeurDagRequest: RondAfKaderdeurDagRequest): RondAfKaderdeurDagResponse; stdcall; function ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall; function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; function ZoekAlleDnaCodesDieOpVhossMoeten(const ZoekAlleDnaCodesDieOpVhossMoetenRequest: ZoekAlleDnaCodesDieOpVhossMoetenRequest): ZoekAlleDnaCodesDieOpVhossMoetenResponse; stdcall; function ZoekAlleVhossLadesBijDnaCode(const ZoekAlleVhossLadesBijDnaCode: ZoekAlleVhossLadesBijDnaCodeRequest): ZoekAlleVhossLadesBijDnaCodeResponse; stdcall; function ZoekViaBatch(const ZoekViaBatchRequest: ZoekViaBatchRequest): ZoekViaBatchResponse; stdcall; function ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall; function ZoekViaKlantnummer(const ZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest): ZoekViaKlantnummerResponse; stdcall; function ZoekViaLadecode(const ZoekViaLadecodeRequest: ZoekViaLadecodeRequest): ZoekViaLadecodeResponse; stdcall; function ZoekViaOrdernummer(const ZoekViaOrdernummerRequest: ZoekViaOrdernummerRequest): ZoekViaOrdernummerResponse; stdcall; function ZoekViaPalletCode(const ZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall; function ZoekViaToelevering(const ZoekViaToeleveringRequest: ZoekViaToeleveringRequest): ZoekViaToeleveringResponse; stdcall; end; function GetDnaCodeServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): DnaCodeServiceSoap; implementation uses SysUtils; function GetDnaCodeServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): DnaCodeServiceSoap; const defWSDL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1'; defURL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls'; defSvc = 'DnaCodeService'; defPrt = 'DnaCodeServiceSoap'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as DnaCodeServiceSoap); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; destructor GeefVolgendeTbpCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor HernoemPalletRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string); begin FEnkelDezeDnaCode := Astring; FEnkelDezeDnaCode_Specified := True; end; function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean; begin Result := FEnkelDezeDnaCode_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; procedure DnaCodeAfmeldenRequest.SetLocatie(Index: Integer; const Astring: string); begin FLocatie := Astring; FLocatie_Specified := True; end; function DnaCodeAfmeldenRequest.Locatie_Specified(Index: Integer): boolean; begin Result := FLocatie_Specified; end; procedure DnaCodeAfmeldenRequest.SetBatchId(Index: Integer; const Astring: string); begin FBatchId := Astring; FBatchId_Specified := True; end; function DnaCodeAfmeldenRequest.BatchId_Specified(Index: Integer): boolean; begin Result := FBatchId_Specified; end; destructor ZoekViaPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ZoekViaToeleveringRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ZoekViaLadecodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ZoekViaOrdernummerRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor BewerkKlantinstellingenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor DnaCode.Destroy; begin SysUtils.FreeAndNil(FScanTijdstip); SysUtils.FreeAndNil(FAfdrukTijdstip); inherited Destroy; end; procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); begin FAxProductieOrderNummer := Astring; FAxProductieOrderNummer_Specified := True; end; function DnaCode.AxProductieOrderNummer_Specified(Index: Integer): boolean; begin Result := FAxProductieOrderNummer_Specified; end; procedure DnaCode.SetProductNummer(Index: Integer; const Astring: string); begin FProductNummer := Astring; FProductNummer_Specified := True; end; function DnaCode.ProductNummer_Specified(Index: Integer): boolean; begin Result := FProductNummer_Specified; end; procedure DnaCode.SetDnaCode(Index: Integer; const Astring: string); begin FDnaCode := Astring; FDnaCode_Specified := True; end; function DnaCode.DnaCode_Specified(Index: Integer): boolean; begin Result := FDnaCode_Specified; end; procedure DnaCode.SetPalletCode(Index: Integer; const Astring: string); begin FPalletCode := Astring; FPalletCode_Specified := True; end; function DnaCode.PalletCode_Specified(Index: Integer): boolean; begin Result := FPalletCode_Specified; end; procedure DnaCode.SetToelevering(Index: Integer; const Astring: string); begin FToelevering := Astring; FToelevering_Specified := True; end; function DnaCode.Toelevering_Specified(Index: Integer): boolean; begin Result := FToelevering_Specified; end; procedure DnaCode.SetKlantNummer(Index: Integer; const Astring: string); begin FKlantNummer := Astring; FKlantNummer_Specified := True; end; function DnaCode.KlantNummer_Specified(Index: Integer): boolean; begin Result := FKlantNummer_Specified; end; procedure DnaCode.SetLocatie(Index: Integer; const Astring: string); begin FLocatie := Astring; FLocatie_Specified := True; end; function DnaCode.Locatie_Specified(Index: Integer): boolean; begin Result := FLocatie_Specified; end; procedure DnaCode.SetLijn(Index: Integer; const Astring: string); begin FLijn := Astring; FLijn_Specified := True; end; function DnaCode.Lijn_Specified(Index: Integer): boolean; begin Result := FLijn_Specified; end; procedure DnaCode.SetInitialenScanner(Index: Integer; const Astring: string); begin FInitialenScanner := Astring; FInitialenScanner_Specified := True; end; function DnaCode.InitialenScanner_Specified(Index: Integer): boolean; begin Result := FInitialenScanner_Specified; end; procedure DnaCode.SetScanTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); begin FScanTijdstip := ATXSDateTime; FScanTijdstip_Specified := True; end; function DnaCode.ScanTijdstip_Specified(Index: Integer): boolean; begin Result := FScanTijdstip_Specified; end; procedure DnaCode.SetLadeCode(Index: Integer; const Astring: string); begin FLadeCode := Astring; FLadeCode_Specified := True; end; function DnaCode.LadeCode_Specified(Index: Integer): boolean; begin Result := FLadeCode_Specified; end; procedure DnaCode.SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); begin FStatus := ADnaCodeStatus; FStatus_Specified := True; end; function DnaCode.Status_Specified(Index: Integer): boolean; begin Result := FStatus_Specified; end; procedure DnaCode.SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean); begin FIsDirecteLevering := ABoolean; FIsDirecteLevering_Specified := True; end; function DnaCode.IsDirecteLevering_Specified(Index: Integer): boolean; begin Result := FIsDirecteLevering_Specified; end; procedure DnaCode.SetParentDnaCode(Index: Integer; const Astring: string); begin FParentDnaCode := Astring; FParentDnaCode_Specified := True; end; function DnaCode.ParentDnaCode_Specified(Index: Integer): boolean; begin Result := FParentDnaCode_Specified; end; procedure DnaCode.SetSequentieNummer(Index: Integer; const Astring: string); begin FSequentieNummer := Astring; FSequentieNummer_Specified := True; end; function DnaCode.SequentieNummer_Specified(Index: Integer): boolean; begin Result := FSequentieNummer_Specified; end; 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; procedure DnaCode.SetBatchId(Index: Integer; const Astring: string); begin FBatchId := Astring; FBatchId_Specified := True; end; function DnaCode.BatchId_Specified(Index: Integer): boolean; begin Result := FBatchId_Specified; end; procedure DnaCode.SetAfdrukTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); begin FAfdrukTijdstip := ATXSDateTime; FAfdrukTijdstip_Specified := True; end; function DnaCode.AfdrukTijdstip_Specified(Index: Integer): boolean; begin Result := FAfdrukTijdstip_Specified; end; destructor GeneriekeResponse.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor BewerkKlantinstellingenResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FKlantinstellingen)-1 do SysUtils.FreeAndNil(FKlantinstellingen[I]); System.SetLength(FKlantinstellingen, 0); inherited Destroy; end; procedure BewerkKlantinstellingenResponse.SetKlantinstellingen(Index: Integer; const AArrayOfKlantinstellingenKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen); begin FKlantinstellingen := AArrayOfKlantinstellingenKlantinstellingen; FKlantinstellingen_Specified := True; end; function BewerkKlantinstellingenResponse.Klantinstellingen_Specified(Index: Integer): boolean; begin Result := FKlantinstellingen_Specified; end; destructor HernoemPalletResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FDnaCodes)-1 do SysUtils.FreeAndNil(FDnaCodes[I]); System.SetLength(FDnaCodes, 0); inherited Destroy; end; procedure HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; destructor DnaCodeAfmeldenResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FDnaCodes)-1 do SysUtils.FreeAndNil(FDnaCodes[I]); System.SetLength(FDnaCodes, 0); inherited Destroy; end; procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); begin FAantalInToelevering := AInt64; FAantalInToelevering_Specified := True; end; function DnaCodeAfmeldenResponse.AantalInToelevering_Specified(Index: Integer): boolean; begin Result := FAantalInToelevering_Specified; end; procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); begin FAantalReedsGescand := AInt64; FAantalReedsGescand_Specified := True; end; function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; begin Result := FAantalReedsGescand_Specified; end; procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; procedure DnaCodeAfmeldenResponse.SetBatchId(Index: Integer; const Astring: string); begin FBatchId := Astring; FBatchId_Specified := True; end; function DnaCodeAfmeldenResponse.BatchId_Specified(Index: Integer): boolean; begin Result := FBatchId_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; procedure ZoekViaPalletCodeResponse.SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); begin FMeerdereToeleveringenToegestaan := ABoolean; FMeerdereToeleveringenToegestaan_Specified := True; end; function ZoekViaPalletCodeResponse.MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean; begin Result := FMeerdereToeleveringenToegestaan_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); inherited Destroy; end; procedure ZoekViaToeleveringResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); begin FAantalInToelevering := AInt64; FAantalInToelevering_Specified := True; end; function ZoekViaToeleveringResponse.AantalInToelevering_Specified(Index: Integer): boolean; begin Result := FAantalInToelevering_Specified; end; procedure ZoekViaToeleveringResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); begin FAantalReedsGescand := AInt64; FAantalReedsGescand_Specified := True; end; function ZoekViaToeleveringResponse.AantalReedsGescand_Specified(Index: Integer): boolean; begin Result := FAantalReedsGescand_Specified; end; procedure ZoekViaToeleveringResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function ZoekViaToeleveringResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; destructor ZoekViaLadecodeResponse.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 ZoekViaLadecodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function ZoekViaLadecodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; destructor ZoekViaOrdernummerResponse.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 ZoekViaOrdernummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function ZoekViaOrdernummerResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string); begin FKlantId := Astring; FKlantId_Specified := True; end; function Klantinstellingen.KlantId_Specified(Index: Integer): boolean; begin Result := FKlantId_Specified; end; procedure Klantinstellingen.SetKlantnaam(Index: Integer; const Astring: string); begin FKlantnaam := Astring; FKlantnaam_Specified := True; end; function Klantinstellingen.Klantnaam_Specified(Index: Integer): boolean; begin Result := FKlantnaam_Specified; end; procedure Klantinstellingen.SetIsExport(Index: Integer; const ABoolean: Boolean); begin FIsExport := ABoolean; FIsExport_Specified := True; end; function Klantinstellingen.IsExport_Specified(Index: Integer): boolean; begin Result := FIsExport_Specified; end; procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); begin FWegwerpPallet := ABoolean; FWegwerpPallet_Specified := True; end; function Klantinstellingen.WegwerpPallet_Specified(Index: Integer): boolean; begin Result := FWegwerpPallet_Specified; end; procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); begin FMeerdereToeleveringen := ABoolean; FMeerdereToeleveringen_Specified := True; end; function Klantinstellingen.MeerdereToeleveringen_Specified(Index: Integer): boolean; begin Result := FMeerdereToeleveringen_Specified; end; destructor ZoekAlleVhossLadesBijDnaCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; procedure ZoekAlleVhossLadesBijDnaCodeRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string); begin FGuiVhossVolgnummer := Astring; FGuiVhossVolgnummer_Specified := True; end; function ZoekAlleVhossLadesBijDnaCodeRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean; begin Result := FGuiVhossVolgnummer_Specified; end; destructor ZoekAlleVhossLadesBijDnaCodeResponse.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 ZoekAlleVhossLadesBijDnaCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function ZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FDnaCodes)-1 do SysUtils.FreeAndNil(FDnaCodes[I]); System.SetLength(FDnaCodes, 0); inherited Destroy; end; procedure ZoekAlleDnaCodesDieOpVhossMoetenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function ZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ZoekViaBatchRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ZoekViaKlantnummerRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ZoekViaKlantnummerResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FDnaCodes)-1 do SysUtils.FreeAndNil(FDnaCodes[I]); System.SetLength(FDnaCodes, 0); inherited Destroy; end; procedure ZoekViaKlantnummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function ZoekViaKlantnummerResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; destructor ZoekViaDnaCodeResponse.Destroy; begin SysUtils.FreeAndNil(FDnaCodes); inherited Destroy; end; procedure ZoekViaDnaCodeResponse.SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); begin FDnaCodes := ADnaCode; FDnaCodes_Specified := True; end; function ZoekViaDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; destructor ZoekViaBatchResponse.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 ZoekViaBatchResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; function ZoekViaBatchResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; destructor ZoekViaDnaCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor RondAfKaderdeurDagRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor PalletBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor DirecteLeveringRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ValideerPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ToeleveringBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string); begin FToeleveringID := Astring; FToeleveringID_Specified := True; end; function ToeleveringMetAantallen.ToeleveringID_Specified(Index: Integer): boolean; begin Result := FToeleveringID_Specified; end; procedure ToeleveringMetAantallen.SetAantalKaderdeuren(Index: Integer; const Astring: string); begin FAantalKaderdeuren := Astring; FAantalKaderdeuren_Specified := True; end; function ToeleveringMetAantallen.AantalKaderdeuren_Specified(Index: Integer): boolean; begin Result := FAantalKaderdeuren_Specified; end; procedure ToeleveringMetAantallen.SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); begin FAantalKaderdeurenGescand := Astring; FAantalKaderdeurenGescand_Specified := True; end; function ToeleveringMetAantallen.AantalKaderdeurenGescand_Specified(Index: Integer): boolean; begin Result := FAantalKaderdeurenGescand_Specified; end; destructor RondAfKaderdeurDagResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FToeleveringMetAantallen)-1 do SysUtils.FreeAndNil(FToeleveringMetAantallen[I]); System.SetLength(FToeleveringMetAantallen, 0); inherited Destroy; end; procedure RondAfKaderdeurDagResponse.SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); begin FToeleveringMetAantallen := AArrayOfToeleveringMetAantallenToeleveringMetAantallen; FToeleveringMetAantallen_Specified := True; end; function RondAfKaderdeurDagResponse.ToeleveringMetAantallen_Specified(Index: Integer): boolean; begin Result := FToeleveringMetAantallen_Specified; end; initialization { DnaCodeServiceSoap } InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode/WS.Halux.AAP.DnaCodeService.%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(DnaCodeServiceSoap), ioDocument); { DnaCodeServiceSoap.BewerkKlantinstellingen } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'BewerkKlantinstellingen', '', '[ReturnName="BewerkKlantinstellingenResult"]'); { DnaCodeServiceSoap.DnaCodeAfmelden } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'DnaCodeAfmelden', '', '[ReturnName="DnaCodeAfmeldenResult"]'); { DnaCodeServiceSoap.GeefVolgendeTbpCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'GeefVolgendeTbpCode', '', '[ReturnName="GeefVolgendeTbpCodeResult"]'); { DnaCodeServiceSoap.HernoemPallet } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'HernoemPallet', '', '[ReturnName="HernoemPalletResult"]'); { DnaCodeServiceSoap.IsDirecteLevering } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'IsDirecteLevering', '', '[ReturnName="IsDirecteLeveringResult"]'); { DnaCodeServiceSoap.PalletBijwerken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'PalletBijwerken', '', '[ReturnName="PalletBijwerkenResult"]'); { DnaCodeServiceSoap.RondAfKaderdeurDag } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'RondAfKaderdeurDag', '', '[ReturnName="RondAfKaderdeurDagResult"]'); { DnaCodeServiceSoap.ToeleveringBijwerken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ToeleveringBijwerken', '', '[ReturnName="ToeleveringBijwerkenResult"]'); { DnaCodeServiceSoap.ValideerPalletCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ValideerPalletCode', '', '[ReturnName="ValideerPalletCodeResult"]'); { DnaCodeServiceSoap.ZoekAlleDnaCodesDieOpVhossMoeten } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekAlleDnaCodesDieOpVhossMoeten', '', '[ReturnName="ZoekAlleDnaCodesDieOpVhossMoetenResult"]'); { DnaCodeServiceSoap.ZoekAlleVhossLadesBijDnaCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekAlleVhossLadesBijDnaCode', '', '[ReturnName="ZoekAlleVhossLadesBijDnaCodeResult"]'); { DnaCodeServiceSoap.ZoekViaBatch } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaBatch', '', '[ReturnName="ZoekViaBatchResult"]'); { DnaCodeServiceSoap.ZoekViaDnaCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaDnaCode', '', '[ReturnName="ZoekViaDnaCodeResult"]'); { DnaCodeServiceSoap.ZoekViaKlantnummer } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaKlantnummer', '', '[ReturnName="ZoekViaKlantnummerResult"]'); { DnaCodeServiceSoap.ZoekViaLadecode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaLadecode', '', '[ReturnName="ZoekViaLadecodeResult"]'); { DnaCodeServiceSoap.ZoekViaOrdernummer } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaOrdernummer', '', '[ReturnName="ZoekViaOrdernummerResult"]'); { DnaCodeServiceSoap.ZoekViaPalletCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaPalletCode', '', '[ReturnName="ZoekViaPalletCodeResult"]'); { DnaCodeServiceSoap.ZoekViaToelevering } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '', '[ReturnName="ZoekViaToeleveringResult"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest'); RemClassRegistry.RegisterXSClass(ZoekViaLadecodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeRequest'); RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerRequest'); RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenRequest'); RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKlantinstellingenKlantinstellingen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfKlantinstellingenKlantinstellingen'); RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse'); RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(BewerkKlantinstellingenResponse), 'Klantinstellingen', '[ArrayItemName="Klantinstellingen"]'); RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(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(ZoekViaLadecodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaLadecodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaOrdernummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen'); RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleVhossLadesBijDnaCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleDnaCodesDieOpVhossMoetenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest'); RemClassRegistry.RegisterXSClass(ZoekViaBatchRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaBatchRequest'); RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest'); RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaKlantnummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); RemClassRegistry.RegisterXSClass(ZoekViaBatchResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaBatchResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaBatchResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen'); RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]'); end.