Index: AAPClient/ProScan.dproj
===================================================================
diff -u -r41 -r43
--- AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 41)
+++ AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 43)
@@ -111,7 +111,6 @@
dfm
-
dfm
@@ -120,6 +119,7 @@
dfm
+
Cfg_2
Base
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r42 -r43
Binary files differ
Index: AAPClient/ProScan.dproj.local
===================================================================
diff -u -r41 -r43
--- AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 41)
+++ AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 43)
@@ -2,15 +2,15 @@
2019/03/01 14:25:16.000.954,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas
- 2019/03/01 14:25:57.000.930,E:\svn\Delphi\AAPClient\ProScanMain.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm
2019/03/01 14:25:57.000.930,E:\svn\Delphi\AAPClient\ProScanMain.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas
+ 2019/03/01 14:25:57.000.930,E:\svn\Delphi\AAPClient\ProScanMain.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm
2019/03/01 14:26:05.000.981,E:\svn\Delphi\AAPClient\ProScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj
2019/03/01 14:28:35.000.977,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/01 15:26:22.000.761,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm
2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas
+ 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm
2019/03/04 07:46:54.000.107,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/04 07:48:44.000.257,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/04 07:48:53.000.280,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=
@@ -20,17 +20,17 @@
2019/03/05 10:53:16.000.806,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/05 10:56:57.000.976,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\GebruikerService.pas
2019/03/05 11:54:27.053,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/05 11:57:08.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/05 11:57:08.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/05 11:57:08.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/06 07:41:24.503,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/06 07:41:41.580,E:\svn\Delphi\AAPClient\UI\Images.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/06 07:41:41.580,E:\svn\Delphi\AAPClient\UI\Images.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+ 2019/03/06 07:41:41.580,E:\svn\Delphi\AAPClient\UI\Images.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 08:39:12.150,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 08:39:29.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/07 08:39:29.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 11:22:02.536,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/07 11:29:09.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 11:29:09.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+ 2019/03/07 11:29:09.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 15:18:54.922,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/07 15:19:13.507,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
2019/03/08 10:21:18.208,=E:\svn\Delphi\AAPClient\WS.pas
@@ -46,6 +46,9 @@
2019/03/08 13:41:42.692,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/08 13:43:18.167,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/08 13:43:18.168,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+ 2019/03/08 16:42:04.691,=E:\svn\Delphi\AAPClient\WS.pas
+ 2019/03/08 16:42:12.086,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
+ 2019/03/08 16:42:32.114,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u -r42 -r43
Binary files differ
Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r42 -r43
--- AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 42)
+++ AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 43)
@@ -143,6 +143,15 @@
if fHuidigScherm.ClassType = TfmDnaCodeScherm then begin
(fHuidigScherm as TfmDnaCodeScherm).lblPalletCode.Caption := fHuidigePallet;
fModalResult := fHuidigScherm.ShowModal;
+ if fHuidigScherm.ModalResult = mrYes then begin
+ fHuidigScherm := fHomeScherm;
+ end
+ else if fHuidigScherm.ModalResult = mrOk then begin
+ fHuidigScherm := fPalletScherm;
+ end
+ else if fHuidigScherm.ModalResult = mrNone then begin
+ fHuidigScherm := fDnaCodeScherm;
+ end;
continue;
end;
Index: AAPClient/WS/DnaCodeService.pas
===================================================================
diff -u -r36 -r43
--- AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 36)
+++ AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 43)
@@ -5,7 +5,7 @@
// >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 $)
+// (8/03/2019 16:42:04 - - $Rev: 45757 $)
// ************************************************************************ //
unit DnaCodeService;
@@ -33,64 +33,50 @@
// !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:string - "http://www.w3.org/2001/XMLSchema"[Gbl]
+ ZoekViaToeleveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
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] }
+ ZoekViaToeleveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
+ ZoekViaPalletCodeRequest = 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,
+ // XML : ZoekViaToeleveringRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ValideerPalletCodeRequest = class(TRemotable)
+ ZoekViaToeleveringRequest = class(TRemotable)
private
FHeader: RequestHeader;
- FPalletCode: string;
+ FToelevering: string;
public
destructor Destroy; override;
published
- property Header: RequestHeader read FHeader write FHeader;
- property PalletCode: string read FPalletCode write FPalletCode;
+ property Header: RequestHeader read FHeader write FHeader;
+ property Toelevering: string read FToelevering write FToelevering;
end;
+ Horolog = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] }
// ************************************************************************ //
- // XML : RequestHeader, global,
+ // XML : ValideerPalletCodeRequest, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- RequestHeader = class(TRemotable)
+ ValideerPalletCodeRequest = 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
@@ -103,32 +89,27 @@
// ************************************************************************ //
- // XML : DataTransferObject, global,
+ // XML : RequestHeader, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- DataTransferObject = class(TRemotable)
+ 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 : ZoekViaPalletCodeResponse, global,
+ // XML : DataTransferObject, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
- ZoekViaPalletCodeResponse = class(DataTransferObject)
+ DataTransferObject = class(TRemotable)
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;
@@ -232,9 +213,50 @@
property SequentieNummer: string Index (IS_OPTN) read FSequentieNummer write SetSequentieNummer stored SequentieNummer_Specified;
end;
+ ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] }
// ************************************************************************ //
+ // XML : ZoekViaToeleveringResponse, global,
+ // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
+ // ************************************************************************ //
+ ZoekViaToeleveringResponse = 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 : 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 : ResponseHeader, global,
// Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode
// ************************************************************************ //
@@ -248,8 +270,25 @@
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;
+
+
+ // ************************************************************************ //
+ // 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
@@ -263,6 +302,7 @@
['{514675BC-4331-0084-2F76-0934B2799FAE}']
function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall;
function ZoekViaPalletcode(const ZoakViaPalletCodeRequest: ZoekViaPalletCodeRequest): ZoekViaPalletCodeResponse; stdcall;
+ function ZoekViaToelevering(const ZoekViaToeleveringRequest: ZoekViaToeleveringRequest): ZoekViaToeleveringResponse; stdcall;
end;
function GetDnaCodeServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): DnaCodeServiceSoap;
@@ -308,40 +348,18 @@
end;
-destructor ValideerPalletCodeRequest.Destroy;
+destructor ZoekViaToeleveringRequest.Destroy;
begin
SysUtils.FreeAndNil(FHeader);
inherited Destroy;
end;
-destructor ZoekViaPalletCodeRequest.Destroy;
+destructor ValideerPalletCodeRequest.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);
@@ -513,6 +531,56 @@
Result := FSequentieNummer_Specified;
end;
+destructor ZoekViaToeleveringResponse.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 ZoekViaToeleveringResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode);
+begin
+ FDnaCodes := AArrayOfDnaCodeDnaCode;
+ FDnaCodes_Specified := True;
+end;
+
+function ZoekViaToeleveringResponse.DnaCodes_Specified(Index: Integer): boolean;
+begin
+ Result := FDnaCodes_Specified;
+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 ZoekViaPalletCodeRequest.Destroy;
+begin
+ SysUtils.FreeAndNil(FHeader);
+ inherited Destroy;
+end;
+
initialization
{ DnaCodeServiceSoap }
InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8');
@@ -524,18 +592,24 @@
{ DnaCodeServiceSoap.ZoekViaPalletcode }
InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaPalletcode', '',
'[ReturnName="ZoekViaPalletcodeResult"]');
- RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode');
+ { DnaCodeServiceSoap.ZoekViaToelevering }
+ InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '',
+ '[ReturnName="ZoekViaToeleveringResult"]');
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(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest');
+ RemClassRegistry.RegisterXSInfo(TypeInfo(Horolog), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Horolog');
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.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode');
+ RemClassRegistry.RegisterXSClass(ZoekViaToeleveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringResponse');
+ RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaToeleveringResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
+ RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse');
+ RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]');
RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader');
+ RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest');
end.
\ No newline at end of file
Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r42 -r43
--- AAPClient/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 42)
+++ AAPClient/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 43)
@@ -20,6 +20,9 @@
lblSlash: TLabel;
Image1: TImage;
procedure FormShow(Sender: TObject);
+ procedure actPalletExecute(Sender: TObject);
+ procedure actHomeExecute(Sender: TObject);
+ procedure actVolgendeExecute(Sender: TObject);
private
{ Private declarations }
public
@@ -33,6 +36,24 @@
{$R *.dfm}
+procedure TfmDnaCodeScherm.actHomeExecute(Sender: TObject);
+begin
+ inherited;
+ //
+end;
+
+procedure TfmDnaCodeScherm.actPalletExecute(Sender: TObject);
+begin
+ inherited;
+ //
+end;
+
+procedure TfmDnaCodeScherm.actVolgendeExecute(Sender: TObject);
+begin
+ inherited;
+ //
+end;
+
procedure TfmDnaCodeScherm.FormShow(Sender: TObject);
begin
btnLinksOnder.Action := actPallet;
Index: AAPClient/ProScan.dpr
===================================================================
diff -u -r41 -r43
--- AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 41)
+++ AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 43)
@@ -10,9 +10,9 @@
Images in 'UI\Images.pas' {ImagesScherm},
HomeScherm in 'UI\HomeScherm.pas' {fmHomeScherm},
PalletScherm in 'UI\PalletScherm.pas' {fmPalletScherm},
- DnaCodeService in 'WS\DnaCodeService.pas',
BestaandePalletScherm in 'UI\BestaandePalletScherm.pas' {fmBestaandePalletScherm},
- DnaCodeScherm in 'UI\DnaCodeScherm.pas' {fmDnaCodeScherm};
+ DnaCodeScherm in 'UI\DnaCodeScherm.pas' {fmDnaCodeScherm},
+ DnaCodeService in 'WS\DnaCodeService.pas';
{$R *.res}
Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r42 -r43
--- AAPClient/UI/DnaCodeScherm.dfm (.../DnaCodeScherm.dfm) (revision 42)
+++ AAPClient/UI/DnaCodeScherm.dfm (.../DnaCodeScherm.dfm) (revision 43)
@@ -77,5 +77,14 @@
inherited alAlgemeen: TActionList
Left = 16
Top = 160
+ inherited actVolgende: TAction
+ OnExecute = actVolgendeExecute
+ end
+ inherited actHome: TAction
+ OnExecute = actHomeExecute
+ end
+ inherited actPallet: TAction
+ OnExecute = actPalletExecute
+ end
end
end