Index: PlanScan/PlanScan.dpr =================================================================== diff -u -r437 -r457 --- PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 437) +++ PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 457) @@ -17,7 +17,8 @@ frameKlantinstellingen in 'UI\frameKlantinstellingen.pas' {frmKlantinstellingen: TFrame}, KlantinstellingenDetailScherm in 'UI\KlantinstellingenDetailScherm.pas' {fmKlantinstellingenDetail}, DnaCodeService in 'WS\DnaCodeService.pas', - GebruikerService in 'WS\GebruikerService.pas'; + GebruikerService in 'WS\GebruikerService.pas', + AfdrukService in 'WS\AfdrukService.pas'; {$R *.res} Index: PlanScan/PlanScan.dproj =================================================================== diff -u -r437 -r457 --- PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 437) +++ PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 457) @@ -115,6 +115,7 @@ + Cfg_2 Index: PlanScan/WS/AfdrukService.pas =================================================================== diff -u --- PlanScan/WS/AfdrukService.pas (revision 0) +++ PlanScan/WS/AfdrukService.pas (revision 457) @@ -0,0 +1,304 @@ +// ************************************************************************ // +// 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.AfdrukService.CLS?WSDL=1 +// >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.CLS?WSDL=1>0 +// Encoding : UTF-8 +// Version : 1.0 +// (14/07/2020 14:42:34 - - $Rev: 45757 $) +// ************************************************************************ // + +unit AfdrukService; + +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. + // ************************************************************************ // + // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] + + ProductEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + KlantEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + ProductEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + KlantEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + + String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblSmpl] } + ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/Afdruk"[GblCplx] } + + + // ************************************************************************ // + // XML : ProductEtiketAfdrukkenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + ProductEtiketAfdrukkenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FDnaCodes: ArrayOfStringString; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + end; + + + + // ************************************************************************ // + // XML : KlantEtiketAfdrukkenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + KlantEtiketAfdrukkenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FDnaCodes: ArrayOfStringString; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + end; + + + + // ************************************************************************ // + // XML : RequestHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + 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/Afdruk + // ************************************************************************ // + 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 : ProboxEtiketAfdrukkenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + ProboxEtiketAfdrukkenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FDnaCodes: ArrayOfStringString; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + end; + + + + // ************************************************************************ // + // XML : DataTransferObject, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + DataTransferObject = class(TRemotable) + private + published + end; + + + + // ************************************************************************ // + // XML : GeneriekeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + GeneriekeResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; + public + destructor Destroy; override; + published + property Header: ResponseHeader read FHeader write FHeader; + end; + + + + // ************************************************************************ // + // XML : ProductEtiketAfdrukkenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + ProductEtiketAfdrukkenResponse = class(GeneriekeResponse) + private + published + end; + + + + // ************************************************************************ // + // XML : ProboxEtiketAfdrukkenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) + private + published + end; + + + + // ************************************************************************ // + // XML : KlantEtiketAfdrukkenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // ************************************************************************ // + KlantEtiketAfdrukkenResponse = class(GeneriekeResponse) + private + published + end; + + + // ************************************************************************ // + // Namespace : http://www.vanhoecke.be/Halux/AAP/Afdruk + // soapAction: http://www.vanhoecke.be/Halux/AAP/Afdruk/WS.Halux.AAP.AfdrukService.%operationName% + // transport : http://schemas.xmlsoap.org/soap/http + // style : document + // use : literal + // binding : AfdrukServiceSoap + // service : AfdrukService + // port : AfdrukServiceSoap + // URL : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.cls + // ************************************************************************ // + AfdrukServiceSoap = interface(IInvokable) + ['{7DFC4969-9BAE-1639-C2E3-2B1C7F9C77C5}'] + function KlantEtiketAfdrukken(const KlantEtiketAfdrukkenRequest: KlantEtiketAfdrukkenRequest): KlantEtiketAfdrukkenResponse; stdcall; + function ProboxEtiketAfdrukken(const ProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest): ProboxEtiketAfdrukkenResponse; stdcall; + function ProductEtiketAfdrukken(const ProductEtiketAfdrukkenRequest: ProductEtiketAfdrukkenRequest): ProductEtiketAfdrukkenResponse; stdcall; + end; + +function GetAfdrukServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): AfdrukServiceSoap; + + +implementation + uses SysUtils; + +function GetAfdrukServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): AfdrukServiceSoap; +const + defWSDL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.CLS?WSDL=1'; + defURL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.cls'; + defSvc = 'AfdrukService'; + defPrt = 'AfdrukServiceSoap'; +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 AfdrukServiceSoap); + 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 ProductEtiketAfdrukkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor KlantEtiketAfdrukkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ProboxEtiketAfdrukkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor GeneriekeResponse.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +initialization + { AfdrukServiceSoap } + InvRegistry.RegisterInterface(TypeInfo(AfdrukServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'UTF-8'); + InvRegistry.RegisterDefaultSOAPAction(TypeInfo(AfdrukServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/Afdruk/WS.Halux.AAP.AfdrukService.%operationName%'); + InvRegistry.RegisterInvokeOptions(TypeInfo(AfdrukServiceSoap), ioDocument); + { AfdrukServiceSoap.KlantEtiketAfdrukken } + InvRegistry.RegisterMethodInfo(TypeInfo(AfdrukServiceSoap), 'KlantEtiketAfdrukken', '', + '[ReturnName="KlantEtiketAfdrukkenResult"]'); + { AfdrukServiceSoap.ProboxEtiketAfdrukken } + InvRegistry.RegisterMethodInfo(TypeInfo(AfdrukServiceSoap), 'ProboxEtiketAfdrukken', '', + '[ReturnName="ProboxEtiketAfdrukkenResult"]'); + { AfdrukServiceSoap.ProductEtiketAfdrukken } + InvRegistry.RegisterMethodInfo(TypeInfo(AfdrukServiceSoap), 'ProductEtiketAfdrukken', '', + '[ReturnName="ProductEtiketAfdrukkenResult"]'); + RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'String_', 'String'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ArrayOfStringString'); + RemClassRegistry.RegisterXSClass(ProductEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ProductEtiketAfdrukkenRequest'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ProductEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); + RemClassRegistry.RegisterXSClass(KlantEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'KlantEtiketAfdrukkenRequest'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(KlantEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); + RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'RequestHeader'); + RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ResponseHeader'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ProboxEtiketAfdrukkenRequest'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); + RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'DataTransferObject'); + RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'GeneriekeResponse'); + RemClassRegistry.RegisterXSClass(ProductEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ProductEtiketAfdrukkenResponse'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'ProboxEtiketAfdrukkenResponse'); + RemClassRegistry.RegisterXSClass(KlantEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/Afdruk', 'KlantEtiketAfdrukkenResponse'); + +end. \ No newline at end of file Index: PlanScan/PlanScan.dproj.local =================================================================== diff -u -r454 -r457 --- PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 454) +++ PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 457) @@ -26,26 +26,26 @@ 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/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.pas=E:\svn\Delphi\PlanScan\UI\LoginScherm.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/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.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm 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.dfm=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.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: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.dfm=E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm 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/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/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\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/05/06 15:48:04.000.623,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/05/06 15:48:51.000.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.pas=E:\svn\Delphi\PlanScan\Unit1.pas 2020/05/06 15:48:51.000.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/05/06 15:48:51.000.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.pas=E:\svn\Delphi\PlanScan\Unit1.pas 2020/05/07 08:09:33.000.580,=E:\svn\Delphi\PlanScan\WS.pas 2020/05/07 08:09:44.000.951,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= 2020/05/07 08:10:20.000.303,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas @@ -67,6 +67,8 @@ 2020/06/30 12:04:00.000.987,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= 2020/06/30 12:04:28.000.864,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/06/30 12:04:53.000.617,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas + 2020/07/14 14:42:35.095,=E:\svn\Delphi\PlanScan\WS.pas + 2020/07/14 14:43:07.741,E:\svn\Delphi\PlanScan\WS\AfdrukService.pas=E:\svn\Delphi\PlanScan\WS.pas @@ -87,6 +89,7 @@ +