Index: PlanScan/UI/frameDnaCodes.dfm =================================================================== diff -u -r662 -r666 --- PlanScan/UI/frameDnaCodes.dfm (.../frameDnaCodes.dfm) (revision 662) +++ PlanScan/UI/frameDnaCodes.dfm (.../frameDnaCodes.dfm) (revision 666) @@ -492,16 +492,23 @@ OnEnter = edtToeleveringEnter OnKeyUp = edtDnaCodeKeyUp end - object edtStatus: TEdit - Left = 616 - Top = 34 - Width = 70 - Height = 21 - TabOrder = 9 - OnEnter = edtToeleveringEnter - OnKeyUp = edtDnaCodeKeyUp - end end + object combStatus: TComboBox + Left = 616 + Top = 34 + Width = 77 + Height = 21 + TabOrder = 3 + Text = '------' + Items.Strings = ( + '------' + 'Nieuw' + 'Gescand' + 'Ongedaan' + 'OnHold' + 'InBuffer' + 'InBatch') + end object dsDnaCodes: TDataSource Left = 32 Top = 192 Index: PlanScan/WS/Agent.pas =================================================================== diff -u -r660 -r666 --- PlanScan/WS/Agent.pas (.../Agent.pas) (revision 660) +++ PlanScan/WS/Agent.pas (.../Agent.pas) (revision 666) @@ -36,6 +36,8 @@ function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse; function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse; function ZoekViaBatchId(BatchId: string): ZoekViaBatchResponse; + function ZoekViaStatus(Status: DnaCodeStatus): ZoekViaStatusResponse; + function ZoekViaLpnCode(LpnCode: string): ZoekViaLpnCodeResponse; function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse; function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList; LijnWaaropGeprintMoetWorden: string): AfdrukService.ProboxEtiketAfdrukkenResponse; function KlantEtiketAfdrukken(DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse; @@ -296,6 +298,25 @@ end; end; +function TAgent.ZoekViaStatus(Status: DnaCodeStatus): ZoekViaStatusResponse; +var + Header: DnaCodeService.RequestHeader; + fZoekViaStatusRequest: ZoekViaStatusRequest; +begin + fZoekViaStatusRequest := ZoekViaStatusRequest.Create; + Header := DnaCodeService.RequestHeader.Create; + try + Header.Initialen := fUiContext.Initialen; + Header.ComputerNaam := FullName(); + fZoekViaStatusRequest.Header := Header; + fZoekViaStatusRequest.Status := Status; + + result := fDnaCodeServiceSoap.ZoekViaStatus(fZoekViaStatusRequest); + finally + fZoekViaStatusRequest.Free; + end; +end; + function TAgent.ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse; var Header: DnaCodeService.RequestHeader; @@ -392,6 +413,26 @@ end; end; +function TAgent.ZoekViaLpnCode( + LpnCode: string): ZoekViaLpnCodeResponse; +var + Header: DnaCodeService.RequestHeader; + fZoekViaLpnCodeRequest: ZoekViaLpnCodeRequest; +begin + fZoekViaLpnCodeRequest := ZoekViaLpnCodeRequest.Create; + Header := DnaCodeService.RequestHeader.Create; + try + Header.Initialen := fUiContext.Initialen; + Header.ComputerNaam := FullName(); + fZoekViaLpnCodeRequest.Header := Header; + fZoekViaLpnCodeRequest.LpnCode := LpnCode; + + result := fDnaCodeServiceSoap.ZoekViaLpnCode(fZoekViaLpnCodeRequest); + finally + fZoekViaLpnCodeRequest.Free; + end; +end; + function TAgent.ZoekViaToelevering( Toelevering: string): ZoekViaToeleveringResponse; var Index: PlanScan/WS/DnaCodeService.pas =================================================================== diff -u -r656 -r666 --- PlanScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 656) +++ PlanScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 666) @@ -5,7 +5,7 @@ // >Import : http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 -// (27/10/2023 14:29:20 - - $Rev: 45757 $) +// (9/11/2023 11:51:35 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -31,63 +31,101 @@ // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !: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] + // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] + ZoekViaStatusRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeefVolgendeLpnCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + BewerkKlantinstellingenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } HernoemPalletRequest = 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] } ZoekViaOrdernummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - BewerkKlantinstellingenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + Klantinstellingen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - BewerkKlantinstellingenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - GeefVolgendeTbpCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DnaCodeAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCodeAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + BewerkKlantinstellingenResponse = 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] } + ZoekViaLpnCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaStatusResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeefVolgendeLpnCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeefVolgendeTbpCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekAlleVhossLadesBijDnaCodeResponse = 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] } + ZoekAlleDnaCodesDieOpVhossMoetenRequest = 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] } - ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekAlleVhossLadesBijDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaLadecodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaLadecodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaLpnCodeRequest = 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] } - 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] } + ZoekViaKlantnummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringMetAantallen = 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] } + RondAfVhossBatchRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RondAfKaderdeurDagResponse = 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] } + ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ValideerPalletCodeResponse = 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] } + ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } DnaCodeStatus = (Nieuw, Gescand, Ongedaan, OnHold, InBuffer, InBatch); {$SCOPEDENUMS OFF} + + + // ************************************************************************ // + // XML : ZoekViaStatusRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaStatusRequest = class(TRemotable) + private + FHeader: RequestHeader; + FStatus: DnaCodeStatus; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Status: DnaCodeStatus read FStatus write FStatus; + end; + + + + // ************************************************************************ // + // XML : GeefVolgendeLpnCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + GeefVolgendeLpnCodeRequest = class(TRemotable) + private + FHeader: RequestHeader; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + end; + ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } @@ -104,49 +142,54 @@ property Header: RequestHeader read FHeader write FHeader; end; - String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // - // XML : DnaCodeAfmeldenRequest, global, + // XML : BewerkKlantinstellingenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenRequest = class(TRemotable) + BewerkKlantinstellingenRequest = 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; + FActie: string; + FKlantId: string; + FIsExport: Boolean; + FIsBlumXs: Boolean; + FWegwerpPallet: Boolean; + FHalvePallet: Boolean; + FMeerdereToeleveringen: 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; + 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 MeerdereToeleveringen: Boolean read FMeerdereToeleveringen write FMeerdereToeleveringen; end; + String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // + // XML : RequestHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + RequestHeader = class(TRemotable) + private + FInitialen: String_; + FComputerNaam: String_; + published + property Initialen: String_ read FInitialen write FInitialen; + property ComputerNaam: String_ read FComputerNaam write FComputerNaam; + end; + + + + // ************************************************************************ // // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -193,145 +236,397 @@ // ************************************************************************ // - // XML : ZoekViaPalletCodeRequest, global, + // XML : ZoekViaToeleveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaPalletCodeRequest = class(TRemotable) + ZoekViaToeleveringRequest = class(TRemotable) private FHeader: RequestHeader; - FPalletCode: string; + FToelevering: 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 Toelevering: string read FToelevering write FToelevering; end; // ************************************************************************ // - // XML : ZoekViaToeleveringRequest, global, + // XML : ZoekViaOrdernummerRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaToeleveringRequest = class(TRemotable) + ZoekViaOrdernummerRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; + FOrdernummer: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; + property Ordernummer: string read FOrdernummer write FOrdernummer; end; // ************************************************************************ // - // XML : ZoekViaLadecodeRequest, global, + // XML : ZoekViaPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaLadecodeRequest = class(TRemotable) + ZoekViaPalletCodeRequest = class(TRemotable) private FHeader: RequestHeader; - FLadecode: string; + FPalletCode: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Ladecode: string read FLadecode write FLadecode; + property Header: RequestHeader read FHeader write FHeader; + property PalletCode: string read FPalletCode write FPalletCode; end; + ArrayOfKlantinstellingenKlantinstellingen = array of Klantinstellingen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : ZoekViaOrdernummerRequest, global, + // XML : DnaCodeAfmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaOrdernummerRequest = class(TRemotable) + DnaCodeAfmeldenRequest = class(TRemotable) private FHeader: RequestHeader; - FOrdernummer: string; + FDnaCode: string; + FAantal: Int64; + FAantal_Specified: boolean; + FToelevering: string; + FToelevering_Specified: boolean; + FPalletCode: string; + FLpnCode: string; + FLpnCode_Specified: boolean; + 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 SetLpnCode(Index: Integer; const Astring: string); + function LpnCode_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 Ordernummer: string read FOrdernummer write FOrdernummer; + 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 LpnCode: string Index (IS_OPTN) read FLpnCode write SetLpnCode stored LpnCode_Specified; + 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 : BewerkKlantinstellingenRequest, global, + // XML : DataTransferObject, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - BewerkKlantinstellingenRequest = class(TRemotable) + DataTransferObject = class(TRemotable) private - FHeader: RequestHeader; - FActie: string; + published + end; + + + + // ************************************************************************ // + // XML : Klantinstellingen, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + Klantinstellingen = class(DataTransferObject) + private FKlantId: string; + FKlantId_Specified: boolean; + FKlantnaam: string; + FKlantnaam_Specified: boolean; FIsExport: Boolean; + FIsExport_Specified: boolean; FIsBlumXs: Boolean; + FIsBlumXs_Specified: boolean; FWegwerpPallet: Boolean; + FWegwerpPallet_Specified: boolean; FHalvePallet: Boolean; + FHalvePallet_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 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 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 MeerdereToeleveringen: Boolean Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified; + end; + + + + // ************************************************************************ // + // XML : GeneriekeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + GeneriekeResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; public destructor Destroy; override; published - property Header: 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 MeerdereToeleveringen: Boolean read FMeerdereToeleveringen write FMeerdereToeleveringen; + property Header: ResponseHeader read FHeader write FHeader; end; // ************************************************************************ // - // XML : RequestHeader, global, + // XML : ZoekViaToeleveringResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RequestHeader = class(TRemotable) + ZoekViaToeleveringResponse = class(GeneriekeResponse) private - FInitialen: String_; - FComputerNaam: String_; + FAantalInToelevering: Int64; + FAantalInToelevering_Specified: boolean; + FAantalReedsGescand: Int64; + FAantalReedsGescand_Specified: boolean; + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + procedure SetAantalInToelevering(Index: Integer; const AInt64: Int64); + function AantalInToelevering_Specified(Index: Integer): boolean; + procedure SetAantalReedsGescand(Index: Integer; const AInt64: Int64); + function AantalReedsGescand_Specified(Index: Integer): boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; + public + destructor Destroy; override; published - property Initialen: String_ read FInitialen write FInitialen; - property ComputerNaam: String_ read FComputerNaam write FComputerNaam; + property AantalInToelevering: Int64 Index (IS_OPTN) read FAantalInToelevering write SetAantalInToelevering stored AantalInToelevering_Specified; + property AantalReedsGescand: Int64 Index (IS_OPTN) read FAantalReedsGescand write SetAantalReedsGescand stored AantalReedsGescand_Specified; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : ResponseHeader, global, + // XML : DnaCodeAfmeldenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ResponseHeader = class(TRemotable) + DnaCodeAfmeldenResponse = class(GeneriekeResponse) private - FStatus: String_; - FOmschrijving: String_; + FAantalInToelevering: Int64; + FAantalInToelevering_Specified: boolean; + FAantalReedsGescand: Int64; + FAantalReedsGescand_Specified: boolean; + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_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 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 Status: String_ read FStatus write FStatus; - property Omschrijving: String_ read FOmschrijving write FOmschrijving; + property AantalInToelevering: Int64 Index (IS_OPTN) read FAantalInToelevering write SetAantalInToelevering stored AantalInToelevering_Specified; + property AantalReedsGescand: Int64 Index (IS_OPTN) read FAantalReedsGescand write SetAantalReedsGescand stored AantalReedsGescand_Specified; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; + property IsSST: Boolean Index (IS_OPTN) read FIsSST write SetIsSST stored IsSST_Specified; end; - ArrayOfKlantinstellingenKlantinstellingen = array of Klantinstellingen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : DataTransferObject, global, + // XML : BewerkKlantinstellingenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DataTransferObject = class(TRemotable) + BewerkKlantinstellingenResponse = class(GeneriekeResponse) private + FKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen; + FKlantinstellingen_Specified: boolean; + procedure SetKlantinstellingen(Index: Integer; const AArrayOfKlantinstellingenKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen); + function Klantinstellingen_Specified(Index: Integer): boolean; + public + destructor Destroy; override; published + property Klantinstellingen: ArrayOfKlantinstellingenKlantinstellingen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FKlantinstellingen write SetKlantinstellingen stored Klantinstellingen_Specified; end; // ************************************************************************ // + // XML : ZoekViaOrdernummerResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaOrdernummerResponse = class(GeneriekeResponse) + private + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + end; + + + + // ************************************************************************ // + // XML : ZoekViaLpnCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaLpnCodeResponse = class(GeneriekeResponse) + private + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + FMeerdereToeleveringenToegestaan: Boolean; + FMeerdereToeleveringenToegestaan_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; + procedure SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); + function MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property MeerdereToeleveringenToegestaan: Boolean Index (IS_OPTN) read FMeerdereToeleveringenToegestaan write SetMeerdereToeleveringenToegestaan stored MeerdereToeleveringenToegestaan_Specified; + end; + + + + // ************************************************************************ // + // XML : ZoekViaPalletCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaPalletCodeResponse = class(GeneriekeResponse) + private + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + FMeerdereToeleveringenToegestaan: Boolean; + FMeerdereToeleveringenToegestaan_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; + procedure SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); + function MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property MeerdereToeleveringenToegestaan: Boolean Index (IS_OPTN) read FMeerdereToeleveringenToegestaan write SetMeerdereToeleveringenToegestaan stored MeerdereToeleveringenToegestaan_Specified; + end; + + + + // ************************************************************************ // + // XML : ZoekViaStatusResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaStatusResponse = 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 : GeefVolgendeLpnCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + GeefVolgendeLpnCodeResponse = class(GeneriekeResponse) + private + FVolgendeLpnCode: string; + published + property VolgendeLpnCode: string read FVolgendeLpnCode write FVolgendeLpnCode; + end; + + + + // ************************************************************************ // + // XML : HernoemPalletResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + HernoemPalletResponse = class(GeneriekeResponse) + private + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + end; + + + + // ************************************************************************ // + // XML : DirecteLeveringResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DirecteLeveringResponse = class(GeneriekeResponse) + private + FIsDirecteLevering: Boolean; + published + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + end; + + + + // ************************************************************************ // + // XML : GeefVolgendeTbpCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) + private + FVolgendeTbpCode: string; + published + property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; + end; + + + + // ************************************************************************ // // XML : DnaCode, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -345,6 +640,8 @@ FDnaCode_Specified: boolean; FPalletCode: string; FPalletCode_Specified: boolean; + FLpnCode: string; + FLpnCode_Specified: boolean; FToelevering: string; FToelevering_Specified: boolean; FKlantNummer: string; @@ -381,6 +678,8 @@ function DnaCode_Specified(Index: Integer): boolean; procedure SetPalletCode(Index: Integer; const Astring: string); function PalletCode_Specified(Index: Integer): boolean; + procedure SetLpnCode(Index: Integer; const Astring: string); + function LpnCode_Specified(Index: Integer): boolean; procedure SetToelevering(Index: Integer; const Astring: string); function Toelevering_Specified(Index: Integer): boolean; procedure SetKlantNummer(Index: Integer; const Astring: string); @@ -416,6 +715,7 @@ 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 LpnCode: string Index (IS_OPTN) read FLpnCode write SetLpnCode stored LpnCode_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; @@ -435,57 +735,47 @@ // ************************************************************************ // - // XML : GeneriekeResponse, global, + // XML : ResponseHeader, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeneriekeResponse = class(DataTransferObject) + ResponseHeader = class(TRemotable) private - FHeader: ResponseHeader; - public - destructor Destroy; override; + FStatus: String_; + FOmschrijving: String_; published - property Header: ResponseHeader read FHeader write FHeader; + property Status: String_ read FStatus write FStatus; + property Omschrijving: String_ read FOmschrijving write FOmschrijving; end; // ************************************************************************ // - // XML : BewerkKlantinstellingenResponse, global, + // XML : PalletBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - BewerkKlantinstellingenResponse = class(GeneriekeResponse) + PalletBijwerkenRequest = class(TRemotable) private - FKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen; - FKlantinstellingen_Specified: boolean; - procedure SetKlantinstellingen(Index: Integer; const AArrayOfKlantinstellingenKlantinstellingen: ArrayOfKlantinstellingenKlantinstellingen); - function Klantinstellingen_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FPallet: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; public destructor Destroy; override; published - property Klantinstellingen: ArrayOfKlantinstellingenKlantinstellingen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FKlantinstellingen write SetKlantinstellingen stored Klantinstellingen_Specified; + 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 : GeefVolgendeTbpCodeResponse, global, + // XML : ZoekAlleVhossLadesBijDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) + ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse) private - FVolgendeTbpCode: string; - published - property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; - end; - - - - // ************************************************************************ // - // XML : HernoemPalletResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - HernoemPalletResponse = class(GeneriekeResponse) - private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); @@ -499,208 +789,58 @@ // ************************************************************************ // - // XML : DnaCodeAfmeldenResponse, global, + // XML : ZoekViaBatchRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenResponse = class(GeneriekeResponse) + ZoekViaBatchRequest = class(TRemotable) private - FAantalInToelevering: Int64; - FAantalInToelevering_Specified: boolean; - FAantalReedsGescand: Int64; - FAantalReedsGescand_Specified: boolean; - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; + FHeader: RequestHeader; 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 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 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; + property Header: RequestHeader read FHeader write FHeader; + property BatchId: string read FBatchId write FBatchId; end; // ************************************************************************ // - // XML : ZoekViaPalletCodeResponse, global, + // XML : ZoekViaBatchResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaPalletCodeResponse = class(GeneriekeResponse) + ZoekViaBatchResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; - FMeerdereToeleveringenToegestaan: Boolean; - FMeerdereToeleveringenToegestaan_Specified: boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; - procedure SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); - function MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; - property MeerdereToeleveringenToegestaan: Boolean Index (IS_OPTN) read FMeerdereToeleveringenToegestaan write SetMeerdereToeleveringenToegestaan stored MeerdereToeleveringenToegestaan_Specified; - end; - - - - // ************************************************************************ // - // XML : ZoekViaToeleveringResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ZoekViaToeleveringResponse = class(GeneriekeResponse) - private - FAantalInToelevering: Int64; - FAantalInToelevering_Specified: boolean; - FAantalReedsGescand: Int64; - FAantalReedsGescand_Specified: boolean; - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; - procedure SetAantalInToelevering(Index: Integer; const AInt64: Int64); - function AantalInToelevering_Specified(Index: Integer): boolean; - procedure SetAantalReedsGescand(Index: Integer; const AInt64: Int64); - function AantalReedsGescand_Specified(Index: Integer): boolean; - procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); - function DnaCodes_Specified(Index: Integer): boolean; - public - destructor Destroy; override; - published - property AantalInToelevering: Int64 Index (IS_OPTN) read FAantalInToelevering write SetAantalInToelevering stored AantalInToelevering_Specified; - property AantalReedsGescand: Int64 Index (IS_OPTN) read FAantalReedsGescand write SetAantalReedsGescand stored AantalReedsGescand_Specified; - property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; - end; - - - - // ************************************************************************ // - // XML : ZoekViaOrdernummerResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ZoekViaOrdernummerResponse = class(GeneriekeResponse) - private - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); - function DnaCodes_Specified(Index: Integer): boolean; - public - destructor Destroy; override; - published property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : ZoekViaKlantnummerResponse, global, + // XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaKlantnummerResponse = class(GeneriekeResponse) + ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable) private - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); - function DnaCodes_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FFrameId: string; public destructor Destroy; override; published - property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property Header: RequestHeader read FHeader write FHeader; + property FrameId: string read FFrameId write FFrameId; end; // ************************************************************************ // - // XML : ZoekViaLadecodeResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ZoekViaLadecodeResponse = class(GeneriekeResponse) - private - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); - function DnaCodes_Specified(Index: Integer): boolean; - public - destructor Destroy; override; - published - property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; - end; - - - - // ************************************************************************ // - // XML : Klantinstellingen, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - Klantinstellingen = class(DataTransferObject) - private - FKlantId: string; - FKlantId_Specified: boolean; - FKlantnaam: string; - FKlantnaam_Specified: boolean; - FIsExport: Boolean; - FIsExport_Specified: boolean; - FIsBlumXs: Boolean; - FIsBlumXs_Specified: boolean; - FWegwerpPallet: Boolean; - FWegwerpPallet_Specified: boolean; - FHalvePallet: Boolean; - FHalvePallet_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 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 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 MeerdereToeleveringen: Boolean Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified; - end; - - - - // ************************************************************************ // - // XML : DirecteLeveringResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - DirecteLeveringResponse = class(GeneriekeResponse) - private - FIsDirecteLevering: Boolean; - published - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; - end; - - - - // ************************************************************************ // // XML : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -741,64 +881,70 @@ // ************************************************************************ // - // XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, + // XML : ZoekViaDnaCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable) + ZoekViaDnaCodeRequest = class(TRemotable) private FHeader: RequestHeader; - FFrameId: string; + FDnaCode: string; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; - property FrameId: string read FFrameId write FFrameId; + property DnaCode: string read FDnaCode write FDnaCode; end; // ************************************************************************ // - // XML : ValideerPalletCodeRequest, global, + // XML : ZoekViaLadecodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + ZoekViaLadecodeRequest = class(TRemotable) private FHeader: RequestHeader; - FPalletCode: string; + FLadecode: 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 Ladecode: string read FLadecode write FLadecode; end; // ************************************************************************ // - // XML : ValideerPalletCodeResponse, global, + // XML : ZoekViaLadecodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeResponse = class(GeneriekeResponse) + 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 : ZoekAlleVhossLadesBijDnaCodeResponse, global, + // XML : ZoekViaLpnCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse) + ZoekViaLpnCodeRequest = class(TRemotable) private - FDnaCodes: ArrayOfDnaCodeDnaCode; - FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); - function DnaCodes_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FLpnCode: string; public destructor Destroy; override; published - property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property Header: RequestHeader read FHeader write FHeader; + property LpnCode: string read FLpnCode write FLpnCode; end; @@ -839,45 +985,11 @@ // ************************************************************************ // - // XML : ZoekViaDnaCodeRequest, global, + // XML : ZoekViaKlantnummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaDnaCodeRequest = class(TRemotable) + ZoekViaKlantnummerResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FDnaCode: string; - public - destructor Destroy; override; - published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: string read FDnaCode write FDnaCode; - end; - - - - // ************************************************************************ // - // XML : ZoekViaBatchRequest, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ZoekViaBatchRequest = class(TRemotable) - private - FHeader: RequestHeader; - FBatchId: string; - public - destructor Destroy; override; - published - property Header: RequestHeader read FHeader write FHeader; - property BatchId: string read FBatchId write FBatchId; - end; - - - - // ************************************************************************ // - // XML : ZoekViaBatchResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ZoekViaBatchResponse = class(GeneriekeResponse) - private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); @@ -891,17 +1003,6 @@ // ************************************************************************ // - // XML : ToeleveringBijwerkenResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ToeleveringBijwerkenResponse = class(GeneriekeResponse) - private - published - end; - - - - // ************************************************************************ // // XML : ToeleveringMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -925,56 +1026,55 @@ property AantalKaderdeurenGescand: string Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified; end; + ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : RondAfKaderdeurDagRequest, global, + // XML : RondAfVhossBatchRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfKaderdeurDagRequest = class(TRemotable) + 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 : PalletBijwerkenRequest, global, + // XML : PalletBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenRequest = class(TRemotable) + PalletBijwerkenResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FPallet: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; - public - destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Pallet: string read FPallet write FPallet; - property Status: DnaCodeStatus read FStatus write FStatus; - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; // ************************************************************************ // - // XML : PalletBijwerkenResponse, global, + // XML : RondAfKaderdeurDagRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenResponse = class(GeneriekeResponse) + RondAfKaderdeurDagRequest = class(TRemotable) private + FHeader: RequestHeader; + FDnaCode: String_; + public + destructor Destroy; override; published + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: String_ read FDnaCode write FDnaCode; end; - ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // @@ -993,31 +1093,48 @@ 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 : ToeleveringBijwerkenRequest, global, + // XML : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenRequest = class(TRemotable) + ToeleveringBijwerkenResponse = class(GeneriekeResponse) private + published + end; + + + + // ************************************************************************ // + // XML : ValideerPalletCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + 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 : ValideerPalletCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ValideerPalletCodeResponse = class(GeneriekeResponse) + private + published + end; + + + + // ************************************************************************ // // XML : VhossKastenMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -1041,42 +1158,44 @@ property AantalLadesGescand: string Index (IS_OPTN) read FAantalLadesGescand write SetAantalLadesGescand stored AantalLadesGescand_Specified; end; + ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen = array of VhossKastenMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : RondAfVhossBatchRequest, global, + // XML : RondAfVhossBatchResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfVhossBatchRequest = class(TRemotable) + RondAfVhossBatchResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FBatchId: String_; - FBatchId_Specified: boolean; - procedure SetBatchId(Index: Integer; const AString_: String_); - function BatchId_Specified(Index: Integer): boolean; + FVhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen; + FVhossKastenMetAantallen_Specified: boolean; + procedure SetVhossKastenMetAantallen(Index: Integer; const AArrayOfVhossKastenMetAantallenVhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen); + function VhossKastenMetAantallen_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property BatchId: String_ Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; + property VhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FVhossKastenMetAantallen write SetVhossKastenMetAantallen stored VhossKastenMetAantallen_Specified; end; // ************************************************************************ // - // XML : RondAfVhossBatchResponse, global, + // XML : ToeleveringBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfVhossBatchResponse = class(GeneriekeResponse) + ToeleveringBijwerkenRequest = class(TRemotable) private - FVhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen; - FVhossKastenMetAantallen_Specified: boolean; - procedure SetVhossKastenMetAantallen(Index: Integer; const AArrayOfVhossKastenMetAantallenVhossKastenMetAantallen: ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen); - function VhossKastenMetAantallen_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FToelevering: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: 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; + 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; @@ -1095,6 +1214,7 @@ ['{514675BC-4331-0084-2F76-0934B2799FAE}'] function BewerkKlantinstellingen(const BewerkKlantInstellingen: BewerkKlantinstellingenRequest): BewerkKlantinstellingenResponse; stdcall; function DnaCodeAfmelden(const DnaCodeAfmeldenRequest: DnaCodeAfmeldenRequest): DnaCodeAfmeldenResponse; stdcall; + function GeefVolgendeLpnCode(const GeefVolgendeLpnCodeRequest: GeefVolgendeLpnCodeRequest): GeefVolgendeLpnCodeResponse; stdcall; function GeefVolgendeTbpCode(const GeefVolgendeTbpCodeRequest: GeefVolgendeTbpCodeRequest): GeefVolgendeTbpCodeResponse; stdcall; function HernoemPallet(const HernoemPalletRequest: HernoemPalletRequest): HernoemPalletResponse; stdcall; function IsDirecteLevering(const DirecteLeveringRequest: DirecteLeveringRequest): DirecteLeveringResponse; stdcall; @@ -1109,8 +1229,10 @@ function ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall; function ZoekViaKlantnummer(const ZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest): ZoekViaKlantnummerResponse; stdcall; function ZoekViaLadecode(const ZoekViaLadecodeRequest: ZoekViaLadecodeRequest): ZoekViaLadecodeResponse; stdcall; + function ZoekViaLpnCode(const ZoekViaLpnCodeRequest: ZoekViaLpnCodeRequest): ZoekViaLpnCodeResponse; stdcall; function ZoekViaOrdernummer(const ZoekViaOrdernummerRequest: ZoekViaOrdernummerRequest): ZoekViaOrdernummerResponse; stdcall; function ZoekViaPalletCode(const ZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall; + function ZoekViaStatus(const ZoekViaStatusRequest: ZoekViaStatusRequest): ZoekViaStatusResponse; stdcall; function ZoekViaToelevering(const ZoekViaToeleveringRequest: ZoekViaToeleveringRequest): ZoekViaToeleveringResponse; stdcall; end; @@ -1157,62 +1279,30 @@ end; -destructor GeefVolgendeTbpCodeRequest.Destroy; +destructor ZoekViaStatusRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor DnaCodeAfmeldenRequest.Destroy; +destructor GeefVolgendeLpnCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -procedure DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64); +destructor GeefVolgendeTbpCodeRequest.Destroy; begin - FAantal := AInt64; - FAantal_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean; +destructor BewerkKlantinstellingenRequest.Destroy; begin - Result := FAantal_Specified; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string); -begin - FToelevering := Astring; - FToelevering_Specified := True; -end; - -function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean; -begin - Result := FToelevering_Specified; -end; - -procedure DnaCodeAfmeldenRequest.SetLocatie(Index: Integer; const Astring: string); -begin - FLocatie := Astring; - FLocatie_Specified := True; -end; - -function DnaCodeAfmeldenRequest.Locatie_Specified(Index: Integer): boolean; -begin - Result := FLocatie_Specified; -end; - -procedure DnaCodeAfmeldenRequest.SetBatchId(Index: Integer; const Astring: string); -begin - FBatchId := Astring; - FBatchId_Specified := True; -end; - -function DnaCodeAfmeldenRequest.BatchId_Specified(Index: Integer): boolean; -begin - Result := FBatchId_Specified; -end; - destructor HernoemPalletRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1247,247 +1337,276 @@ inherited Destroy; end; -destructor ZoekViaPalletCodeRequest.Destroy; +destructor ZoekViaToeleveringRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ZoekViaToeleveringRequest.Destroy; +destructor ZoekViaOrdernummerRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ZoekViaLadecodeRequest.Destroy; +destructor ZoekViaPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ZoekViaOrdernummerRequest.Destroy; +destructor DnaCodeAfmeldenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor BewerkKlantinstellingenRequest.Destroy; +procedure DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FAantal := AInt64; + FAantal_Specified := True; end; -destructor DnaCode.Destroy; +function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FScanTijdstip); - SysUtils.FreeAndNil(FAfdrukTijdstip); - inherited Destroy; + Result := FAantal_Specified; end; -procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string); begin - FAxProductieOrderNummer := Astring; - FAxProductieOrderNummer_Specified := True; + FToelevering := Astring; + FToelevering_Specified := True; end; -function DnaCode.AxProductieOrderNummer_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean; begin - Result := FAxProductieOrderNummer_Specified; + Result := FToelevering_Specified; end; -procedure DnaCode.SetProductNummer(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenRequest.SetLpnCode(Index: Integer; const Astring: string); begin - FProductNummer := Astring; - FProductNummer_Specified := True; + FLpnCode := Astring; + FLpnCode_Specified := True; end; -function DnaCode.ProductNummer_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenRequest.LpnCode_Specified(Index: Integer): boolean; begin - Result := FProductNummer_Specified; + Result := FLpnCode_Specified; end; -procedure DnaCode.SetDnaCode(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenRequest.SetLocatie(Index: Integer; const Astring: string); begin - FDnaCode := Astring; - FDnaCode_Specified := True; + FLocatie := Astring; + FLocatie_Specified := True; end; -function DnaCode.DnaCode_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenRequest.Locatie_Specified(Index: Integer): boolean; begin - Result := FDnaCode_Specified; + Result := FLocatie_Specified; end; -procedure DnaCode.SetPalletCode(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenRequest.SetBatchId(Index: Integer; const Astring: string); begin - FPalletCode := Astring; - FPalletCode_Specified := True; + FBatchId := Astring; + FBatchId_Specified := True; end; -function DnaCode.PalletCode_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenRequest.BatchId_Specified(Index: Integer): boolean; begin - Result := FPalletCode_Specified; + Result := FBatchId_Specified; end; -procedure DnaCode.SetToelevering(Index: Integer; const Astring: string); +procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string); begin - FToelevering := Astring; - FToelevering_Specified := True; + FKlantId := Astring; + FKlantId_Specified := True; end; -function DnaCode.Toelevering_Specified(Index: Integer): boolean; +function Klantinstellingen.KlantId_Specified(Index: Integer): boolean; begin - Result := FToelevering_Specified; + Result := FKlantId_Specified; end; -procedure DnaCode.SetKlantNummer(Index: Integer; const Astring: string); +procedure Klantinstellingen.SetKlantnaam(Index: Integer; const Astring: string); begin - FKlantNummer := Astring; - FKlantNummer_Specified := True; + FKlantnaam := Astring; + FKlantnaam_Specified := True; end; -function DnaCode.KlantNummer_Specified(Index: Integer): boolean; +function Klantinstellingen.Klantnaam_Specified(Index: Integer): boolean; begin - Result := FKlantNummer_Specified; + Result := FKlantnaam_Specified; end; -procedure DnaCode.SetLocatie(Index: Integer; const Astring: string); +procedure Klantinstellingen.SetIsExport(Index: Integer; const ABoolean: Boolean); begin - FLocatie := Astring; - FLocatie_Specified := True; + FIsExport := ABoolean; + FIsExport_Specified := True; end; -function DnaCode.Locatie_Specified(Index: Integer): boolean; +function Klantinstellingen.IsExport_Specified(Index: Integer): boolean; begin - Result := FLocatie_Specified; + Result := FIsExport_Specified; end; -procedure DnaCode.SetLijn(Index: Integer; const Astring: string); +procedure Klantinstellingen.SetIsBlumXs(Index: Integer; const ABoolean: Boolean); begin - FLijn := Astring; - FLijn_Specified := True; + FIsBlumXs := ABoolean; + FIsBlumXs_Specified := True; end; -function DnaCode.Lijn_Specified(Index: Integer): boolean; +function Klantinstellingen.IsBlumXs_Specified(Index: Integer): boolean; begin - Result := FLijn_Specified; + Result := FIsBlumXs_Specified; end; -procedure DnaCode.SetInitialenScanner(Index: Integer; const Astring: string); +procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); begin - FInitialenScanner := Astring; - FInitialenScanner_Specified := True; + FWegwerpPallet := ABoolean; + FWegwerpPallet_Specified := True; end; -function DnaCode.InitialenScanner_Specified(Index: Integer): boolean; +function Klantinstellingen.WegwerpPallet_Specified(Index: Integer): boolean; begin - Result := FInitialenScanner_Specified; + Result := FWegwerpPallet_Specified; end; -procedure DnaCode.SetScanTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); +procedure Klantinstellingen.SetHalvePallet(Index: Integer; const ABoolean: Boolean); begin - FScanTijdstip := ATXSDateTime; - FScanTijdstip_Specified := True; + FHalvePallet := ABoolean; + FHalvePallet_Specified := True; end; -function DnaCode.ScanTijdstip_Specified(Index: Integer): boolean; +function Klantinstellingen.HalvePallet_Specified(Index: Integer): boolean; begin - Result := FScanTijdstip_Specified; + Result := FHalvePallet_Specified; end; -procedure DnaCode.SetLadeCode(Index: Integer; const Astring: string); +procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); begin - FLadeCode := Astring; - FLadeCode_Specified := True; + FMeerdereToeleveringen := ABoolean; + FMeerdereToeleveringen_Specified := True; end; -function DnaCode.LadeCode_Specified(Index: Integer): boolean; +function Klantinstellingen.MeerdereToeleveringen_Specified(Index: Integer): boolean; begin - Result := FLadeCode_Specified; + Result := FMeerdereToeleveringen_Specified; end; -procedure DnaCode.SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); +destructor GeneriekeResponse.Destroy; begin - FStatus := ADnaCodeStatus; - FStatus_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function DnaCode.Status_Specified(Index: Integer): boolean; +destructor ZoekViaToeleveringResponse.Destroy; +var + I: Integer; begin - Result := FStatus_Specified; + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; end; -procedure DnaCode.SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean); +procedure ZoekViaToeleveringResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); begin - FIsDirecteLevering := ABoolean; - FIsDirecteLevering_Specified := True; + FAantalInToelevering := AInt64; + FAantalInToelevering_Specified := True; end; -function DnaCode.IsDirecteLevering_Specified(Index: Integer): boolean; +function ZoekViaToeleveringResponse.AantalInToelevering_Specified(Index: Integer): boolean; begin - Result := FIsDirecteLevering_Specified; + Result := FAantalInToelevering_Specified; end; -procedure DnaCode.SetParentDnaCode(Index: Integer; const Astring: string); +procedure ZoekViaToeleveringResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); begin - FParentDnaCode := Astring; - FParentDnaCode_Specified := True; + FAantalReedsGescand := AInt64; + FAantalReedsGescand_Specified := True; end; -function DnaCode.ParentDnaCode_Specified(Index: Integer): boolean; +function ZoekViaToeleveringResponse.AantalReedsGescand_Specified(Index: Integer): boolean; begin - Result := FParentDnaCode_Specified; + Result := FAantalReedsGescand_Specified; end; -procedure DnaCode.SetSequentieNummer(Index: Integer; const Astring: string); +procedure ZoekViaToeleveringResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FSequentieNummer := Astring; - FSequentieNummer_Specified := True; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -function DnaCode.SequentieNummer_Specified(Index: Integer): boolean; +function ZoekViaToeleveringResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FSequentieNummer_Specified; + Result := FDnaCodes_Specified; end; -procedure DnaCode.SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean); +destructor DnaCodeAfmeldenResponse.Destroy; +var + I: Integer; begin - FIsWegwerpPallet := ABoolean; - FIsWegwerpPallet_Specified := True; + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; end; -function DnaCode.IsWegwerpPallet_Specified(Index: Integer): boolean; +procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); begin - Result := FIsWegwerpPallet_Specified; + FAantalInToelevering := AInt64; + FAantalInToelevering_Specified := True; end; -procedure DnaCode.SetBatchId(Index: Integer; const Astring: string); +function DnaCodeAfmeldenResponse.AantalInToelevering_Specified(Index: Integer): boolean; begin - FBatchId := Astring; - FBatchId_Specified := True; + Result := FAantalInToelevering_Specified; end; -function DnaCode.BatchId_Specified(Index: Integer): boolean; +procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); begin - Result := FBatchId_Specified; + FAantalReedsGescand := AInt64; + FAantalReedsGescand_Specified := True; end; -procedure DnaCode.SetAfdrukTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); +function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; begin - FAfdrukTijdstip := ATXSDateTime; - FAfdrukTijdstip_Specified := True; + Result := FAantalReedsGescand_Specified; end; -function DnaCode.AfdrukTijdstip_Specified(Index: Integer): boolean; +procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - Result := FAfdrukTijdstip_Specified; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -destructor GeneriekeResponse.Destroy; +function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FDnaCodes_Specified; end; +procedure DnaCodeAfmeldenResponse.SetBatchId(Index: Integer; const Astring: string); +begin + FBatchId := Astring; + FBatchId_Specified := True; +end; + +function DnaCodeAfmeldenResponse.BatchId_Specified(Index: Integer): boolean; +begin + Result := FBatchId_Specified; +end; + +procedure DnaCodeAfmeldenResponse.SetIsSST(Index: Integer; const ABoolean: Boolean); +begin + FIsSST := ABoolean; + FIsSST_Specified := True; +end; + +function DnaCodeAfmeldenResponse.IsSST_Specified(Index: Integer): boolean; +begin + Result := FIsSST_Specified; +end; + destructor BewerkKlantinstellingenResponse.Destroy; var I: Integer; @@ -1509,7 +1628,7 @@ Result := FKlantinstellingen_Specified; end; -destructor HernoemPalletResponse.Destroy; +destructor ZoekViaOrdernummerResponse.Destroy; var I: Integer; begin @@ -1519,18 +1638,18 @@ inherited Destroy; end; -procedure HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure ZoekViaOrdernummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaOrdernummerResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; -destructor DnaCodeAfmeldenResponse.Destroy; +destructor ZoekViaLpnCodeResponse.Destroy; var I: Integer; begin @@ -1540,62 +1659,82 @@ inherited Destroy; end; -procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); +procedure ZoekViaLpnCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FAantalInToelevering := AInt64; - FAantalInToelevering_Specified := True; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -function DnaCodeAfmeldenResponse.AantalInToelevering_Specified(Index: Integer): boolean; +function ZoekViaLpnCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FAantalInToelevering_Specified; + Result := FDnaCodes_Specified; end; -procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); +procedure ZoekViaLpnCodeResponse.SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); begin - FAantalReedsGescand := AInt64; - FAantalReedsGescand_Specified := True; + FMeerdereToeleveringenToegestaan := ABoolean; + FMeerdereToeleveringenToegestaan_Specified := True; end; -function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; +function ZoekViaLpnCodeResponse.MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean; begin - Result := FAantalReedsGescand_Specified; + Result := FMeerdereToeleveringenToegestaan_Specified; end; -procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +destructor ZoekViaPalletCodeResponse.Destroy; +var + I: Integer; begin + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; +end; + +procedure ZoekViaPalletCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaPalletCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; -procedure DnaCodeAfmeldenResponse.SetBatchId(Index: Integer; const Astring: string); +procedure ZoekViaPalletCodeResponse.SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); begin - FBatchId := Astring; - FBatchId_Specified := True; + FMeerdereToeleveringenToegestaan := ABoolean; + FMeerdereToeleveringenToegestaan_Specified := True; end; -function DnaCodeAfmeldenResponse.BatchId_Specified(Index: Integer): boolean; +function ZoekViaPalletCodeResponse.MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean; begin - Result := FBatchId_Specified; + Result := FMeerdereToeleveringenToegestaan_Specified; end; -procedure DnaCodeAfmeldenResponse.SetIsSST(Index: Integer; const ABoolean: Boolean); +destructor ZoekViaStatusResponse.Destroy; +var + I: Integer; begin - FIsSST := ABoolean; - FIsSST_Specified := True; + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; end; -function DnaCodeAfmeldenResponse.IsSST_Specified(Index: Integer): boolean; +procedure ZoekViaStatusResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - Result := FIsSST_Specified; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -destructor ZoekViaPalletCodeResponse.Destroy; +function ZoekViaStatusResponse.DnaCodes_Specified(Index: Integer): boolean; +begin + Result := FDnaCodes_Specified; +end; + +destructor HernoemPalletResponse.Destroy; var I: Integer; begin @@ -1605,211 +1744,293 @@ inherited Destroy; end; -procedure ZoekViaPalletCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekViaPalletCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; -procedure ZoekViaPalletCodeResponse.SetMeerdereToeleveringenToegestaan(Index: Integer; const ABoolean: Boolean); +destructor DnaCode.Destroy; begin - FMeerdereToeleveringenToegestaan := ABoolean; - FMeerdereToeleveringenToegestaan_Specified := True; + SysUtils.FreeAndNil(FScanTijdstip); + SysUtils.FreeAndNil(FAfdrukTijdstip); + inherited Destroy; end; -function ZoekViaPalletCodeResponse.MeerdereToeleveringenToegestaan_Specified(Index: Integer): boolean; +procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); begin - Result := FMeerdereToeleveringenToegestaan_Specified; + FAxProductieOrderNummer := Astring; + FAxProductieOrderNummer_Specified := True; end; -destructor ZoekViaToeleveringResponse.Destroy; -var - I: Integer; +function DnaCode.AxProductieOrderNummer_Specified(Index: Integer): boolean; begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); - inherited Destroy; + Result := FAxProductieOrderNummer_Specified; end; -procedure ZoekViaToeleveringResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); +procedure DnaCode.SetProductNummer(Index: Integer; const Astring: string); begin - FAantalInToelevering := AInt64; - FAantalInToelevering_Specified := True; + FProductNummer := Astring; + FProductNummer_Specified := True; end; -function ZoekViaToeleveringResponse.AantalInToelevering_Specified(Index: Integer): boolean; +function DnaCode.ProductNummer_Specified(Index: Integer): boolean; begin - Result := FAantalInToelevering_Specified; + Result := FProductNummer_Specified; end; -procedure ZoekViaToeleveringResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); +procedure DnaCode.SetDnaCode(Index: Integer; const Astring: string); begin - FAantalReedsGescand := AInt64; - FAantalReedsGescand_Specified := True; + FDnaCode := Astring; + FDnaCode_Specified := True; end; -function ZoekViaToeleveringResponse.AantalReedsGescand_Specified(Index: Integer): boolean; +function DnaCode.DnaCode_Specified(Index: Integer): boolean; begin - Result := FAantalReedsGescand_Specified; + Result := FDnaCode_Specified; end; -procedure ZoekViaToeleveringResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure DnaCode.SetPalletCode(Index: Integer; const Astring: string); begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + FPalletCode := Astring; + FPalletCode_Specified := True; end; -function ZoekViaToeleveringResponse.DnaCodes_Specified(Index: Integer): boolean; +function DnaCode.PalletCode_Specified(Index: Integer): boolean; begin - Result := FDnaCodes_Specified; + Result := FPalletCode_Specified; end; -destructor ZoekViaOrdernummerResponse.Destroy; -var - I: Integer; +procedure DnaCode.SetLpnCode(Index: Integer; const Astring: string); begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); - inherited Destroy; + FLpnCode := Astring; + FLpnCode_Specified := True; end; -procedure ZoekViaOrdernummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +function DnaCode.LpnCode_Specified(Index: Integer): boolean; begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + Result := FLpnCode_Specified; end; -function ZoekViaOrdernummerResponse.DnaCodes_Specified(Index: Integer): boolean; +procedure DnaCode.SetToelevering(Index: Integer; const Astring: string); begin - Result := FDnaCodes_Specified; + FToelevering := Astring; + FToelevering_Specified := True; end; -destructor ZoekViaKlantnummerResponse.Destroy; -var - I: Integer; +function DnaCode.Toelevering_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 := FToelevering_Specified; end; -procedure ZoekViaKlantnummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure DnaCode.SetKlantNummer(Index: Integer; const Astring: string); begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + FKlantNummer := Astring; + FKlantNummer_Specified := True; end; -function ZoekViaKlantnummerResponse.DnaCodes_Specified(Index: Integer): boolean; +function DnaCode.KlantNummer_Specified(Index: Integer): boolean; begin - Result := FDnaCodes_Specified; + Result := FKlantNummer_Specified; end; -destructor ZoekViaLadecodeResponse.Destroy; -var - I: Integer; +procedure DnaCode.SetLocatie(Index: Integer; const Astring: string); begin - for I := 0 to System.Length(FDnaCodes)-1 do - SysUtils.FreeAndNil(FDnaCodes[I]); - System.SetLength(FDnaCodes, 0); - inherited Destroy; + FLocatie := Astring; + FLocatie_Specified := True; end; -procedure ZoekViaLadecodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +function DnaCode.Locatie_Specified(Index: Integer): boolean; begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + Result := FLocatie_Specified; end; -function ZoekViaLadecodeResponse.DnaCodes_Specified(Index: Integer): boolean; +procedure DnaCode.SetLijn(Index: Integer; const Astring: string); begin - Result := FDnaCodes_Specified; + FLijn := Astring; + FLijn_Specified := True; end; -procedure Klantinstellingen.SetKlantId(Index: Integer; const Astring: string); +function DnaCode.Lijn_Specified(Index: Integer): boolean; begin - FKlantId := Astring; - FKlantId_Specified := True; + Result := FLijn_Specified; end; -function Klantinstellingen.KlantId_Specified(Index: Integer): boolean; +procedure DnaCode.SetInitialenScanner(Index: Integer; const Astring: string); begin - Result := FKlantId_Specified; + FInitialenScanner := Astring; + FInitialenScanner_Specified := True; end; -procedure Klantinstellingen.SetKlantnaam(Index: Integer; const Astring: string); +function DnaCode.InitialenScanner_Specified(Index: Integer): boolean; begin - FKlantnaam := Astring; - FKlantnaam_Specified := True; + Result := FInitialenScanner_Specified; end; -function Klantinstellingen.Klantnaam_Specified(Index: Integer): boolean; +procedure DnaCode.SetScanTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); begin - Result := FKlantnaam_Specified; + FScanTijdstip := ATXSDateTime; + FScanTijdstip_Specified := True; end; -procedure Klantinstellingen.SetIsExport(Index: Integer; const ABoolean: Boolean); +function DnaCode.ScanTijdstip_Specified(Index: Integer): boolean; begin - FIsExport := ABoolean; - FIsExport_Specified := True; + Result := FScanTijdstip_Specified; end; -function Klantinstellingen.IsExport_Specified(Index: Integer): boolean; +procedure DnaCode.SetLadeCode(Index: Integer; const Astring: string); begin - Result := FIsExport_Specified; + FLadeCode := Astring; + FLadeCode_Specified := True; end; -procedure Klantinstellingen.SetIsBlumXs(Index: Integer; const ABoolean: Boolean); +function DnaCode.LadeCode_Specified(Index: Integer): boolean; begin - FIsBlumXs := ABoolean; - FIsBlumXs_Specified := True; + Result := FLadeCode_Specified; end; -function Klantinstellingen.IsBlumXs_Specified(Index: Integer): boolean; +procedure DnaCode.SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); begin - Result := FIsBlumXs_Specified; + FStatus := ADnaCodeStatus; + FStatus_Specified := True; end; -procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); +function DnaCode.Status_Specified(Index: Integer): boolean; begin - FWegwerpPallet := ABoolean; - FWegwerpPallet_Specified := True; + Result := FStatus_Specified; end; -function Klantinstellingen.WegwerpPallet_Specified(Index: Integer): boolean; +procedure DnaCode.SetIsDirecteLevering(Index: Integer; const ABoolean: Boolean); begin - Result := FWegwerpPallet_Specified; + FIsDirecteLevering := ABoolean; + FIsDirecteLevering_Specified := True; end; -procedure Klantinstellingen.SetHalvePallet(Index: Integer; const ABoolean: Boolean); +function DnaCode.IsDirecteLevering_Specified(Index: Integer): boolean; begin - FHalvePallet := ABoolean; - FHalvePallet_Specified := True; + Result := FIsDirecteLevering_Specified; end; -function Klantinstellingen.HalvePallet_Specified(Index: Integer): boolean; +procedure DnaCode.SetParentDnaCode(Index: Integer; const Astring: string); begin - Result := FHalvePallet_Specified; + FParentDnaCode := Astring; + FParentDnaCode_Specified := True; end; -procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); +function DnaCode.ParentDnaCode_Specified(Index: Integer): boolean; begin - FMeerdereToeleveringen := ABoolean; - FMeerdereToeleveringen_Specified := True; + Result := FParentDnaCode_Specified; end; -function Klantinstellingen.MeerdereToeleveringen_Specified(Index: Integer): boolean; +procedure DnaCode.SetSequentieNummer(Index: Integer; const Astring: string); begin - Result := FMeerdereToeleveringen_Specified; + FSequentieNummer := Astring; + FSequentieNummer_Specified := True; end; +function DnaCode.SequentieNummer_Specified(Index: Integer): boolean; +begin + Result := FSequentieNummer_Specified; +end; + +procedure DnaCode.SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean); +begin + FIsWegwerpPallet := ABoolean; + FIsWegwerpPallet_Specified := True; +end; + +function DnaCode.IsWegwerpPallet_Specified(Index: Integer): boolean; +begin + Result := FIsWegwerpPallet_Specified; +end; + +procedure DnaCode.SetBatchId(Index: Integer; const Astring: string); +begin + FBatchId := Astring; + FBatchId_Specified := True; +end; + +function DnaCode.BatchId_Specified(Index: Integer): boolean; +begin + Result := FBatchId_Specified; +end; + +procedure DnaCode.SetAfdrukTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); +begin + FAfdrukTijdstip := ATXSDateTime; + FAfdrukTijdstip_Specified := True; +end; + +function DnaCode.AfdrukTijdstip_Specified(Index: Integer): boolean; +begin + Result := FAfdrukTijdstip_Specified; +end; + +destructor PalletBijwerkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekAlleVhossLadesBijDnaCodeResponse.Destroy; +var + I: Integer; +begin + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; +end; + +procedure ZoekAlleVhossLadesBijDnaCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +begin + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; +end; + +function ZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +begin + Result := FDnaCodes_Specified; +end; + +destructor 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; + +destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy; var I: Integer; @@ -1848,19 +2069,19 @@ Result := FGuiVhossVolgnummer_Specified; end; -destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; +destructor ZoekViaDnaCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ValideerPalletCodeRequest.Destroy; +destructor ZoekViaLadecodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ZoekAlleVhossLadesBijDnaCodeResponse.Destroy; +destructor ZoekViaLadecodeResponse.Destroy; var I: Integer; begin @@ -1870,17 +2091,23 @@ inherited Destroy; end; -procedure ZoekAlleVhossLadesBijDnaCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure ZoekViaLadecodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaLadecodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; +destructor ZoekViaLpnCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor ZoekViaDnaCodeResponse.Destroy; begin SysUtils.FreeAndNil(FDnaCodes); @@ -1904,19 +2131,7 @@ inherited Destroy; end; -destructor ZoekViaDnaCodeRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - -destructor ZoekViaBatchRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - -destructor ZoekViaBatchResponse.Destroy; +destructor ZoekViaKlantnummerResponse.Destroy; var I: Integer; begin @@ -1926,13 +2141,13 @@ inherited Destroy; end; -procedure ZoekViaBatchResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure ZoekViaKlantnummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekViaBatchResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaKlantnummerResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; @@ -1970,14 +2185,25 @@ Result := FAantalKaderdeurenGescand_Specified; end; -destructor RondAfKaderdeurDagRequest.Destroy; +destructor RondAfVhossBatchRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor PalletBijwerkenRequest.Destroy; +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 RondAfKaderdeurDagRequest.Destroy; +begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; @@ -2003,7 +2229,7 @@ Result := FToeleveringMetAantallen_Specified; end; -destructor ToeleveringBijwerkenRequest.Destroy; +destructor ValideerPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; @@ -2042,23 +2268,6 @@ 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; @@ -2080,6 +2289,12 @@ Result := FVhossKastenMetAantallen_Specified; end; +destructor ToeleveringBijwerkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + initialization { DnaCodeServiceSoap } InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); @@ -2091,6 +2306,9 @@ { DnaCodeServiceSoap.DnaCodeAfmelden } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'DnaCodeAfmelden', '', '[ReturnName="DnaCodeAfmeldenResult"]'); + { DnaCodeServiceSoap.GeefVolgendeLpnCode } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'GeefVolgendeLpnCode', '', + '[ReturnName="GeefVolgendeLpnCodeResult"]'); { DnaCodeServiceSoap.GeefVolgendeTbpCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'GeefVolgendeTbpCode', '', '[ReturnName="GeefVolgendeTbpCodeResult"]'); @@ -2133,79 +2351,93 @@ { DnaCodeServiceSoap.ZoekViaLadecode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaLadecode', '', '[ReturnName="ZoekViaLadecodeResult"]'); + { DnaCodeServiceSoap.ZoekViaLpnCode } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaLpnCode', '', + '[ReturnName="ZoekViaLpnCodeResult"]'); { DnaCodeServiceSoap.ZoekViaOrdernummer } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaOrdernummer', '', '[ReturnName="ZoekViaOrdernummerResult"]'); { DnaCodeServiceSoap.ZoekViaPalletCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaPalletCode', '', '[ReturnName="ZoekViaPalletCodeResult"]'); + { DnaCodeServiceSoap.ZoekViaStatus } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaStatus', '', + '[ReturnName="ZoekViaStatusResult"]'); { DnaCodeServiceSoap.ZoekViaToelevering } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '', '[ReturnName="ZoekViaToeleveringResult"]'); - RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); + RemClassRegistry.RegisterXSClass(ZoekViaStatusRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaStatusRequest'); + RemClassRegistry.RegisterXSClass(GeefVolgendeLpnCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeLpnCodeRequest'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); + RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); - RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); + RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); 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'); RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerRequest'); - RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenRequest'); - RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); - RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); + RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKlantinstellingenKlantinstellingen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfKlantinstellingenKlantinstellingen'); + RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); - RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); + RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen'); RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse'); - RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(BewerkKlantinstellingenResponse), 'Klantinstellingen', '[ArrayItemName="Klantinstellingen"]'); - RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); - RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaToeleveringResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(BewerkKlantinstellingenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'BewerkKlantinstellingenResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(BewerkKlantinstellingenResponse), 'Klantinstellingen', '[ArrayItemName="Klantinstellingen"]'); 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(ZoekViaLpnCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLpnCodeResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaLpnCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ZoekViaStatusResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaStatusResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaStatusResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(GeefVolgendeLpnCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeLpnCodeResponse'); + RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); 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(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(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); + RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); + RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleVhossLadesBijDnaCodeResponse), '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(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(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest'); + RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleDnaCodesDieOpVhossMoetenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaLadecodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaLadecodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaLadecodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ZoekViaLpnCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLpnCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); + RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaKlantnummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(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(RondAfVhossBatchRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfVhossBatchRequest'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]'); - 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(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); RemClassRegistry.RegisterXSClass(VhossKastenMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'VhossKastenMetAantallen'); - RemClassRegistry.RegisterXSClass(RondAfVhossBatchRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfVhossBatchRequest'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfVhossKastenMetAantallenVhossKastenMetAantallen'); RemClassRegistry.RegisterXSClass(RondAfVhossBatchResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfVhossBatchResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfVhossBatchResponse), 'VhossKastenMetAantallen', '[ArrayItemName="VhossKastenMetAantallen"]'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); end. \ No newline at end of file Index: PlanScan/UI/frameDnaCodes.pas =================================================================== diff -u -r662 -r666 --- PlanScan/UI/frameDnaCodes.pas (.../frameDnaCodes.pas) (revision 662) +++ PlanScan/UI/frameDnaCodes.pas (.../frameDnaCodes.pas) (revision 666) @@ -35,15 +35,17 @@ lblBatch: TLabel; lblLPN: TLabel; edtLPN: TEdit; - edtStatus: TEdit; lblStatus: TLabel; + combStatus: TComboBox; procedure ZoekViaDnaCode(); procedure ZoekViaPallet(); + procedure ZoekViaLpnCode(); procedure ZoekViaToelevering(); procedure ZoekViaKlantnummer(); procedure ZoekViaLadecode(); procedure ZoekViaOrdernummer(); procedure ZoekViaBatch(); + procedure ZoekViaStatus(); procedure btnZoekenClick(Sender: TObject); procedure btnProductetiketClick(Sender: TObject); procedure btnKlantEtiketClick(Sender: TObject); @@ -269,6 +271,26 @@ end; end; +procedure TfrmDnaCodes.ZoekViaLpnCode(); +var + fZoekViaLpnCodeResponse: ZoekViaLpnCodeResponse; + DnaCodes: ArrayOfDnaCodeDnaCode; +begin + fZoekViaLpnCodeResponse := TAgent.Create(fmMain.UiContext).ZoekViaLpnCode(edtLPN.Text); + try + if fZoekViaLpnCodeResponse.Header.Status = '200' then begin + DnaCodes := fZoekViaLpnCodeResponse.DnaCodes; + VulDnaCodeGridMetData(DnaCodes); + if StartsText('TBP',edtPallet.Text) then + btnProboxetiket.Visible := true; + end else begin + ShowMessage(fZoekViaLpnCodeResponse.Header.Omschrijving); + end; + finally + fZoekViaLpnCodeResponse.Free; + end; +end; + procedure TfrmDnaCodes.ZoekViaToelevering(); var fZoekViaToeleveringResponse: ZoekViaToeleveringResponse; @@ -288,15 +310,45 @@ end; end; +procedure TfrmDnaCodes.ZoekViaStatus(); +var + status: DnaCodeStatus; + fZoekViaStatusResponse: ZoekViaStatusResponse; + DnaCodes: ArrayOfDnaCodeDnaCode; +begin + case combStatus.ItemIndex of + 1: status := DnaCodeStatus.Nieuw; + 2: status := DnaCodeStatus.Gescand; + 3: status := DnaCodeStatus.Ongedaan; + 4: status := DnaCodeStatus.OnHold; + 5: status := DnaCodeStatus.InBuffer; + 6: status := DnaCodeStatus.InBatch; + else Exit; + end; + fZoekViaStatusResponse := TAgent.Create(fmMain.UiContext).ZoekViaStatus(status); + try + if fZoekViaStatusResponse.Header.Status = '200' then begin + DnaCodes := fZoekViaStatusResponse.DnaCodes; + VulDnaCodeGridMetData(DnaCodes); + end else begin + ShowMessage(fZoekViaStatusResponse.Header.Omschrijving); + end; + finally + fZoekViaStatusResponse.Free; + end; +end; + procedure TfrmDnaCodes.DnaCodesZoeken; begin if edtToelevering.Text <> '' then ZoekViaToelevering(); if edtPallet.Text <> '' then ZoekViaPallet(); + if edtLPN.Text <> '' then ZoekViaLpnCode(); if edtDNACode.Text <> '' then ZoekViaDNACode(); if edtKlantNummer.Text <> '' then ZoekViaKlantnummer(); if edtOrderNummer.Text <> '' then ZoekViaOrderNummer(); if edtLadeCode.Text <> '' then ZoekViaLadeCode(); if edtBatch.Text <> '' then ZoekViaBatch(); + if combStatus.ItemIndex <> 0 then ZoekViaStatus(); end; procedure TfrmDnaCodes.edtDnaCodeKeyUp(Sender: TObject; var Key: Word;