Index: ProScan/WS/DnaCodeService.pas =================================================================== diff -u -r653 -r671 --- ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 653) +++ ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 671) @@ -1,11 +1,11 @@ // ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: -// WSDL : http://jba-ws015:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1 -// >Import : http://jba-ws015: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 -// (5/02/2021 11:10:59 - - $Rev: 45757 $) +// (25/04/2024 8:12:55 - - $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 // ************************************************************************ // @@ -272,18 +282,18 @@ FIsExport: Boolean; FIsBlumXs: Boolean; FWegwerpPallet: Boolean; + FHalvePallet: Boolean; FMeerdereToeleveringen: Boolean; public destructor Destroy; override; - // OPGEPAST: deze properties moeten public zijn ipv published, ookal zijn ze automatisch gegenereerd - // zoniet dan zal bij afmelden van een al afgemelde DnaCode en dan 'wegnemen van pallet' een access violation optreden - // De reden hiervan is ongekend, maar er wordt gespeculeerd dat dit te maken heeft met bepaalde effecten uit de quantumchromodynamica + published property Header: RequestHeader read FHeader write FHeader; property Actie: string read FActie write FActie; property KlantId: string read FKlantId write FKlantId; property IsExport: Boolean read FIsExport write FIsExport; property IsBlumXs: Boolean read FIsBlumXs write FIsBlumXs; property WegwerpPallet: Boolean read FWegwerpPallet write FWegwerpPallet; + property HalvePallet: Boolean read FHalvePallet write FHalvePallet; property MeerdereToeleveringen: Boolean read FMeerdereToeleveringen write FMeerdereToeleveringen; end; @@ -657,6 +667,8 @@ FIsBlumXs_Specified: boolean; FWegwerpPallet: Boolean; FWegwerpPallet_Specified: boolean; + FHalvePallet: Boolean; + FHalvePallet_Specified: boolean; FMeerdereToeleveringen: Boolean; FMeerdereToeleveringen_Specified: boolean; procedure SetKlantId(Index: Integer; const Astring: string); @@ -669,14 +681,17 @@ function IsBlumXs_Specified(Index: Integer): boolean; procedure SetWegwerpPallet(Index: Integer; const ABoolean: Boolean); function WegwerpPallet_Specified(Index: Integer): boolean; + procedure SetHalvePallet(Index: Integer; const ABoolean: Boolean); + function HalvePallet_Specified(Index: Integer): boolean; procedure SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); function MeerdereToeleveringen_Specified(Index: Integer): boolean; - public // Ook dit public. Voodoo + published property KlantId: string Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified; property Klantnaam: string Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified; property IsExport: Boolean Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified; property IsBlumXs: Boolean Index (IS_OPTN) read FIsBlumXs write SetIsBlumXs stored IsBlumXs_Specified; property WegwerpPallet: Boolean Index (IS_OPTN) read FWegwerpPallet write SetWegwerpPallet stored WegwerpPallet_Specified; + property HalvePallet: Boolean Index (IS_OPTN) read FHalvePallet write SetHalvePallet stored HalvePallet_Specified; property MeerdereToeleveringen: Boolean Index (IS_OPTN) read FMeerdereToeleveringen write SetMeerdereToeleveringen stored MeerdereToeleveringen_Specified; end; @@ -1084,7 +1099,7 @@ // binding : DnaCodeServiceSoap // service : DnaCodeService // port : DnaCodeServiceSoap - // URL : http://jba-ws015: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}'] @@ -1117,8 +1132,8 @@ function GetDnaCodeServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): DnaCodeServiceSoap; const - defWSDL = 'http://jba-ws015:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1'; - defURL = 'http://jba-ws015: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 @@ -1152,12 +1167,6 @@ end; -destructor GeefVolgendeTbpCodeRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - destructor DnaCodeAfmeldenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1208,6 +1217,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); @@ -1783,6 +1820,17 @@ 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.SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean); begin FMeerdereToeleveringen := ABoolean; @@ -2128,9 +2176,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');