Index: ProScan/WS/DnaCodeService.pas =================================================================== diff -u -r396 -r692 --- ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 396) +++ ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 692) @@ -1,11 +1,11 @@ // ************************************************************************ // // 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 +// WSDL : http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls?WSDL=1 +// >Import : http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 -// (3/06/2020 17:24:09 - - $Rev: 45757 $) +// (13/11/2024 14:57:43 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -30,14 +30,15 @@ // 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] + // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] + DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } 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] } + DirecteLeveringRequest = 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] } @@ -52,32 +53,34 @@ 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] } - ZoekViaKlantnummerResponse = 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] } + ZoekViaKlantnummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaLadecodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } Klantinstellingen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekAlleDnaCodesDieOpVhossMoetenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekAlleVhossLadesBijDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekAlleDnaCodesDieOpVhossMoetenRequest = 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] } - ToeleveringBijwerkenResponse = 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] } + ZoekAlleVhossLadesBijDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaKlantnummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaDnaCodeRequest = 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] } - PalletBijwerkenResponse = 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] } - ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaBatchRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaBatchResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringBijwerkenResponse = 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] } - ProboxEtiketAfdrukkenResponse = 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] } + PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + VhossKastenMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfVhossBatchRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfVhossBatchResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -86,22 +89,71 @@ {$SCOPEDENUMS OFF} ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // + // 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 : GeefVolgendeTbpCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // GeefVolgendeTbpCodeRequest = class(TRemotable) private FHeader: RequestHeader; + FToeleveringId: string; + FToeleveringId_Specified: boolean; + FProductNummer: string; + FProductNummer_Specified: boolean; + procedure SetToeleveringId(Index: Integer; const Astring: string); + function ToeleveringId_Specified(Index: Integer): boolean; + procedure SetProductNummer(Index: Integer; const Astring: string); + function ProductNummer_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; + property Header: RequestHeader read FHeader write FHeader; + property ToeleveringId: string Index (IS_OPTN) read FToeleveringId write SetToeleveringId stored ToeleveringId_Specified; + property ProductNummer: string Index (IS_OPTN) read FProductNummer write SetProductNummer stored ProductNummer_Specified; end; - String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // @@ -115,54 +167,37 @@ FNieuweCode: string; FEnkelDezeDnaCode: string; FEnkelDezeDnaCode_Specified: boolean; + FOokEWMSverwerken: Boolean; + FOokEWMSverwerken_Specified: boolean; procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); function EnkelDezeDnaCode_Specified(Index: Integer): boolean; + procedure SetOokEWMSverwerken(Index: Integer; const ABoolean: Boolean); + function OokEWMSverwerken_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; + property OokEWMSverwerken: Boolean Index (IS_OPTN) read FOokEWMSverwerken write SetOokEWMSverwerken stored OokEWMSverwerken_Specified; end; // ************************************************************************ // - // XML : DnaCodeAfmeldenRequest, global, + // XML : DirecteLeveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenRequest = class(TRemotable) + DirecteLeveringRequest = class(TRemotable) private FHeader: RequestHeader; - FDnaCode: string; - FAantal: Int64; - FAantal_Specified: boolean; FToelevering: string; - FToelevering_Specified: boolean; - FPalletCode: string; - FLocatie: string; - FLocatie_Specified: boolean; - FGuiVhossVolgnummer: string; - FGuiVhossVolgnummer_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 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 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 GuiVhossVolgnummer: string Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified; + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; end; @@ -245,13 +280,23 @@ FActie: string; FKlantId: string; FIsExport: Boolean; + FIsBlumXs: Boolean; + FWegwerpPallet: Boolean; + FHalvePallet: Boolean; + FKartonnenPallet: 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 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 HalvePallet: Boolean read FHalvePallet write FHalvePallet; + property KartonnenPallet: Boolean read FKartonnenPallet write FKartonnenPallet; + property MeerdereToeleveringen: Boolean read FMeerdereToeleveringen write FMeerdereToeleveringen; end; @@ -338,6 +383,8 @@ 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); @@ -372,6 +419,8 @@ 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 @@ -392,6 +441,7 @@ 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; @@ -472,59 +522,51 @@ FAantalReedsGescand_Specified: boolean; FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; - FInterneVhossKastId: string; - FInterneVhossKastId_Specified: boolean; + FBatchId: string; + FBatchId_Specified: boolean; + FIsSST: Boolean; + FIsSST_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 SetInterneVhossKastId(Index: Integer; const Astring: string); - function InterneVhossKastId_Specified(Index: Integer): boolean; + procedure SetBatchId(Index: Integer; const Astring: string); + function BatchId_Specified(Index: Integer): boolean; + procedure SetIsSST(Index: Integer; const ABoolean: Boolean); + function IsSST_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 InterneVhossKastId: string Index (IS_OPTN) read FInterneVhossKastId write SetInterneVhossKastId stored InterneVhossKastId_Specified; + property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; + property IsSST: Boolean Index (IS_OPTN) read FIsSST write SetIsSST stored IsSST_Specified; 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 : 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 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; @@ -558,10 +600,10 @@ // ************************************************************************ // - // XML : ZoekViaLadecodeResponse, global, + // XML : ZoekViaOrdernummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaLadecodeResponse = class(GeneriekeResponse) + ZoekViaOrdernummerResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; @@ -576,10 +618,10 @@ // ************************************************************************ // - // XML : ZoekViaOrdernummerResponse, global, + // XML : ZoekViaKlantnummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaOrdernummerResponse = class(GeneriekeResponse) + ZoekViaKlantnummerResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; @@ -594,6 +636,24 @@ // ************************************************************************ // + // 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 : Klantinstellingen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -605,102 +665,148 @@ FKlantnaam_Specified: boolean; FIsExport: Boolean; FIsExport_Specified: boolean; + FIsBlumXs: Boolean; + FIsBlumXs_Specified: boolean; + FWegwerpPallet: Boolean; + FWegwerpPallet_Specified: boolean; + FHalvePallet: Boolean; + FHalvePallet_Specified: boolean; + FKartonnenPallet: Boolean; + FKartonnenPallet_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 SetIsBlumXs(Index: Integer; const ABoolean: Boolean); + function IsBlumXs_Specified(Index: Integer): boolean; + procedure SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); + function WegwerpPallet_Specified(Index: Integer): boolean; + procedure SetHalvePallet(Index: Integer; const ABoolean: Boolean); + function HalvePallet_Specified(Index: Integer): boolean; + procedure SetKartonnenPallet(Index: Integer; const ABoolean: Boolean); + function KartonnenPallet_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 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 IsBlumXs: Boolean Index (IS_OPTN) read FIsBlumXs write SetIsBlumXs stored IsBlumXs_Specified; + property WegwerpPallet: Boolean Index (IS_OPTN) read FWegwerpPallet write SetWegwerpPallet stored WegwerpPallet_Specified; + property HalvePallet: Boolean Index (IS_OPTN) read FHalvePallet write SetHalvePallet stored HalvePallet_Specified; + property KartonnenPallet: Boolean Index (IS_OPTN) read FKartonnenPallet write SetKartonnenPallet stored KartonnenPallet_Specified; + property MeerdereToeleveringen: Boolean Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified; end; // ************************************************************************ // - // XML : ValideerPalletCodeResponse, global, + // XML : DirecteLeveringResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeResponse = class(GeneriekeResponse) + DirecteLeveringResponse = class(GeneriekeResponse) private + FIsDirecteLevering: Boolean; published + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; // ************************************************************************ // - // XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, + // XML : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable) + 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 : ZoekAlleVhossLadesBijDnaCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekAlleVhossLadesBijDnaCodeRequest = class(TRemotable) + private FHeader: RequestHeader; - FFrameId: string; + 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 FrameId: string read FFrameId write FFrameId; + 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 : ValideerPalletCodeRequest, global, + // XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable) private FHeader: RequestHeader; - FPalletCode: string; + FFrameId: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + property Header: RequestHeader read FHeader write FHeader; + property FrameId: string read FFrameId write FFrameId; end; // ************************************************************************ // - // XML : ToeleveringBijwerkenRequest, global, + // XML : ValideerPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenRequest = class(TRemotable) + ValideerPalletCodeRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FPalletCode: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; - property Status: DnaCodeStatus read FStatus write FStatus; - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + property Header: RequestHeader read FHeader write FHeader; + property PalletCode: string read FPalletCode write FPalletCode; end; // ************************************************************************ // - // XML : ToeleveringBijwerkenResponse, global, + // XML : ValideerPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenResponse = class(GeneriekeResponse) + ValideerPalletCodeResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // - // XML : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global, + // XML : ZoekAlleVhossLadesBijDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleDnaCodesDieOpVhossMoetenResponse = class(GeneriekeResponse) + ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; @@ -767,32 +873,27 @@ // ************************************************************************ // - // XML : ZoekAlleVhossLadesBijDnaCodeRequest, global, + // XML : ZoekViaBatchRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleVhossLadesBijDnaCodeRequest = class(TRemotable) + ZoekViaBatchRequest = 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; + FBatchId: string; 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; + property Header: RequestHeader read FHeader write FHeader; + property BatchId: string read FBatchId write FBatchId; end; // ************************************************************************ // - // XML : ZoekAlleVhossLadesBijDnaCodeResponse, global, + // XML : ZoekViaBatchResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse) + ZoekViaBatchResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; @@ -807,107 +908,87 @@ // ************************************************************************ // - // XML : PalletBijwerkenResponse, global, + // XML : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenResponse = class(GeneriekeResponse) + ToeleveringBijwerkenResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // - // XML : PalletBijwerkenRequest, global, + // XML : ToeleveringMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenRequest = class(TRemotable) + ToeleveringMetAantallen = class(DataTransferObject) private - FHeader: RequestHeader; - FPallet: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; - public - destructor Destroy; override; + 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 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; + 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; // ************************************************************************ // - // XML : DirecteLeveringRequest, global, + // XML : RondAfKaderdeurDagRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringRequest = class(TRemotable) + RondAfKaderdeurDagRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; + FDnaCode: String_; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: String_ read FDnaCode write FDnaCode; end; // ************************************************************************ // - // XML : DirecteLeveringResponse, global, + // XML : PalletBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringResponse = class(GeneriekeResponse) + PalletBijwerkenRequest = class(TRemotable) private - FIsDirecteLevering: Boolean; - published - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; - end; - - ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - - - // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenRequest, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ProboxEtiketAfdrukkenRequest = class(TRemotable) - private FHeader: RequestHeader; - FDnaCodes: ArrayOfStringString; + FPallet: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + 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 : ToeleveringMetAantallen, global, + // XML : PalletBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringMetAantallen = class(DataTransferObject) + PalletBijwerkenResponse = class(GeneriekeResponse) 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] } @@ -929,45 +1010,103 @@ property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; end; + ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen = array of VhossKastenMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenResponse, global, + // XML : ToeleveringBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) + 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 : RondAfKaderdeurDagRequest, global, + // XML : VhossKastenMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfKaderdeurDagRequest = class(TRemotable) + VhossKastenMetAantallen = class(DataTransferObject) private + FVhosskast: string; + FVhosskast_Specified: boolean; + FAantalLades: string; + FAantalLades_Specified: boolean; + FAantalLadesGescand: string; + FAantalLadesGescand_Specified: boolean; + procedure SetVhosskast(Index: Integer; const Astring: string); + function Vhosskast_Specified(Index: Integer): boolean; + procedure SetAantalLades(Index: Integer; const Astring: string); + function AantalLades_Specified(Index: Integer): boolean; + procedure SetAantalLadesGescand(Index: Integer; const Astring: string); + function AantalLadesGescand_Specified(Index: Integer): boolean; + published + property Vhosskast: string Index (IS_OPTN) read FVhosskast write SetVhosskast stored Vhosskast_Specified; + property AantalLades: string Index (IS_OPTN) read FAantalLades write SetAantalLades stored AantalLades_Specified; + property AantalLadesGescand: string Index (IS_OPTN) read FAantalLadesGescand write SetAantalLadesGescand stored AantalLadesGescand_Specified; + end; + + + + // ************************************************************************ // + // XML : RondAfVhossBatchRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + RondAfVhossBatchRequest = class(TRemotable) + private FHeader: RequestHeader; - FDnaCode: String_; + FBatchId: String_; + FBatchId_Specified: 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 BatchId: String_ Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; end; + // ************************************************************************ // + // XML : RondAfVhossBatchResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + RondAfVhossBatchResponse = class(GeneriekeResponse) + private + FVhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen; + FVhossKastenMetAantallen_Specified: boolean; + procedure SetVhossKastenMetAantallen(Index: Integer; const AArrayOfVhossKastenMetAantallenVhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen); + function VhossKastenMetAantallen_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property VhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FVhossKastenMetAantallen write SetVhossKastenMetAantallen stored VhossKastenMetAantallen_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 + // URL : http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls // ************************************************************************ // DnaCodeServiceSoap = interface(IInvokable) ['{514675BC-4331-0084-2F76-0934B2799FAE}'] @@ -977,12 +1116,13 @@ function HernoemPallet(const HernoemPalletRequest: HernoemPalletRequest): HernoemPalletResponse; stdcall; function IsDirecteLevering(const DirecteLeveringRequest: DirecteLeveringRequest): DirecteLeveringResponse; stdcall; function PalletBijwerken(const PalletBijwerkenRequest: PalletBijwerkenRequest): PalletBijwerkenResponse; stdcall; - function ProboxEtiketAfdrukken(const ProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest): ProboxEtiketAfdrukkenResponse; stdcall; function RondAfKaderdeurDag(const RondAfKaderdeurDagRequest: RondAfKaderdeurDagRequest): RondAfKaderdeurDagResponse; stdcall; + function RondAfVhossBatch(const RondAfVhossBatchRequest: RondAfVhossBatchRequest): RondAfVhossBatchResponse; 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; @@ -999,8 +1139,8 @@ 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'; + defWSDL = 'http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls?WSDL=1'; + defURL = 'http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls'; defSvc = 'DnaCodeService'; defPrt = 'DnaCodeServiceSoap'; var @@ -1034,29 +1174,6 @@ 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); @@ -1096,17 +1213,79 @@ Result := FLocatie_Specified; end; -procedure DnaCodeAfmeldenRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenRequest.SetBatchId(Index: Integer; const Astring: string); begin - FGuiVhossVolgnummer := Astring; - FGuiVhossVolgnummer_Specified := True; + FBatchId := Astring; + FBatchId_Specified := True; end; -function DnaCodeAfmeldenRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenRequest.BatchId_Specified(Index: Integer): boolean; begin - Result := FGuiVhossVolgnummer_Specified; + Result := FBatchId_Specified; end; +destructor GeefVolgendeTbpCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure GeefVolgendeTbpCodeRequest.SetToeleveringId(Index: Integer; const Astring: string); +begin + FToeleveringId := Astring; + FToeleveringId_Specified := True; +end; + +function GeefVolgendeTbpCodeRequest.ToeleveringId_Specified(Index: Integer): boolean; +begin + Result := FToeleveringId_Specified; +end; + +procedure GeefVolgendeTbpCodeRequest.SetProductNummer(Index: Integer; const Astring: string); +begin + FProductNummer := Astring; + FProductNummer_Specified := True; +end; + +function GeefVolgendeTbpCodeRequest.ProductNummer_Specified(Index: Integer): boolean; +begin + Result := FProductNummer_Specified; +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; + +procedure HernoemPalletRequest.SetOokEWMSverwerken(Index: Integer; const ABoolean: Boolean); +begin + FOokEWMSverwerken := ABoolean; + FOokEWMSverwerken_Specified := True; +end; + +function HernoemPalletRequest.OokEWMSverwerken_Specified(Index: Integer): boolean; +begin + Result := FOokEWMSverwerken_Specified; +end; + +destructor DirecteLeveringRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor ZoekViaPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1140,6 +1319,7 @@ destructor DnaCode.Destroy; begin SysUtils.FreeAndNil(FScanTijdstip); + SysUtils.FreeAndNil(FAfdrukTijdstip); inherited Destroy; end; @@ -1330,6 +1510,17 @@ 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); @@ -1421,38 +1612,28 @@ Result := FDnaCodes_Specified; end; -procedure DnaCodeAfmeldenResponse.SetInterneVhossKastId(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenResponse.SetBatchId(Index: Integer; const Astring: string); begin - FInterneVhossKastId := Astring; - FInterneVhossKastId_Specified := True; + FBatchId := Astring; + FBatchId_Specified := True; end; -function DnaCodeAfmeldenResponse.InterneVhossKastId_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.BatchId_Specified(Index: Integer): boolean; begin - Result := FInterneVhossKastId_Specified; + Result := FBatchId_Specified; end; -destructor ZoekViaKlantnummerResponse.Destroy; -var - I: Integer; +procedure DnaCodeAfmeldenResponse.SetIsSST(Index: Integer; const ABoolean: Boolean); begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); - inherited Destroy; + FIsSST := ABoolean; + FIsSST_Specified := True; end; -procedure ZoekViaKlantnummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +function DnaCodeAfmeldenResponse.IsSST_Specified(Index: Integer): boolean; begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + Result := FIsSST_Specified; end; -function ZoekViaKlantnummerResponse.DnaCodes_Specified(Index: Integer): boolean; -begin - Result := FDnaCodes_Specified; -end; - destructor ZoekViaPalletCodeResponse.Destroy; var I: Integer; @@ -1474,6 +1655,17 @@ 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; @@ -1517,7 +1709,7 @@ Result := FDnaCodes_Specified; end; -destructor ZoekViaLadecodeResponse.Destroy; +destructor ZoekViaOrdernummerResponse.Destroy; var I: Integer; begin @@ -1527,18 +1719,18 @@ inherited Destroy; end; -procedure ZoekViaLadecodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure ZoekViaOrdernummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekViaLadecodeResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaOrdernummerResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; -destructor ZoekViaOrdernummerResponse.Destroy; +destructor ZoekViaKlantnummerResponse.Destroy; var I: Integer; begin @@ -1548,17 +1740,38 @@ inherited Destroy; end; -procedure ZoekViaOrdernummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure ZoekViaKlantnummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekViaOrdernummerResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaKlantnummerResponse.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; + procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string); begin FKlantId := Astring; @@ -1592,74 +1805,82 @@ Result := FIsExport_Specified; end; -destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; +procedure Klantinstellingen.SetIsBlumXs(Index: Integer; const ABoolean: Boolean); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FIsBlumXs := ABoolean; + FIsBlumXs_Specified := True; end; -destructor ValideerPalletCodeRequest.Destroy; +function Klantinstellingen.IsBlumXs_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FIsBlumXs_Specified; end; -destructor ToeleveringBijwerkenRequest.Destroy; +procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FWegwerpPallet := ABoolean; + FWegwerpPallet_Specified := True; end; -destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy; -var - I: Integer; +function Klantinstellingen.WegwerpPallet_Specified(Index: Integer): boolean; begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); - inherited Destroy; + Result := FWegwerpPallet_Specified; end; -procedure ZoekAlleDnaCodesDieOpVhossMoetenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure Klantinstellingen.SetHalvePallet(Index: Integer; const ABoolean: Boolean); begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + FHalvePallet := ABoolean; + FHalvePallet_Specified := True; end; -function ZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes_Specified(Index: Integer): boolean; +function Klantinstellingen.HalvePallet_Specified(Index: Integer): boolean; begin - Result := FDnaCodes_Specified; + Result := FHalvePallet_Specified; end; -destructor ZoekViaDnaCodeResponse.Destroy; +procedure Klantinstellingen.SetKartonnenPallet(Index: Integer; const ABoolean: Boolean); begin - SysUtils.FreeAndNil(FDnaCodes); - inherited Destroy; + FKartonnenPallet := ABoolean; + FKartonnenPallet_Specified := True; end; -procedure ZoekViaDnaCodeResponse.SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); +function Klantinstellingen.KartonnenPallet_Specified(Index: Integer): boolean; begin - FDnaCodes := ADnaCode; - FDnaCodes_Specified := True; + Result := FKartonnenPallet_Specified; end; -function ZoekViaDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); begin - Result := FDnaCodes_Specified; + FMeerdereToeleveringen := ABoolean; + FMeerdereToeleveringen_Specified := True; end; -destructor ZoekViaKlantnummerRequest.Destroy; +function Klantinstellingen.MeerdereToeleveringen_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FMeerdereToeleveringen_Specified; end; -destructor ZoekViaDnaCodeRequest.Destroy; +destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy; +var + I: Integer; begin - SysUtils.FreeAndNil(FHeader); + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); inherited Destroy; end; +procedure 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 ZoekAlleVhossLadesBijDnaCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1677,6 +1898,18 @@ Result := FGuiVhossVolgnummer_Specified; end; +destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ValideerPalletCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor ZoekAlleVhossLadesBijDnaCodeResponse.Destroy; var I: Integer; @@ -1698,24 +1931,62 @@ Result := FDnaCodes_Specified; end; -destructor PalletBijwerkenRequest.Destroy; +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 ZoekViaKlantnummerRequest.Destroy; +begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor DirecteLeveringRequest.Destroy; +destructor ZoekViaDnaCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ProboxEtiketAfdrukkenRequest.Destroy; +destructor ZoekViaBatchRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; 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; + procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string); begin FToeleveringID := Astring; @@ -1749,6 +2020,18 @@ Result := FAantalKaderdeurenGescand_Specified; end; +destructor RondAfKaderdeurDagRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor PalletBijwerkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor RondAfKaderdeurDagResponse.Destroy; var I: Integer; @@ -1770,12 +2053,83 @@ Result := FToeleveringMetAantallen_Specified; end; -destructor RondAfKaderdeurDagRequest.Destroy; +destructor ToeleveringBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; +procedure VhossKastenMetAantallen.SetVhosskast(Index: Integer; const Astring: string); +begin + FVhosskast := Astring; + FVhosskast_Specified := True; +end; + +function VhossKastenMetAantallen.Vhosskast_Specified(Index: Integer): boolean; +begin + Result := FVhosskast_Specified; +end; + +procedure VhossKastenMetAantallen.SetAantalLades(Index: Integer; const Astring: string); +begin + FAantalLades := Astring; + FAantalLades_Specified := True; +end; + +function VhossKastenMetAantallen.AantalLades_Specified(Index: Integer): boolean; +begin + Result := FAantalLades_Specified; +end; + +procedure VhossKastenMetAantallen.SetAantalLadesGescand(Index: Integer; const Astring: string); +begin + FAantalLadesGescand := Astring; + FAantalLadesGescand_Specified := True; +end; + +function VhossKastenMetAantallen.AantalLadesGescand_Specified(Index: Integer): boolean; +begin + Result := FAantalLadesGescand_Specified; +end; + +destructor RondAfVhossBatchRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure RondAfVhossBatchRequest.SetBatchId(Index: Integer; const AString_: String_); +begin + FBatchId := AString_; + FBatchId_Specified := True; +end; + +function RondAfVhossBatchRequest.BatchId_Specified(Index: Integer): boolean; +begin + Result := FBatchId_Specified; +end; + +destructor RondAfVhossBatchResponse.Destroy; +var + I: Integer; +begin + for I := 0 to System.Length(FVhossKastenMetAantallen)-1 do + SysUtils.FreeAndNil(FVhossKastenMetAantallen[I]); + System.SetLength(FVhossKastenMetAantallen, 0); + inherited Destroy; +end; + +procedure RondAfVhossBatchResponse.SetVhossKastenMetAantallen(Index: Integer; const AArrayOfVhossKastenMetAantallenVhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen); +begin + FVhossKastenMetAantallen := AArrayOfVhossKastenMetAantallenVhossKastenMetAantallen; + FVhossKastenMetAantallen_Specified := True; +end; + +function RondAfVhossBatchResponse.VhossKastenMetAantallen_Specified(Index: Integer): boolean; +begin + Result := FVhossKastenMetAantallen_Specified; +end; + initialization { DnaCodeServiceSoap } InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); @@ -1799,12 +2153,12 @@ { DnaCodeServiceSoap.PalletBijwerken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'PalletBijwerken', '', '[ReturnName="PalletBijwerkenResult"]'); - { DnaCodeServiceSoap.ProboxEtiketAfdrukken } - InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ProboxEtiketAfdrukken', '', - '[ReturnName="ProboxEtiketAfdrukkenResult"]'); { DnaCodeServiceSoap.RondAfKaderdeurDag } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'RondAfKaderdeurDag', '', '[ReturnName="RondAfKaderdeurDagResult"]'); + { DnaCodeServiceSoap.RondAfVhossBatch } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'RondAfVhossBatch', '', + '[ReturnName="RondAfVhossBatchResult"]'); { DnaCodeServiceSoap.ToeleveringBijwerken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ToeleveringBijwerken', '', '[ReturnName="ToeleveringBijwerkenResult"]'); @@ -1817,6 +2171,9 @@ { 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"]'); @@ -1837,10 +2194,11 @@ '[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(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); + RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); + RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); 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'); @@ -1859,42 +2217,45 @@ 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(ZoekViaKlantnummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaKlantnummerResponse), '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(ZoekViaKlantnummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaKlantnummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ZoekViaLadecodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaLadecodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); - RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleDnaCodesDieOpVhossMoetenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); - RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleVhossLadesBijDnaCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); - 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.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString'); - RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenRequest'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); + RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); + RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaBatchRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaBatchRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaBatchResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaBatchResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaBatchResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); 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"]'); - RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); - RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(VhossKastenMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'VhossKastenMetAantallen'); + RemClassRegistry.RegisterXSClass(RondAfVhossBatchRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfVhossBatchRequest'); + RemClassRegistry.RegisterXSClass(RondAfVhossBatchResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfVhossBatchResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfVhossBatchResponse), 'VhossKastenMetAantallen', '[ArrayItemName="VhossKastenMetAantallen"]'); end. \ No newline at end of file