Index: PlanScan/UI/frameDnaCodes.dfm =================================================================== diff -u -r362 -r363 --- PlanScan/UI/frameDnaCodes.dfm (.../frameDnaCodes.dfm) (revision 362) +++ PlanScan/UI/frameDnaCodes.dfm (.../frameDnaCodes.dfm) (revision 363) @@ -60,6 +60,12 @@ FieldName = 'cdsDnaCodesInitialen' Title.Caption = 'Initialen' Visible = True + end + item + Expanded = False + FieldName = 'cdsDnaCodesLadecode' + Title.Caption = 'Ladecode' + Visible = True end> end object pnlActies: TPanel @@ -71,9 +77,6 @@ BevelEdges = [] BevelOuter = bvNone TabOrder = 1 - ExplicitLeft = 513 - ExplicitTop = 41 - ExplicitHeight = 439 object imgPrinter: TImage Left = 0 Top = 0 @@ -421,64 +424,7 @@ OnEnter = edtToeleveringEnter end end - object cdsDnaCodes: TClientDataSet - Active = True - Aggregates = <> - FieldDefs = < - item - Name = 'cdsDnaCodesDnaCode' - DataType = ftString - Size = 10 - end - item - Name = 'cdsDnaCodesPallet' - DataType = ftString - Size = 10 - end - item - Name = 'cdsDnaCodesToelevering' - DataType = ftString - Size = 10 - end - item - Name = 'cdsDnaCodesStatus' - DataType = ftString - Size = 10 - end - item - Name = 'cdsDnaCodesBatch' - DataType = ftString - Size = 6 - end - item - Name = 'cdsDnaCodesScantijdstip' - DataType = ftString - Size = 20 - end - item - Name = 'cdsDnaCodesInitialen' - DataType = ftString - Size = 3 - end> - IndexDefs = <> - Params = <> - StoreDefs = True - Left = 32 - Top = 240 - Data = { - 320100009619E0BD010000001800000007000000000003000000320112636473 - 446E61436F646573446E61436F64650100490000000100055749445448020002 - 000A0011636473446E61436F64657350616C6C65740100490000000100055749 - 445448020002000A0016636473446E61436F646573546F656C65766572696E67 - 0100490000000100055749445448020002000A0011636473446E61436F646573 - 5374617475730100490000000100055749445448020002000A0010636473446E - 61436F6465734261746368010049000000010005574944544802000200060017 - 636473446E61436F6465735363616E74696A6473746970010049000000010005 - 574944544802000200140014636473446E61436F646573496E697469616C656E - 01004900000001000557494454480200020003000000} - end object dsDnaCodes: TDataSource - DataSet = cdsDnaCodes Left = 32 Top = 192 end Index: PlanScan/WS/DnaCodeService.pas =================================================================== diff -u -r360 -r363 --- PlanScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 360) +++ PlanScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 363) @@ -5,7 +5,7 @@ // >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 -// (21/04/2020 13:47:34 - - $Rev: 45757 $) +// (28/04/2020 16:29:21 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -35,36 +35,42 @@ // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] - DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaLadecodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaOrdernummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaToeleveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DnaCodeAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCodeAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeefVolgendeTbpCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaToeleveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaLadecodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaOrdernummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaKlantnummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaKlantnummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -76,32 +82,189 @@ // ************************************************************************ // - // XML : DataTransferObject, global, + // XML : GeefVolgendeTbpCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DataTransferObject = class(TRemotable) + GeefVolgendeTbpCodeRequest = class(TRemotable) private + FHeader: RequestHeader; + public + destructor Destroy; override; published + property Header: RequestHeader read FHeader write FHeader; end; // ************************************************************************ // - // XML : GeefVolgendeTbpCodeRequest, global, + // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeefVolgendeTbpCodeRequest = class(TRemotable) + HernoemPalletRequest = class(TRemotable) private FHeader: RequestHeader; + FOudeCode: string; + FNieuweCode: string; + FEnkelDezeDnaCode: string; + FEnkelDezeDnaCode_Specified: boolean; + procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); + function EnkelDezeDnaCode_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; + property Header: RequestHeader read FHeader write FHeader; + property OudeCode: string read FOudeCode write FOudeCode; + property NieuweCode: string read FNieuweCode write FNieuweCode; + property EnkelDezeDnaCode: string Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified; end; // ************************************************************************ // + // XML : ZoekViaLadecodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaLadecodeRequest = class(TRemotable) + private + FHeader: RequestHeader; + FLadecode: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Ladecode: string read FLadecode write FLadecode; + end; + + + + // ************************************************************************ // + // XML : ZoekViaToeleveringRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaToeleveringRequest = class(TRemotable) + private + FHeader: RequestHeader; + FToelevering: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; + end; + + + + // ************************************************************************ // + // XML : ZoekViaPalletCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaPalletCodeRequest = class(TRemotable) + private + FHeader: RequestHeader; + FPalletCode: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property PalletCode: string read FPalletCode write FPalletCode; + end; + + + + // ************************************************************************ // + // XML : ZoekViaOrdernummerRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaOrdernummerRequest = class(TRemotable) + private + FHeader: RequestHeader; + FOrdernummer: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Ordernummer: string read FOrdernummer write FOrdernummer; + end; + + + + // ************************************************************************ // + // XML : DnaCodeAfmeldenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DnaCodeAfmeldenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FDnaCode: string; + FAantal: Int64; + FAantal_Specified: boolean; + FToelevering: string; + FToelevering_Specified: boolean; + FPalletCode: string; + FLocatie: string; + FLocatie_Specified: boolean; + 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; + 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; + 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 : ResponseHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ResponseHeader = class(TRemotable) + private + FStatus: String_; + FOmschrijving: String_; + published + property Status: String_ read FStatus write FStatus; + property Omschrijving: String_ read FOmschrijving write FOmschrijving; + end; + + + + // ************************************************************************ // + // XML : DataTransferObject, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DataTransferObject = class(TRemotable) + private + published + end; + + + + // ************************************************************************ // // XML : DnaCode, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -200,123 +363,80 @@ // ************************************************************************ // - // XML : ValideerPalletCodeRequest, global, + // XML : GeneriekeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + GeneriekeResponse = class(DataTransferObject) private - FHeader: RequestHeader; - FPalletCode: string; + FHeader: ResponseHeader; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + property Header: ResponseHeader read FHeader write FHeader; end; // ************************************************************************ // - // XML : ZoekViaToeleveringRequest, global, + // XML : DnaCodeAfmeldenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaToeleveringRequest = class(TRemotable) + DnaCodeAfmeldenResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FToelevering: 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 Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; + 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 : ZoekViaPalletCodeRequest, global, + // XML : GeefVolgendeTbpCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaPalletCodeRequest = class(TRemotable) + GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FPalletCode: string; - public - destructor Destroy; override; + FVolgendeTbpCode: string; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; end; // ************************************************************************ // - // XML : ZoekViaDnaCodeRequest, global, + // XML : HernoemPalletResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaDnaCodeRequest = class(TRemotable) + HernoemPalletResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FDnaCode: string; + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: string read FDnaCode write FDnaCode; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : DnaCodeAfmeldenRequest, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - DnaCodeAfmeldenRequest = class(TRemotable) - private - FHeader: RequestHeader; - FDnaCode: string; - FAantal: Int64; - FAantal_Specified: boolean; - FToelevering: string; - FToelevering_Specified: boolean; - FPalletCode: string; - FLocatie: string; - FLocatie_Specified: boolean; - 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; - 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; - end; - - - - // ************************************************************************ // - // XML : GeneriekeResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - GeneriekeResponse = class(DataTransferObject) - private - FHeader: ResponseHeader; - public - destructor Destroy; override; - published - property Header: ResponseHeader read FHeader write FHeader; - end; - - - - // ************************************************************************ // // XML : ZoekViaPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -363,329 +483,320 @@ // ************************************************************************ // - // XML : ValideerPalletCodeResponse, global, + // XML : ZoekViaLadecodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeResponse = class(GeneriekeResponse) + ZoekViaLadecodeResponse = class(GeneriekeResponse) private - published - end; - - - - // ************************************************************************ // - // XML : ZoekViaDnaCodeResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ZoekViaDnaCodeResponse = class(GeneriekeResponse) - private - FDnaCodes: DnaCode; + FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; - procedure SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property DnaCodes: DnaCode Index (IS_OPTN) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : DnaCodeAfmeldenResponse, global, + // XML : ZoekViaOrdernummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenResponse = class(GeneriekeResponse) + ZoekViaOrdernummerResponse = 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; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; - String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // - // XML : RequestHeader, global, + // XML : DirecteLeveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RequestHeader = class(TRemotable) + DirecteLeveringRequest = class(TRemotable) private - FInitialen: String_; - FComputerNaam: String_; + FHeader: RequestHeader; + FToelevering: string; + public + destructor Destroy; override; published - property Initialen: String_ read FInitialen write FInitialen; - property ComputerNaam: String_ read FComputerNaam write FComputerNaam; + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; end; // ************************************************************************ // - // XML : ResponseHeader, global, + // XML : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ResponseHeader = class(TRemotable) + ToeleveringBijwerkenResponse = class(GeneriekeResponse) private - FStatus: String_; - FOmschrijving: String_; published - property Status: String_ read FStatus write FStatus; - property Omschrijving: String_ read FOmschrijving write FOmschrijving; end; // ************************************************************************ // - // XML : GeefVolgendeTbpCodeResponse, global, + // XML : ValideerPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) + ValideerPalletCodeRequest = class(TRemotable) private - FVolgendeTbpCode: string; + FHeader: RequestHeader; + FPalletCode: string; + public + destructor Destroy; override; published - property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; + property Header: RequestHeader read FHeader write FHeader; + property PalletCode: string read FPalletCode write FPalletCode; end; + ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : RondAfKaderdeurDagRequest, global, + // XML : ToeleveringBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfKaderdeurDagRequest = class(TRemotable) + ToeleveringBijwerkenRequest = class(TRemotable) private FHeader: RequestHeader; - FDnaCode: String_; + FToelevering: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: String_ read FDnaCode write FDnaCode; + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; + property Status: DnaCodeStatus read FStatus write FStatus; + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenResponse, global, + // XML : ValideerPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) + ValideerPalletCodeResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // - // XML : ToeleveringMetAantallen, global, + // XML : ZoekViaKlantnummerRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringMetAantallen = class(DataTransferObject) + ZoekViaKlantnummerRequest = class(TRemotable) private - FToeleveringID: string; - FToeleveringID_Specified: boolean; - FAantalKaderdeuren: string; - FAantalKaderdeuren_Specified: boolean; - FAantalKaderdeurenGescand: string; - FAantalKaderdeurenGescand_Specified: boolean; - procedure SetToeleveringID(Index: Integer; const Astring: string); - function ToeleveringID_Specified(Index: Integer): boolean; - procedure SetAantalKaderdeuren(Index: Integer; const Astring: string); - function AantalKaderdeuren_Specified(Index: Integer): boolean; - procedure SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); - function AantalKaderdeurenGescand_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FKlantnummer: string; + public + destructor Destroy; override; published - property ToeleveringID: string Index (IS_OPTN) read FToeleveringID write SetToeleveringID stored ToeleveringID_Specified; - property AantalKaderdeuren: string Index (IS_OPTN) read FAantalKaderdeuren write SetAantalKaderdeuren stored AantalKaderdeuren_Specified; - property AantalKaderdeurenGescand: string Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified; + property Header: RequestHeader read FHeader write FHeader; + property Klantnummer: string read FKlantnummer write FKlantnummer; end; // ************************************************************************ // - // XML : ToeleveringBijwerkenResponse, global, + // XML : ZoekViaKlantnummerResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenResponse = class(GeneriekeResponse) + ZoekViaKlantnummerResponse = class(GeneriekeResponse) private + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; + public + destructor Destroy; override; published + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : ToeleveringBijwerkenRequest, global, + // XML : ZoekViaDnaCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenRequest = class(TRemotable) + ZoekViaDnaCodeRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FDnaCode: 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 DnaCode: string read FDnaCode write FDnaCode; end; - ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : RondAfKaderdeurDagResponse, global, + // XML : ZoekViaDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfKaderdeurDagResponse = class(GeneriekeResponse) + ZoekViaDnaCodeResponse = class(GeneriekeResponse) private - FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen; - FToeleveringMetAantallen_Specified: boolean; - procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); - function ToeleveringMetAantallen_Specified(Index: Integer): boolean; + FDnaCodes: DnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); + function DnaCodes_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; + property DnaCodes: DnaCode Index (IS_OPTN) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; - ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : DirecteLeveringRequest, global, + // XML : PalletBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringRequest = class(TRemotable) + PalletBijwerkenResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FToelevering: string; - public - destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; end; // ************************************************************************ // - // XML : HernoemPalletResponse, global, + // XML : DirecteLeveringResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - HernoemPalletResponse = class(GeneriekeResponse) + DirecteLeveringResponse = 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; + FIsDirecteLevering: Boolean; published - property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; // ************************************************************************ // - // XML : HernoemPalletRequest, global, + // XML : PalletBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - HernoemPalletRequest = class(TRemotable) + PalletBijwerkenRequest = class(TRemotable) private FHeader: RequestHeader; - FOudeCode: string; - FNieuweCode: string; - FEnkelDezeDnaCode: string; - FEnkelDezeDnaCode_Specified: boolean; - procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); - function EnkelDezeDnaCode_Specified(Index: Integer): boolean; + FPallet: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property OudeCode: string read FOudeCode write FOudeCode; - property NieuweCode: string read FNieuweCode write FNieuweCode; - property EnkelDezeDnaCode: string Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified; + property Header: RequestHeader read FHeader write FHeader; + property Pallet: string read FPallet write FPallet; + property Status: DnaCodeStatus read FStatus write FStatus; + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; + ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : DirecteLeveringResponse, global, + // XML : ProboxEtiketAfdrukkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringResponse = class(GeneriekeResponse) + ProboxEtiketAfdrukkenRequest = class(TRemotable) private - FIsDirecteLevering: Boolean; + FHeader: RequestHeader; + FDnaCodes: ArrayOfStringString; + public + destructor Destroy; override; published - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + property Header: RequestHeader read FHeader write FHeader; + property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; end; // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenRequest, global, + // XML : RondAfKaderdeurDagResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenRequest = class(TRemotable) + RondAfKaderdeurDagResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FDnaCodes: ArrayOfStringString; + FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen; + FToeleveringMetAantallen_Specified: boolean; + procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); + function ToeleveringMetAantallen_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; end; // ************************************************************************ // - // XML : PalletBijwerkenResponse, global, + // XML : ToeleveringMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenResponse = class(GeneriekeResponse) + ToeleveringMetAantallen = class(DataTransferObject) private + FToeleveringID: string; + FToeleveringID_Specified: boolean; + FAantalKaderdeuren: string; + FAantalKaderdeuren_Specified: boolean; + FAantalKaderdeurenGescand: string; + FAantalKaderdeurenGescand_Specified: boolean; + procedure SetToeleveringID(Index: Integer; const Astring: string); + function ToeleveringID_Specified(Index: Integer): boolean; + procedure SetAantalKaderdeuren(Index: Integer; const Astring: string); + function AantalKaderdeuren_Specified(Index: Integer): boolean; + procedure SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); + function AantalKaderdeurenGescand_Specified(Index: Integer): boolean; published + property ToeleveringID: string Index (IS_OPTN) read FToeleveringID write SetToeleveringID stored ToeleveringID_Specified; + property AantalKaderdeuren: string Index (IS_OPTN) read FAantalKaderdeuren write SetAantalKaderdeuren stored AantalKaderdeuren_Specified; + property AantalKaderdeurenGescand: string Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified; end; // ************************************************************************ // - // XML : PalletBijwerkenRequest, global, + // XML : ProboxEtiketAfdrukkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenRequest = class(TRemotable) + ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) private + published + end; + + + + // ************************************************************************ // + // XML : RondAfKaderdeurDagRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + RondAfKaderdeurDagRequest = class(TRemotable) + private FHeader: RequestHeader; - FPallet: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FDnaCode: String_; 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; + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: String_ read FDnaCode write FDnaCode; end; @@ -712,6 +823,9 @@ function ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall; function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; function ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall; + function ZoekViaKlantnummer(const ZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest): ZoekViaKlantnummerResponse; stdcall; + function ZoekViaLadecode(const ZoekViaLadecodeRequest: ZoekViaLadecodeRequest): ZoekViaLadecodeResponse; stdcall; + function ZoekViaOrdernummer(const ZoekViaOrdernummerRequest: ZoekViaOrdernummerRequest): ZoekViaOrdernummerResponse; stdcall; function ZoekViaPalletCode(const ZoakViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall; function ZoekViaToelevering(const ZoekViaToeleveringRequest: ZoekViaToeleveringRequest): ZoekViaToeleveringResponse; stdcall; end; @@ -765,6 +879,86 @@ inherited Destroy; end; +destructor HernoemPalletRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string); +begin + FEnkelDezeDnaCode := Astring; + FEnkelDezeDnaCode_Specified := True; +end; + +function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean; +begin + Result := FEnkelDezeDnaCode_Specified; +end; + +destructor ZoekViaLadecodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekViaToeleveringRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekViaPalletCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekViaOrdernummerRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor DnaCodeAfmeldenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64); +begin + FAantal := AInt64; + FAantal_Specified := True; +end; + +function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean; +begin + Result := FAantal_Specified; +end; + +procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string); +begin + FToelevering := Astring; + FToelevering_Specified := True; +end; + +function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean; +begin + Result := FToelevering_Specified; +end; + +procedure DnaCodeAfmeldenRequest.SetLocatie(Index: Integer; const Astring: string); +begin + FLocatie := Astring; + FLocatie_Specified := True; +end; + +function DnaCodeAfmeldenRequest.Locatie_Specified(Index: Integer): boolean; +begin + Result := FLocatie_Specified; +end; + destructor DnaCode.Destroy; begin SysUtils.FreeAndNil(FScanTijdstip); @@ -958,75 +1152,76 @@ Result := FBatchId_Specified; end; -destructor ValideerPalletCodeRequest.Destroy; +destructor GeneriekeResponse.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ZoekViaToeleveringRequest.Destroy; +destructor DnaCodeAfmeldenResponse.Destroy; +var + I: Integer; begin - SysUtils.FreeAndNil(FHeader); + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); inherited Destroy; end; -destructor ZoekViaPalletCodeRequest.Destroy; +procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FAantalInToelevering := AInt64; + FAantalInToelevering_Specified := True; end; -destructor ZoekViaDnaCodeRequest.Destroy; +function DnaCodeAfmeldenResponse.AantalInToelevering_Specified(Index: Integer): boolean; begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + Result := FAantalInToelevering_Specified; end; -destructor DnaCodeAfmeldenRequest.Destroy; +procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FAantalReedsGescand := AInt64; + FAantalReedsGescand_Specified := True; end; -procedure DnaCodeAfmeldenRequest.SetAantal(Index: Integer; const AInt64: Int64); +function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; begin - FAantal := AInt64; - FAantal_Specified := True; + Result := FAantalReedsGescand_Specified; end; -function DnaCodeAfmeldenRequest.Aantal_Specified(Index: Integer): boolean; +procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - Result := FAantal_Specified; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -procedure DnaCodeAfmeldenRequest.SetToelevering(Index: Integer; const Astring: string); +function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; begin - FToelevering := Astring; - FToelevering_Specified := True; + Result := FDnaCodes_Specified; end; -function DnaCodeAfmeldenRequest.Toelevering_Specified(Index: Integer): boolean; +destructor HernoemPalletResponse.Destroy; +var + I: Integer; begin - Result := FToelevering_Specified; + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; end; -procedure DnaCodeAfmeldenRequest.SetLocatie(Index: Integer; const Astring: string); +procedure HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FLocatie := Astring; - FLocatie_Specified := True; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -function DnaCodeAfmeldenRequest.Locatie_Specified(Index: Integer): boolean; +function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FLocatie_Specified; + Result := FDnaCodes_Specified; end; -destructor GeneriekeResponse.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - destructor ZoekViaPalletCodeResponse.Destroy; var I: Integer; @@ -1091,24 +1286,28 @@ Result := FDnaCodes_Specified; end; -destructor ZoekViaDnaCodeResponse.Destroy; +destructor ZoekViaLadecodeResponse.Destroy; +var + I: Integer; begin - SysUtils.FreeAndNil(FDnaCodes); + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); inherited Destroy; end; -procedure ZoekViaDnaCodeResponse.SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); +procedure ZoekViaLadecodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FDnaCodes := ADnaCode; + FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekViaDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaLadecodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; -destructor DnaCodeAfmeldenResponse.Destroy; +destructor ZoekViaOrdernummerResponse.Destroy; var I: Integer; begin @@ -1118,84 +1317,97 @@ inherited Destroy; end; -procedure DnaCodeAfmeldenResponse.SetAantalInToelevering(Index: Integer; const AInt64: Int64); +procedure ZoekViaOrdernummerResponse.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 ZoekViaOrdernummerResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FAantalInToelevering_Specified; + Result := FDnaCodes_Specified; end; -procedure DnaCodeAfmeldenResponse.SetAantalReedsGescand(Index: Integer; const AInt64: Int64); +destructor DirecteLeveringRequest.Destroy; begin - FAantalReedsGescand := AInt64; - FAantalReedsGescand_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function DnaCodeAfmeldenResponse.AantalReedsGescand_Specified(Index: Integer): boolean; +destructor ValideerPalletCodeRequest.Destroy; begin - Result := FAantalReedsGescand_Specified; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -procedure DnaCodeAfmeldenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +destructor ToeleveringBijwerkenRequest.Destroy; begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function DnaCodeAfmeldenResponse.DnaCodes_Specified(Index: Integer): boolean; +destructor ZoekViaKlantnummerRequest.Destroy; begin - Result := FDnaCodes_Specified; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -destructor RondAfKaderdeurDagRequest.Destroy; +destructor ZoekViaKlantnummerResponse.Destroy; +var + I: Integer; begin - SysUtils.FreeAndNil(FHeader); + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); inherited Destroy; end; -procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string); +procedure ZoekViaKlantnummerResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin - FToeleveringID := Astring; - FToeleveringID_Specified := True; + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; end; -function ToeleveringMetAantallen.ToeleveringID_Specified(Index: Integer): boolean; +function ZoekViaKlantnummerResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FToeleveringID_Specified; + Result := FDnaCodes_Specified; end; -procedure ToeleveringMetAantallen.SetAantalKaderdeuren(Index: Integer; const Astring: string); +destructor ZoekViaDnaCodeRequest.Destroy; begin - FAantalKaderdeuren := Astring; - FAantalKaderdeuren_Specified := True; + SysUtils.FreeAndNil(FHeader); + inherited Destroy; end; -function ToeleveringMetAantallen.AantalKaderdeuren_Specified(Index: Integer): boolean; +destructor ZoekViaDnaCodeResponse.Destroy; begin - Result := FAantalKaderdeuren_Specified; + SysUtils.FreeAndNil(FDnaCodes); + inherited Destroy; end; -procedure ToeleveringMetAantallen.SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); +procedure ZoekViaDnaCodeResponse.SetDnaCodes(Index: Integer; const ADnaCode: DnaCode); begin - FAantalKaderdeurenGescand := Astring; - FAantalKaderdeurenGescand_Specified := True; + FDnaCodes := ADnaCode; + FDnaCodes_Specified := True; end; -function ToeleveringMetAantallen.AantalKaderdeurenGescand_Specified(Index: Integer): boolean; +function ZoekViaDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin - Result := FAantalKaderdeurenGescand_Specified; + Result := FDnaCodes_Specified; end; -destructor ToeleveringBijwerkenRequest.Destroy; +destructor PalletBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; +destructor ProboxEtiketAfdrukkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor RondAfKaderdeurDagResponse.Destroy; var I: Integer; @@ -1217,62 +1429,45 @@ Result := FToeleveringMetAantallen_Specified; end; -destructor DirecteLeveringRequest.Destroy; +procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FToeleveringID := Astring; + FToeleveringID_Specified := True; end; -destructor HernoemPalletResponse.Destroy; -var - I: Integer; +function ToeleveringMetAantallen.ToeleveringID_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 := FToeleveringID_Specified; end; -procedure HernoemPalletResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure ToeleveringMetAantallen.SetAantalKaderdeuren(Index: Integer; const Astring: string); begin - FDnaCodes := AArrayOfDnaCodeDnaCode; - FDnaCodes_Specified := True; + FAantalKaderdeuren := Astring; + FAantalKaderdeuren_Specified := True; end; -function HernoemPalletResponse.DnaCodes_Specified(Index: Integer): boolean; +function ToeleveringMetAantallen.AantalKaderdeuren_Specified(Index: Integer): boolean; begin - Result := FDnaCodes_Specified; + Result := FAantalKaderdeuren_Specified; end; -destructor HernoemPalletRequest.Destroy; +procedure ToeleveringMetAantallen.SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FAantalKaderdeurenGescand := Astring; + FAantalKaderdeurenGescand_Specified := True; end; -procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string); +function ToeleveringMetAantallen.AantalKaderdeurenGescand_Specified(Index: Integer): boolean; begin - FEnkelDezeDnaCode := Astring; - FEnkelDezeDnaCode_Specified := True; + Result := FAantalKaderdeurenGescand_Specified; end; -function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean; +destructor RondAfKaderdeurDagRequest.Destroy; begin - Result := FEnkelDezeDnaCode_Specified; -end; - -destructor ProboxEtiketAfdrukkenRequest.Destroy; -begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor PalletBijwerkenRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - initialization { DnaCodeServiceSoap } InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); @@ -1308,52 +1503,70 @@ { DnaCodeServiceSoap.ZoekViaDnaCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaDnaCode', '', '[ReturnName="ZoekViaDnaCodeResult"]'); + { DnaCodeServiceSoap.ZoekViaKlantnummer } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaKlantnummer', '', + '[ReturnName="ZoekViaKlantnummerResult"]'); + { DnaCodeServiceSoap.ZoekViaLadecode } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaLadecode', '', + '[ReturnName="ZoekViaLadecodeResult"]'); + { DnaCodeServiceSoap.ZoekViaOrdernummer } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaOrdernummer', '', + '[ReturnName="ZoekViaOrdernummerResult"]'); { DnaCodeServiceSoap.ZoekViaPalletCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaPalletCode', '', '[ReturnName="ZoekViaPalletCodeResult"]'); { DnaCodeServiceSoap.ZoekViaToelevering } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '', '[ReturnName="ZoekViaToeleveringResult"]'); + RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); - RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); - RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); - RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaLadecodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeRequest'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest'); RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerRequest'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); + RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); + RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); + RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); + RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); + RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse'); + RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + 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(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(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); - RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); - RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); - RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); - RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); - RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); - RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); - RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); + RemClassRegistry.RegisterXSClass(ZoekViaLadecodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaLadecodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaOrdernummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen'); - RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]'); - RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString'); - RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); - RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); + 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(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString'); RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenRequest'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]'); + RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); end. \ No newline at end of file Index: PlanScan/PlanScan.dproj.local =================================================================== diff -u -r362 -r363 --- PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 362) +++ PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 363) @@ -2,44 +2,47 @@ 2020/02/17 10:05:16.000.600,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas - 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm=E:\svn\Delphi\PlanScan\Main.dfm - 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas=E:\svn\Delphi\PlanScan\Main.pas - 2020/02/17 10:06:12.000.996,C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj=E:\svn\Delphi\PlanScan\PlanScan.dproj + 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas + 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm + 2020/02/17 10:06:12.000.996,E:\svn\Delphi\PlanScan\PlanScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj 2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas - 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas + 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history 2020/02/17 11:12:28.000.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas 2020/02/17 11:13:01.000.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas= 2020/02/17 11:14:30.000.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas 2020/02/17 11:16:33.000.742,=E:\svn\Delphi\PlanScan\UI\Images.pas 2020/02/18 08:16:12.000.093,=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 08:21:57.000.780,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/02/18 08:32:28.000.107,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= 2020/02/18 08:32:46.000.480,=E:\svn\Delphi\PlanScan\WS.pas - 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/02/18 11:21:59.000.209,=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 11:22:27.000.481,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/03/02 09:30:33.000.825,=E:\svn\Delphi\PlanScan\WS.pas 2020/03/02 09:30:46.000.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas= - 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas + 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/03/04 11:43:31.000.229,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm - 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\LoginScherm.pas + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 08:48:05.000.552,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas - 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm - 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas - 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm + 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm + 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas 2020/04/20 09:21:17.000.241,=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 10:46:18.000.858,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\frameGebruikers.pas - 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm + 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.pas=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm 2020/04/21 13:47:35.000.169,=E:\svn\Delphi\PlanScan\WS.pas 2020/04/21 13:47:43.000.211,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/04/21 13:47:54.000.335,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/04/21 13:47:54.000.335,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/04/28 16:29:21.000.325,=E:\svn\Delphi\PlanScan\WS.pas + 2020/04/28 16:29:32.000.030,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= + 2020/04/28 16:29:49.000.701,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas Index: PlanScan/Main.pas =================================================================== diff -u -r362 -r363 --- PlanScan/Main.pas (.../Main.pas) (revision 362) +++ PlanScan/Main.pas (.../Main.pas) (revision 363) @@ -11,7 +11,6 @@ type TfmMain = class(TForm) - frmDnaCodes: TfrmDnaCodes; pnlLinks: TPanel; pnlNaam: TPanel; pnlKnoppen: TPanel; @@ -25,6 +24,7 @@ lblWegwerppallet: TLabel; lblDnaCodes: TLabel; lblGebruikers: TLabel; + frmDnaCodes: TfrmDnaCodes; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); Index: PlanScan/UI/frameDnaCodes.pas =================================================================== diff -u -r362 -r363 --- PlanScan/UI/frameDnaCodes.pas (.../frameDnaCodes.pas) (revision 362) +++ PlanScan/UI/frameDnaCodes.pas (.../frameDnaCodes.pas) (revision 363) @@ -18,7 +18,6 @@ pnlZoekKnoppen: TPanel; btnZoeken: TButton; edtDnaCode: TEdit; - cdsDnaCodes: TClientDataSet; dsDnaCodes: TDataSource; imgPrinter: TImage; lblDnaCode: TLabel; @@ -35,19 +34,24 @@ procedure ZoekViaDnaCode(); procedure ZoekViaPallet(); procedure ZoekViaToelevering(); + procedure ZoekViaKlantnummer(); + procedure ZoekViaLadecode(); + procedure ZoekViaOrdernummer(); procedure btnZoekenClick(Sender: TObject); procedure btnMaatwerketiketClick(Sender: TObject); procedure btnKlantEtiketClick(Sender: TObject); procedure btnProboxetiketClick(Sender: TObject); procedure edtToeleveringEnter(Sender: TObject); private + fcdsDnaCodes: TClientDataset; procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode); function BepaalGeselecteerdeDnaCodes: TStringList; function GeefAlleDnaCodesUitGrid: TStringList; procedure ZoekveldenLeegmaken(); procedure DnaCodesZoeken(); public - { Public declarations } + constructor Create(AOwner: TComponent) ; override; + property cdsDnaCodes: TClientDataset read fcdsDnaCodes write fcdsDnaCodes; end; implementation @@ -57,6 +61,27 @@ {$R *.dfm} +constructor TfrmDnaCodes.Create(AOwner: TComponent); +begin + inherited; + + cdsDnaCodes := TClientDataSet.Create(self); + with cdsDnaCodes.FieldDefs do + begin + Clear; + Add('DnaCode',ftString, 10); + Add('Pallet',ftString, 10); + Add('Toelevering',ftString, 10); + Add('Status',ftString, 10); + Add('Batch',ftString, 10); + Add('Scantijdstip',ftString, 20); + Add('Initialen',ftString, 3); + Add('LadeCode',ftString, 10); + end; + cdsDnaCodes.CreateDataSet; + dsDnaCodes.DataSet := cdsDnaCodes; +end; + procedure TfrmDnaCodes.btnMaatwerketiketClick(Sender: TObject); var DnaCodesStringList: TStringList; @@ -103,6 +128,60 @@ end; end; +procedure TfrmDnaCodes.ZoekViaKlantnummer; +var + fZoekViaKlantnummerResponse: ZoekViaKlantnummerResponse; + DnaCodes: ArrayOfDnaCodeDnaCode; +begin + fZoekViaKlantnummerResponse := TAgent.Create(fmMain.UiContext).ZoekViaKlantnummer(edtKlantnummer.Text); + try + if fZoekViaKlantnummerResponse.Header.Status = '200' then begin + DnaCodes := fZoekViaKlantnummerResponse.DnaCodes; + VulDnaCodeGridMetData(DnaCodes); + end else begin + ShowMessage(fZoekViaKlantnummerResponse.Header.Omschrijving); + end; + finally + fZoekViaKlantnummerResponse.Free; + end; +end; + +procedure TfrmDnaCodes.ZoekViaLadecode; +var + fZoekViaLadecodeResponse: ZoekViaLadecodeResponse; + DnaCodes: ArrayOfDnaCodeDnaCode; +begin + fZoekViaLadecodeResponse := TAgent.Create(fmMain.UiContext).ZoekViaLadecode(edtLadecode.Text); + try + if fZoekViaLadecodeResponse.Header.Status = '200' then begin + DnaCodes := fZoekViaLadecodeResponse.DnaCodes; + VulDnaCodeGridMetData(DnaCodes); + end else begin + ShowMessage(fZoekViaLadecodeResponse.Header.Omschrijving); + end; + finally + fZoekViaLadecodeResponse.Free; + end; +end; + +procedure TfrmDnaCodes.ZoekViaOrdernummer; +var + fZoekViaOrdernummerResponse: ZoekViaOrdernummerResponse; + DnaCodes: ArrayOfDnaCodeDnaCode; +begin + fZoekViaOrdernummerResponse := TAgent.Create(fmMain.UiContext).ZoekViaOrdernummer(edtOrdernummer.Text); + try + if fZoekViaOrdernummerResponse.Header.Status = '200' then begin + DnaCodes := fZoekViaOrdernummerResponse.DnaCodes; + VulDnaCodeGridMetData(DnaCodes); + end else begin + ShowMessage(fZoekViaOrdernummerResponse.Header.Omschrijving); + end; + finally + fZoekViaOrdernummerResponse.Free; + end; +end; + procedure TfrmDnaCodes.btnKlantEtiketClick(Sender: TObject); var DnaCodesStringList: TStringList; @@ -152,20 +231,12 @@ procedure TfrmDnaCodes.DnaCodesZoeken; begin - { - edtToelevering.Text := ''; - edtPallet.Text := ''; - edtDNACode.Text := ''; - edtKlantNummer.Text := ''; - edtOrderNummer.Text := ''; - edtLadeCode.Text := '';} if edtToelevering.Text <> '' then ZoekViaToelevering(); if edtPallet.Text <> '' then ZoekViaPallet(); if edtDNACode.Text <> '' then ZoekViaDNACode(); - //if edtKlantNummer.Text <> '' then ZoekViaKlantnummer(); - //if edtOrderNummer.Text <> '' then ZoekViaOrderNummer(); - //if edtLadeCode.Text <> '' then ZoekViaLadeCode(); - + if edtKlantNummer.Text <> '' then ZoekViaKlantnummer(); + if edtOrderNummer.Text <> '' then ZoekViaOrderNummer(); + if edtLadeCode.Text <> '' then ZoekViaLadeCode(); end; procedure TfrmDnaCodes.edtToeleveringEnter(Sender: TObject); @@ -199,7 +270,8 @@ GetEnumName(typeInfo(DnaCodeStatus),Ord(DnaCodes[ii].Status)), DnaCodes[ii].BatchId, ScanTijdstipAsString, - DnaCodes[ii].InitialenScanner]); + DnaCodes[ii].InitialenScanner, + DnaCodes[ii].LadeCode]); ii := ii + 1; end; end; Index: PlanScan/Main.dfm =================================================================== diff -u -r362 -r363 --- PlanScan/Main.dfm (.../Main.dfm) (revision 362) +++ PlanScan/Main.dfm (.../Main.dfm) (revision 363) @@ -93,7 +93,7 @@ Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - Transparent = False + Transparent = True Layout = tlCenter OnClick = lblWegwerppalletClick ExplicitTop = 40 @@ -113,7 +113,7 @@ Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - Transparent = False + Transparent = True Layout = tlCenter OnClick = lblDnaCodesClick ExplicitWidth = 165 @@ -132,7 +132,7 @@ Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - Transparent = False + Transparent = True Layout = tlCenter OnClick = lblGebruikersClick ExplicitWidth = 165 @@ -147,7 +147,6 @@ Align = alClient BevelOuter = bvNone TabOrder = 1 - ExplicitWidth = 513 object pcFrames: TPageControl Left = 0 Top = 0 @@ -156,64 +155,83 @@ ActivePage = tsDnaCodes Align = alClient TabOrder = 0 - ExplicitWidth = 513 object tsDnaCodes: TTabSheet Caption = 'DnaCodes' TabVisible = False - ExplicitWidth = 505 inline frmDnaCodes: TfrmDnaCodes Left = 0 Top = 0 Width = 918 Height = 398 Align = alClient TabOrder = 0 - ExplicitWidth = 505 - ExplicitHeight = 398 + ExplicitTop = -82 inherited dbgDnaCodes: TDBGrid Width = 791 Height = 325 + Columns = < + item + Expanded = False + FieldName = 'DnaCode' + Visible = True + end + item + Expanded = False + FieldName = 'Pallet' + Visible = True + end + item + Expanded = False + FieldName = 'Toelevering' + Visible = True + end + item + Expanded = False + FieldName = 'Status' + Visible = True + end + item + Expanded = False + FieldName = 'Batch' + Visible = True + end + item + Expanded = False + FieldName = 'Scantijdstip' + Visible = True + end + item + Expanded = False + FieldName = 'Initialen' + Visible = True + end + item + Expanded = False + FieldName = 'Ladecode' + Visible = True + end> end inherited pnlActies: TPanel Left = 791 Height = 325 - ExplicitLeft = 378 - ExplicitHeight = 357 - inherited btnMaatwerketiket: TButton - Top = 105 - ExplicitTop = 105 - end - inherited btnKlantEtiket: TButton - Top = 136 - ExplicitTop = 136 - end - inherited btnProboxetiket: TButton - Top = 167 - ExplicitTop = 167 - end end inherited pnlZoekKnoppen: TPanel Width = 918 - ExplicitWidth = 505 - inherited btnZoeken: TButton - OnClick = frmDnaCodesbtnZoekenClick - end end end end object tsGebruikers: TTabSheet Caption = 'Gebruikers' ImageIndex = 1 TabVisible = False - ExplicitWidth = 505 inline frmGebruikers: TfrmGebruikers Left = 0 Top = 0 Width = 918 Height = 398 Align = alClient TabOrder = 0 - ExplicitWidth = 505 + ExplicitWidth = 918 ExplicitHeight = 398 inherited dbgGebruikers: TDBGrid Width = 791 @@ -222,7 +240,7 @@ inherited Panel1: TPanel Left = 791 Height = 398 - ExplicitLeft = 378 + ExplicitLeft = 791 ExplicitHeight = 398 end end Index: PlanScan/WS/Agent.pas =================================================================== diff -u -r298 -r363 --- PlanScan/WS/Agent.pas (.../Agent.pas) (revision 298) +++ PlanScan/WS/Agent.pas (.../Agent.pas) (revision 363) @@ -31,6 +31,9 @@ function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse; function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse; function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse; + function ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse; + function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse; + function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse; end; implementation @@ -286,6 +289,63 @@ end; end; +function TAgent.ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse; +var + Header: DnaCodeService.RequestHeader; + fZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest; +begin + fZoekViaKlantnummerRequest := ZoekViaKlantnummerRequest.Create; + Header := DnaCodeService.RequestHeader.Create; + try + Header.Initialen := fUiContext.Initialen; + Header.ComputerNaam := FullName(); + fZoekViaKlantnummerRequest.Header := Header; + fZoekViaKlantnummerRequest.Klantnummer := Klantnummer; + + result := fDnaCodeServiceSoap.ZoekViaKlantnummer(fZoekViaKlantnummerRequest); + finally + fZoekViaKlantnummerRequest.Free; + end; +end; + +function TAgent.ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse; +var + Header: DnaCodeService.RequestHeader; + fZoekViaLadecodeRequest: ZoekViaLadecodeRequest; +begin + fZoekViaLadecodeRequest := ZoekViaLadecodeRequest.Create; + Header := DnaCodeService.RequestHeader.Create; + try + Header.Initialen := fUiContext.Initialen; + Header.ComputerNaam := FullName(); + fZoekViaLadecodeRequest.Header := Header; + fZoekViaLadecodeRequest.Ladecode := Ladecode; + + result := fDnaCodeServiceSoap.ZoekViaLadecode(fZoekViaLadecodeRequest); + finally + fZoekViaLadecodeRequest.Free; + end; +end; + +function TAgent.ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse; +var + Header: DnaCodeService.RequestHeader; + fZoekViaOrdernummerRequest: ZoekViaOrdernummerRequest; +begin + fZoekViaOrdernummerRequest := ZoekViaOrdernummerRequest.Create; + Header := DnaCodeService.RequestHeader.Create; + try + Header.Initialen := fUiContext.Initialen; + Header.ComputerNaam := FullName(); + fZoekViaOrdernummerRequest.Header := Header; + fZoekViaOrdernummerRequest.Ordernummer := Ordernummer; + + result := fDnaCodeServiceSoap.ZoekViaOrdernummer(fZoekViaOrdernummerRequest); + finally + fZoekViaOrdernummerRequest.Free; + end; +end; + function TAgent.ZoekViaPalletCode( PalletCode: string): ZoekViaPalletCodeResponse; var