// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1
//  >Import : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0
// Encoding : UTF-8
// Version  : 1.0
// (11/03/2019 9:38:10 - - $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]
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:boolean         - "http://www.w3.org/2001/XMLSchema"[Gbl]

  DnaCodeAfmeldenRequest = class;               { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  RequestHeader        = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  ValideerPalletCodeRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  ZoekViaToeleveringRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  ZoekViaPalletCodeRequest = class;             { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  DataTransferObject   = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  ValideerPalletCodeResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  ResponseHeader       = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  DnaCode              = class;                 { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  DnaCodeAfmeldenResponse = class;              { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  ZoekViaToeleveringResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
  ZoekViaPalletCodeResponse = class;            { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }

  {$SCOPEDENUMS ON}
  { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] }
  DnaCodeStatus = (Nieuw, Gescand, Ongedaan);

  {$SCOPEDENUMS OFF}



  // ************************************************************************ //
  // XML       : DnaCodeAfmeldenRequest, global, <complexType>
  // 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;
    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 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;
  end;

  String_         =  type string;      { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] }


  // ************************************************************************ //
  // XML       : RequestHeader, global, <complexType>
  // 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       : ValideerPalletCodeRequest, global, <complexType>
  // 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       : ZoekViaToeleveringRequest, global, <complexType>
  // 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       : ZoekViaPalletCodeRequest, global, <complexType>
  // 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       : DataTransferObject, global, <complexType>
  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
  // ************************************************************************ //
  DataTransferObject = class(TRemotable)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : ValideerPalletCodeResponse, global, <complexType>
  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
  // ************************************************************************ //
  ValideerPalletCodeResponse = class(DataTransferObject)
  private
    FHeader: ResponseHeader;
  public
    destructor Destroy; override;
  published
    property Header: ResponseHeader  read FHeader write FHeader;
  end;

  Horolog         =  type string;      { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] }


  // ************************************************************************ //
  // XML       : ResponseHeader, global, <complexType>
  // 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;



  // ************************************************************************ //
  // XML       : DnaCode, global, <complexType>
  // 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: Horolog;
    FScanTijdstip_Specified: boolean;
    FLadeCode: string;
    FLadeCode_Specified: boolean;
    FStatus: DnaCodeStatus;
    FStatus_Specified: boolean;
    FIsGlsDirect: Boolean;
    FIsGlsDirect_Specified: boolean;
    FParentDnaCode: string;
    FParentDnaCode_Specified: boolean;
    FSequentieNummer: string;
    FSequentieNummer_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 SetIsGlsDirect(Index: Integer; const ABoolean: Boolean);
    function  IsGlsDirect_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;
  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 IsGlsDirect:            Boolean        Index (IS_OPTN) read FIsGlsDirect write SetIsGlsDirect stored IsGlsDirect_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;
  end;

  ArrayOfDnaCodeDnaCode = array of DnaCode;     { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }


  // ************************************************************************ //
  // XML       : DnaCodeAfmeldenResponse, global, <complexType>
  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
  // ************************************************************************ //
  DnaCodeAfmeldenResponse = class(DataTransferObject)
  private
    FHeader: ResponseHeader;
    FDnaCodes: ArrayOfDnaCodeDnaCode;
    FDnaCodes_Specified: boolean;
    procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
    function  DnaCodes_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Header:   ResponseHeader         read FHeader write FHeader;
    property DnaCodes: ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
  end;



  // ************************************************************************ //
  // XML       : ZoekViaToeleveringResponse, global, <complexType>
  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
  // ************************************************************************ //
  ZoekViaToeleveringResponse = class(DataTransferObject)
  private
    FHeader: ResponseHeader;
    FDnaCodes: ArrayOfDnaCodeDnaCode;
    FDnaCodes_Specified: boolean;
    procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
    function  DnaCodes_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Header:   ResponseHeader         read FHeader write FHeader;
    property DnaCodes: ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
  end;



  // ************************************************************************ //
  // XML       : ZoekViaPalletCodeResponse, global, <complexType>
  // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
  // ************************************************************************ //
  ZoekViaPalletCodeResponse = class(DataTransferObject)
  private
    FHeader: ResponseHeader;
    FDnaCodes: ArrayOfDnaCodeDnaCode;
    FDnaCodes_Specified: boolean;
    procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
    function  DnaCodes_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Header:   ResponseHeader         read FHeader write FHeader;
    property DnaCodes: ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_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-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls
  // ************************************************************************ //
  DnaCodeServiceSoap = interface(IInvokable)
  ['{514675BC-4331-0084-2F76-0934B2799FAE}']
    function  DnaCodeAfmelden(const DnaCodeAfmeldenRequest: DnaCodeAfmeldenRequest): DnaCodeAfmeldenResponse; stdcall;
    function  ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall;
    function  ZoekViaPalletcode(const ZoakViaPalletCodeRequest: 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-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1';
  defURL  = 'http://tve-w7: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 DnaCodeAfmeldenRequest.Destroy;
begin
  SysUtils.FreeAndNil(FHeader);
  inherited Destroy;
end;

procedure DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64);
begin
  FAantal := AInt64;
  FAantal_Specified := True;
end;

function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean;
begin
  Result := FAantal_Specified;
end;

procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string);
begin
  FToelevering := Astring;
  FToelevering_Specified := True;
end;

function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean;
begin
  Result := FToelevering_Specified;
end;

destructor ValideerPalletCodeRequest.Destroy;
begin
  SysUtils.FreeAndNil(FHeader);
  inherited Destroy;
end;

destructor ZoekViaToeleveringRequest.Destroy;
begin
  SysUtils.FreeAndNil(FHeader);
  inherited Destroy;
end;

destructor ZoekViaPalletCodeRequest.Destroy;
begin
  SysUtils.FreeAndNil(FHeader);
  inherited Destroy;
end;

destructor ValideerPalletCodeResponse.Destroy;
begin
  SysUtils.FreeAndNil(FHeader);
  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 AHorolog: Horolog);
begin
  FScanTijdstip := AHorolog;
  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.SetIsGlsDirect(Index: Integer; const ABoolean: Boolean);
begin
  FIsGlsDirect := ABoolean;
  FIsGlsDirect_Specified := True;
end;

function DnaCode.IsGlsDirect_Specified(Index: Integer): boolean;
begin
  Result := FIsGlsDirect_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;

destructor DnaCodeAfmeldenResponse.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(FDnaCodes)-1 do
    SysUtils.FreeAndNil(FDnaCodes[I]);
  System.SetLength(FDnaCodes, 0);
  SysUtils.FreeAndNil(FHeader);
  inherited Destroy;
end;

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;

destructor ZoekViaToeleveringResponse.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(FDnaCodes)-1 do
    SysUtils.FreeAndNil(FDnaCodes[I]);
  System.SetLength(FDnaCodes, 0);
  SysUtils.FreeAndNil(FHeader);
  inherited Destroy;
end;

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 ZoekViaPalletCodeResponse.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(FDnaCodes)-1 do
    SysUtils.FreeAndNil(FDnaCodes[I]);
  System.SetLength(FDnaCodes, 0);
  SysUtils.FreeAndNil(FHeader);
  inherited Destroy;
end;

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;

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.DnaCodeAfmelden }
  InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'DnaCodeAfmelden', '',
                                 '[ReturnName="DnaCodeAfmeldenResult"]');
  { DnaCodeServiceSoap.ValideerPalletCode }
  InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ValideerPalletCode', '',
                                 '[ReturnName="ValideerPalletCodeResult"]');
  { DnaCodeServiceSoap.ZoekViaPalletcode }
  InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaPalletcode', '',
                                 '[ReturnName="ZoekViaPalletcodeResult"]');
  { DnaCodeServiceSoap.ZoekViaToelevering }
  InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '',
                                 '[ReturnName="ZoekViaToeleveringResult"]');
  RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest');
  RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String');
  RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader');
  RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest');
  RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest');
  RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest');
  RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject');
  RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse');
  RemClassRegistry.RegisterXSInfo(TypeInfo(Horolog), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Horolog');
  RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus');
  RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader');
  RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode');
  RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
  RemClassRegistry.RegisterXSClass(ZoekViaToeleveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringResponse');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaToeleveringResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
  RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');

end.