Index: AAPClient/WS/DnaCodeService.dfm =================================================================== diff -u --- AAPClient/WS/DnaCodeService.dfm (revision 0) +++ AAPClient/WS/DnaCodeService.dfm (revision 36) @@ -0,0 +1,37 @@ +inherited fmPalletScherm: TfmPalletScherm + Caption = 'fmPalletScherm' + PixelsPerInch = 96 + TextHeight = 19 + object lblScanPallet: TLabel [1] + Left = 78 + Top = 119 + Width = 76 + Height = 19 + Caption = 'Scan pallet' + end + object Image1: TImage [2] + Left = 72 + Top = 39 + Width = 82 + Height = 81 + end + inherited btnRechtsOnder: TButton + Default = True + end + object edtPallet: TEdit [6] + Left = 56 + Top = 151 + Width = 121 + Height = 27 + TabOrder = 3 + OnKeyPress = edtPalletKeyPress + end + inherited alAlgemeen: TActionList + inherited actVolgende: TAction + OnExecute = actVolgendeExecute + end + inherited actHome: TAction + OnExecute = actHomeExecute + end + end +end Index: AAPClient/WS/DnaCodeService.pas =================================================================== diff -u --- AAPClient/WS/DnaCodeService.pas (revision 0) +++ AAPClient/WS/DnaCodeService.pas (revision 36) @@ -0,0 +1,541 @@ +// ************************************************************************ // +// The types declared in this file were generated from data read from the +// WSDL File described below: +// WSDL : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1 +// >Import : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0 +// Encoding : UTF-8 +// Version : 1.0 +// (8/03/2019 10:21:18 - - $Rev: 45757 $) +// ************************************************************************ // + +unit DnaCodeService; + +interface + +uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; + +const + IS_OPTN = $0001; + IS_UNBD = $0002; + IS_NLBL = $0004; + IS_REF = $0080; + + +type + + // ************************************************************************ // + // The following types, referred to in the WSDL document are not being represented + // in this file. They are either aliases[@] of other types represented or were referred + // to but never[!] declared in the document. The types from the latter category + // typically map to predefined/known XML or Embarcadero types; however, they could also + // indicate incorrect WSDL documents that failed to declare or import a schema type. + // ************************************************************************ // + // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] + // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] + + ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + + {$SCOPEDENUMS ON} + { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } + DnaCodeStatus = (Nieuw, Gescand, Ongedaan); + + {$SCOPEDENUMS OFF} + + ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + Horolog = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } + String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } + + + // ************************************************************************ // + // XML : ValideerPalletCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ValideerPalletCodeRequest = 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 : 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 : 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 : DataTransferObject, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DataTransferObject = class(TRemotable) + private + published + end; + + + + // ************************************************************************ // + // XML : ZoekViaPalletCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaPalletCodeResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; + 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: ResponseHeader read FHeader write FHeader; + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; + end; + + + + // ************************************************************************ // + // XML : ValideerPalletCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ValideerPalletCodeResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; + public + destructor Destroy; override; + published + property Header: ResponseHeader read FHeader write FHeader; + end; + + + + // ************************************************************************ // + // XML : DnaCode, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DnaCode = class(DataTransferObject) + private + FAxProductieOrderNummer: string; + FAxProductieOrderNummer_Specified: boolean; + FProductNummer: string; + FProductNummer_Specified: boolean; + FDnaCode: string; + FDnaCode_Specified: boolean; + FPalletCode: string; + FPalletCode_Specified: boolean; + FToelevering: string; + FToelevering_Specified: boolean; + FKlantNummer: string; + FKlantNummer_Specified: boolean; + FLocatie: string; + FLocatie_Specified: boolean; + FLijn: string; + FLijn_Specified: boolean; + FInitialenScanner: string; + FInitialenScanner_Specified: boolean; + FScanTijdstip: Horolog; + FScanTijdstip_Specified: boolean; + FLadeCode: string; + FLadeCode_Specified: boolean; + FStatus: DnaCodeStatus; + FStatus_Specified: boolean; + FIsGlsDirect: Boolean; + FIsGlsDirect_Specified: boolean; + FParentDnaCode: string; + FParentDnaCode_Specified: boolean; + FSequentieNummer: string; + FSequentieNummer_Specified: boolean; + procedure SetAxProductieOrderNummer(Index: Integer; const Astring: string); + function AxProductieOrderNummer_Specified(Index: Integer): boolean; + procedure SetProductNummer(Index: Integer; const Astring: string); + function ProductNummer_Specified(Index: Integer): boolean; + procedure SetDnaCode(Index: Integer; const Astring: string); + function DnaCode_Specified(Index: Integer): boolean; + procedure SetPalletCode(Index: Integer; const Astring: string); + function PalletCode_Specified(Index: Integer): boolean; + procedure SetToelevering(Index: Integer; const Astring: string); + function Toelevering_Specified(Index: Integer): boolean; + procedure SetKlantNummer(Index: Integer; const Astring: string); + function KlantNummer_Specified(Index: Integer): boolean; + procedure SetLocatie(Index: Integer; const Astring: string); + function Locatie_Specified(Index: Integer): boolean; + procedure SetLijn(Index: Integer; const Astring: string); + function Lijn_Specified(Index: Integer): boolean; + procedure SetInitialenScanner(Index: Integer; const Astring: string); + function InitialenScanner_Specified(Index: Integer): boolean; + procedure SetScanTijdstip(Index: Integer; const AHorolog: Horolog); + function ScanTijdstip_Specified(Index: Integer): boolean; + procedure SetLadeCode(Index: Integer; const Astring: string); + function LadeCode_Specified(Index: Integer): boolean; + procedure SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); + function Status_Specified(Index: Integer): boolean; + procedure SetIsGlsDirect(Index: Integer; const ABoolean: Boolean); + function IsGlsDirect_Specified(Index: Integer): boolean; + procedure SetParentDnaCode(Index: Integer; const Astring: string); + function ParentDnaCode_Specified(Index: Integer): boolean; + procedure SetSequentieNummer(Index: Integer; const Astring: string); + function SequentieNummer_Specified(Index: Integer): boolean; + published + property AxProductieOrderNummer: string Index (IS_OPTN) read FAxProductieOrderNummer write SetAxProductieOrderNummer stored AxProductieOrderNummer_Specified; + property ProductNummer: string Index (IS_OPTN) read FProductNummer write SetProductNummer stored ProductNummer_Specified; + property DnaCode: string Index (IS_OPTN) read FDnaCode write SetDnaCode stored DnaCode_Specified; + property PalletCode: string Index (IS_OPTN) read FPalletCode write SetPalletCode stored PalletCode_Specified; + property Toelevering: string Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified; + property KlantNummer: string Index (IS_OPTN) read FKlantNummer write SetKlantNummer stored KlantNummer_Specified; + property Locatie: string Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified; + property Lijn: string Index (IS_OPTN) read FLijn write SetLijn stored Lijn_Specified; + property InitialenScanner: string Index (IS_OPTN) read FInitialenScanner write SetInitialenScanner stored InitialenScanner_Specified; + property ScanTijdstip: Horolog Index (IS_OPTN) read FScanTijdstip write SetScanTijdstip stored ScanTijdstip_Specified; + property LadeCode: string Index (IS_OPTN) read FLadeCode write SetLadeCode stored LadeCode_Specified; + property Status: DnaCodeStatus Index (IS_OPTN) read FStatus write SetStatus stored Status_Specified; + property IsGlsDirect: Boolean Index (IS_OPTN) read FIsGlsDirect write SetIsGlsDirect stored IsGlsDirect_Specified; + property ParentDnaCode: string Index (IS_OPTN) read FParentDnaCode write SetParentDnaCode stored ParentDnaCode_Specified; + property SequentieNummer: string Index (IS_OPTN) read FSequentieNummer write SetSequentieNummer stored SequentieNummer_Specified; + 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; + + + // ************************************************************************ // + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // soapAction: http://www.vanhoecke.be/Halux/AAP/DnaCode/WS.Halux.AAP.DnaCodeService.%operationName% + // transport : http://schemas.xmlsoap.org/soap/http + // style : document + // use : literal + // binding : DnaCodeServiceSoap + // service : DnaCodeService + // port : DnaCodeServiceSoap + // URL : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls + // ************************************************************************ // + DnaCodeServiceSoap = interface(IInvokable) + ['{514675BC-4331-0084-2F76-0934B2799FAE}'] + function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; + function ZoekViaPalletcode(const ZoakViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall; + end; + +function GetDnaCodeServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): DnaCodeServiceSoap; + + +implementation + uses SysUtils; + +function GetDnaCodeServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): DnaCodeServiceSoap; +const + defWSDL = 'http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1'; + defURL = 'http://tve-w7:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls'; + defSvc = 'DnaCodeService'; + defPrt = 'DnaCodeServiceSoap'; +var + RIO: THTTPRIO; +begin + Result := nil; + if (Addr = '') then + begin + if UseWSDL then + Addr := defWSDL + else + Addr := defURL; + end; + if HTTPRIO = nil then + RIO := THTTPRIO.Create(nil) + else + RIO := HTTPRIO; + try + Result := (RIO as DnaCodeServiceSoap); + if UseWSDL then + begin + RIO.WSDLLocation := Addr; + RIO.Service := defSvc; + RIO.Port := defPrt; + end else + RIO.URL := Addr; + finally + if (Result = nil) and (HTTPRIO = nil) then + RIO.Free; + end; +end; + + +destructor ValideerPalletCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekViaPalletCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekViaPalletCodeResponse.Destroy; +var + I: Integer; +begin + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure ZoekViaPalletCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +begin + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; +end; + +function ZoekViaPalletCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +begin + Result := FDnaCodes_Specified; +end; + +destructor ValideerPalletCodeResponse.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); +begin + FAxProductieOrderNummer := Astring; + FAxProductieOrderNummer_Specified := True; +end; + +function DnaCode.AxProductieOrderNummer_Specified(Index: Integer): boolean; +begin + Result := FAxProductieOrderNummer_Specified; +end; + +procedure DnaCode.SetProductNummer(Index: Integer; const Astring: string); +begin + FProductNummer := Astring; + FProductNummer_Specified := True; +end; + +function DnaCode.ProductNummer_Specified(Index: Integer): boolean; +begin + Result := FProductNummer_Specified; +end; + +procedure DnaCode.SetDnaCode(Index: Integer; const Astring: string); +begin + FDnaCode := Astring; + FDnaCode_Specified := True; +end; + +function DnaCode.DnaCode_Specified(Index: Integer): boolean; +begin + Result := FDnaCode_Specified; +end; + +procedure DnaCode.SetPalletCode(Index: Integer; const Astring: string); +begin + FPalletCode := Astring; + FPalletCode_Specified := True; +end; + +function DnaCode.PalletCode_Specified(Index: Integer): boolean; +begin + Result := FPalletCode_Specified; +end; + +procedure DnaCode.SetToelevering(Index: Integer; const Astring: string); +begin + FToelevering := Astring; + FToelevering_Specified := True; +end; + +function DnaCode.Toelevering_Specified(Index: Integer): boolean; +begin + Result := FToelevering_Specified; +end; + +procedure DnaCode.SetKlantNummer(Index: Integer; const Astring: string); +begin + FKlantNummer := Astring; + FKlantNummer_Specified := True; +end; + +function DnaCode.KlantNummer_Specified(Index: Integer): boolean; +begin + Result := FKlantNummer_Specified; +end; + +procedure DnaCode.SetLocatie(Index: Integer; const Astring: string); +begin + FLocatie := Astring; + FLocatie_Specified := True; +end; + +function DnaCode.Locatie_Specified(Index: Integer): boolean; +begin + Result := FLocatie_Specified; +end; + +procedure DnaCode.SetLijn(Index: Integer; const Astring: string); +begin + FLijn := Astring; + FLijn_Specified := True; +end; + +function DnaCode.Lijn_Specified(Index: Integer): boolean; +begin + Result := FLijn_Specified; +end; + +procedure DnaCode.SetInitialenScanner(Index: Integer; const Astring: string); +begin + FInitialenScanner := Astring; + FInitialenScanner_Specified := True; +end; + +function DnaCode.InitialenScanner_Specified(Index: Integer): boolean; +begin + Result := FInitialenScanner_Specified; +end; + +procedure DnaCode.SetScanTijdstip(Index: Integer; const AHorolog: Horolog); +begin + FScanTijdstip := AHorolog; + FScanTijdstip_Specified := True; +end; + +function DnaCode.ScanTijdstip_Specified(Index: Integer): boolean; +begin + Result := FScanTijdstip_Specified; +end; + +procedure DnaCode.SetLadeCode(Index: Integer; const Astring: string); +begin + FLadeCode := Astring; + FLadeCode_Specified := True; +end; + +function DnaCode.LadeCode_Specified(Index: Integer): boolean; +begin + Result := FLadeCode_Specified; +end; + +procedure DnaCode.SetStatus(Index: Integer; const ADnaCodeStatus: DnaCodeStatus); +begin + FStatus := ADnaCodeStatus; + FStatus_Specified := True; +end; + +function DnaCode.Status_Specified(Index: Integer): boolean; +begin + Result := FStatus_Specified; +end; + +procedure DnaCode.SetIsGlsDirect(Index: Integer; const ABoolean: Boolean); +begin + FIsGlsDirect := ABoolean; + FIsGlsDirect_Specified := True; +end; + +function DnaCode.IsGlsDirect_Specified(Index: Integer): boolean; +begin + Result := FIsGlsDirect_Specified; +end; + +procedure DnaCode.SetParentDnaCode(Index: Integer; const Astring: string); +begin + FParentDnaCode := Astring; + FParentDnaCode_Specified := True; +end; + +function DnaCode.ParentDnaCode_Specified(Index: Integer): boolean; +begin + Result := FParentDnaCode_Specified; +end; + +procedure DnaCode.SetSequentieNummer(Index: Integer; const Astring: string); +begin + FSequentieNummer := Astring; + FSequentieNummer_Specified := True; +end; + +function DnaCode.SequentieNummer_Specified(Index: Integer): boolean; +begin + Result := FSequentieNummer_Specified; +end; + +initialization + { DnaCodeServiceSoap } + InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); + InvRegistry.RegisterDefaultSOAPAction(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode/WS.Halux.AAP.DnaCodeService.%operationName%'); + InvRegistry.RegisterInvokeOptions(TypeInfo(DnaCodeServiceSoap), ioDocument); + { DnaCodeServiceSoap.ValideerPalletCode } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ValideerPalletCode', '', + '[ReturnName="ValideerPalletCodeResult"]'); + { DnaCodeServiceSoap.ZoekViaPalletcode } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaPalletcode', '', + '[ReturnName="ZoekViaPalletcodeResult"]'); + 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.RegisterXSInfo(TypeInfo(Horolog), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Horolog'); + RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); + RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); + RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); + RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); + RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); + +end. \ No newline at end of file