Index: ProScan/WS/DnaCodeService.pas =================================================================== diff -u -r512 -r692 --- ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 512) +++ ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 692) @@ -1,11 +1,11 @@ // ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: -// WSDL : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1 -// >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0 +// WSDL : http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls?WSDL=1 +// >Import : http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 -// (18/11/2020 8:49:28 - - $Rev: 45757 $) +// (13/11/2024 14:57:43 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -35,8 +35,8 @@ // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] - GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } @@ -89,21 +89,6 @@ {$SCOPEDENUMS OFF} ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - - - // ************************************************************************ // - // XML : GeefVolgendeTbpCodeRequest, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - GeefVolgendeTbpCodeRequest = class(TRemotable) - private - FHeader: RequestHeader; - public - destructor Destroy; override; - published - property Header: RequestHeader read FHeader write FHeader; - end; - String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -147,6 +132,31 @@ // ************************************************************************ // + // XML : GeefVolgendeTbpCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + GeefVolgendeTbpCodeRequest = class(TRemotable) + private + FHeader: RequestHeader; + FToeleveringId: string; + FToeleveringId_Specified: boolean; + FProductNummer: string; + FProductNummer_Specified: boolean; + procedure SetToeleveringId(Index: Integer; const Astring: string); + function ToeleveringId_Specified(Index: Integer): boolean; + procedure SetProductNummer(Index: Integer; const Astring: string); + function ProductNummer_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property ToeleveringId: string Index (IS_OPTN) read FToeleveringId write SetToeleveringId stored ToeleveringId_Specified; + property ProductNummer: string Index (IS_OPTN) read FProductNummer write SetProductNummer stored ProductNummer_Specified; + end; + + + + // ************************************************************************ // // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -270,7 +280,10 @@ FActie: string; FKlantId: string; FIsExport: Boolean; + FIsBlumXs: Boolean; FWegwerpPallet: Boolean; + FHalvePallet: Boolean; + FKartonnenPallet: Boolean; FMeerdereToeleveringen: Boolean; public destructor Destroy; override; @@ -279,7 +292,10 @@ property Actie: string read FActie write FActie; property KlantId: string read FKlantId write FKlantId; property IsExport: Boolean read FIsExport write FIsExport; + property IsBlumXs: Boolean read FIsBlumXs write FIsBlumXs; property WegwerpPallet: Boolean read FWegwerpPallet write FWegwerpPallet; + property HalvePallet: Boolean read FHalvePallet write FHalvePallet; + property KartonnenPallet: Boolean read FKartonnenPallet write FKartonnenPallet; property MeerdereToeleveringen: Boolean read FMeerdereToeleveringen write FMeerdereToeleveringen; end; @@ -508,6 +524,8 @@ 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); @@ -516,13 +534,16 @@ 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; end; @@ -644,8 +665,14 @@ FKlantnaam_Specified: boolean; FIsExport: Boolean; FIsExport_Specified: boolean; + FIsBlumXs: Boolean; + FIsBlumXs_Specified: boolean; FWegwerpPallet: Boolean; FWegwerpPallet_Specified: boolean; + FHalvePallet: Boolean; + FHalvePallet_Specified: boolean; + FKartonnenPallet: Boolean; + FKartonnenPallet_Specified: boolean; FMeerdereToeleveringen: Boolean; FMeerdereToeleveringen_Specified: boolean; procedure SetKlantId(Index: Integer; const Astring: string); @@ -654,15 +681,24 @@ function Klantnaam_Specified(Index: Integer): boolean; procedure SetIsExport(Index: Integer; const ABoolean: Boolean); function IsExport_Specified(Index: Integer): boolean; + procedure SetIsBlumXs(Index: Integer; const ABoolean: Boolean); + function IsBlumXs_Specified(Index: Integer): boolean; procedure SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); function WegwerpPallet_Specified(Index: Integer): boolean; + procedure SetHalvePallet(Index: Integer; const ABoolean: Boolean); + function HalvePallet_Specified(Index: Integer): boolean; + procedure SetKartonnenPallet(Index: Integer; const ABoolean: Boolean); + function KartonnenPallet_Specified(Index: Integer): boolean; procedure SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); function MeerdereToeleveringen_Specified(Index: Integer): boolean; published property KlantId: string Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified; property Klantnaam: string Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified; property IsExport: Boolean Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified; + property IsBlumXs: Boolean Index (IS_OPTN) read FIsBlumXs write SetIsBlumXs stored IsBlumXs_Specified; property WegwerpPallet: Boolean Index (IS_OPTN) read FWegwerpPallet write SetWegwerpPallet stored WegwerpPallet_Specified; + property HalvePallet: Boolean Index (IS_OPTN) read FHalvePallet write SetHalvePallet stored HalvePallet_Specified; + property KartonnenPallet: Boolean Index (IS_OPTN) read FKartonnenPallet write SetKartonnenPallet stored KartonnenPallet_Specified; property MeerdereToeleveringen: Boolean Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified; end; @@ -1070,7 +1106,7 @@ // binding : DnaCodeServiceSoap // service : DnaCodeService // port : DnaCodeServiceSoap - // URL : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls + // URL : http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls // ************************************************************************ // DnaCodeServiceSoap = interface(IInvokable) ['{514675BC-4331-0084-2F76-0934B2799FAE}'] @@ -1103,8 +1139,8 @@ function GetDnaCodeServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): DnaCodeServiceSoap; const - defWSDL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1'; - defURL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls'; + defWSDL = 'http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls?WSDL=1'; + defURL = 'http://jlm-ws020:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls'; defSvc = 'DnaCodeService'; defPrt = 'DnaCodeServiceSoap'; var @@ -1138,12 +1174,6 @@ end; -destructor GeefVolgendeTbpCodeRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - destructor DnaCodeAfmeldenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1194,6 +1224,34 @@ Result := FBatchId_Specified; end; +destructor GeefVolgendeTbpCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure GeefVolgendeTbpCodeRequest.SetToeleveringId(Index: Integer; const Astring: string); +begin + FToeleveringId := Astring; + FToeleveringId_Specified := True; +end; + +function GeefVolgendeTbpCodeRequest.ToeleveringId_Specified(Index: Integer): boolean; +begin + Result := FToeleveringId_Specified; +end; + +procedure GeefVolgendeTbpCodeRequest.SetProductNummer(Index: Integer; const Astring: string); +begin + FProductNummer := Astring; + FProductNummer_Specified := True; +end; + +function GeefVolgendeTbpCodeRequest.ProductNummer_Specified(Index: Integer): boolean; +begin + Result := FProductNummer_Specified; +end; + destructor HernoemPalletRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1565,6 +1623,17 @@ 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 ZoekViaPalletCodeResponse.Destroy; var I: Integer; @@ -1736,6 +1805,17 @@ Result := FIsExport_Specified; end; +procedure Klantinstellingen.SetIsBlumXs(Index: Integer; const ABoolean: Boolean); +begin + FIsBlumXs := ABoolean; + FIsBlumXs_Specified := True; +end; + +function Klantinstellingen.IsBlumXs_Specified(Index: Integer): boolean; +begin + Result := FIsBlumXs_Specified; +end; + procedure Klantinstellingen.SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); begin FWegwerpPallet := ABoolean; @@ -1747,6 +1827,28 @@ Result := FWegwerpPallet_Specified; end; +procedure Klantinstellingen.SetHalvePallet(Index: Integer; const ABoolean: Boolean); +begin + FHalvePallet := ABoolean; + FHalvePallet_Specified := True; +end; + +function Klantinstellingen.HalvePallet_Specified(Index: Integer): boolean; +begin + Result := FHalvePallet_Specified; +end; + +procedure Klantinstellingen.SetKartonnenPallet(Index: Integer; const ABoolean: Boolean); +begin + FKartonnenPallet := ABoolean; + FKartonnenPallet_Specified := True; +end; + +function Klantinstellingen.KartonnenPallet_Specified(Index: Integer): boolean; +begin + Result := FKartonnenPallet_Specified; +end; + procedure Klantinstellingen.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); begin FMeerdereToeleveringen := ABoolean; @@ -2092,9 +2194,9 @@ '[ReturnName="ZoekViaToeleveringResult"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); - RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); + RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest');