Index: AAPClient/ProScan.dproj
===================================================================
diff -u -r50 -r52
--- AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 50)
+++ AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 52)
@@ -119,11 +119,11 @@
dfm
-
dfm
+
Cfg_2
Base
Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r51 -r52
--- AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 51)
+++ AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 52)
@@ -5,7 +5,7 @@
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
- Vcl.StdCtrls, Vcl.Grids;
+ Vcl.StdCtrls, Vcl.Grids, DnaCodeService;
type
TfmInfoLogScherm = class(TfmDrieKnoppenScherm)
@@ -17,7 +17,7 @@
sgToeleveringData: TStringGrid;
procedure FormCreate(Sender: TObject);
private
- { Private declarations }
+ function ToeleveringDataOphalen(): ZoekViaToeleveringResponse;
public
{ Public declarations }
end;
@@ -36,4 +36,39 @@
sgToeleveringData.Cols[1].Text := 'Pallet';
end;
+function TfmInfoLogScherm.ToeleveringDataOphalen: ZoekViaToeleveringResponse;
+var
+ Service: DnaCodeServiceSoap;
+ Request: ZoekViaToeleveringRequest;
+ Response: ZoekViaToeleveringResponse;
+ Header: RequestHeader;
+begin
+ Service := DnaCodeService.GetDnaCodeServiceSoap();
+ // request opbouwen
+ Request := ZoekViaToeleveringRequest.Create;
+ Header := RequestHeader.Create;
+ try
+ Header.Initialen := lblGebruiker.Caption;
+ Header.ComputerNaam := ComputerName();
+ Request.Header := Header;
+ Request.Toelevering := lblToelevering.Caption;
+
+ Response := Service.ZoekViaToelevering(Request);
+ try
+ if Response.Header.Status <> '200' then begin
+ Self.ModalResult := mrRetry;
+ ToonPopupScherm('Geen data beschikbaar', 'Probeer opnieuw')
+ end else begin
+ lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
+ lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
+ Self.ModalResult := mrIgnore;
+ end;
+ finally
+ Response.Free;
+ end;
+ finally
+ Request.Free;
+ end;
+end;
+
end.
Index: AAPClient/ProScan.dpr
===================================================================
diff -u -r50 -r52
--- AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 50)
+++ AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 52)
@@ -12,8 +12,8 @@
PalletScherm in 'UI\PalletScherm.pas' {fmPalletScherm},
BestaandePalletScherm in 'UI\BestaandePalletScherm.pas' {fmBestaandePalletScherm},
DnaCodeScherm in 'UI\DnaCodeScherm.pas' {fmDnaCodeScherm},
- DnaCodeService in 'WS\DnaCodeService.pas',
- InfoLogScherm in 'UI\InfoLogScherm.pas' {fmInfoLogScherm};
+ InfoLogScherm in 'UI\InfoLogScherm.pas' {fmInfoLogScherm},
+ DnaCodeService in 'WS\DnaCodeService.pas';
{$R *.res}
Index: AAPClient/ProScan.dproj.local
===================================================================
diff -u -r50 -r52
--- AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 50)
+++ AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 52)
@@ -14,23 +14,23 @@
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=
- 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas
2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm
+ 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas
2019/03/05 10:51:12.000.820,=E:\svn\Delphi\AAPClient\WS.pas
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\GebruikerService.pas=E:\svn\Delphi\AAPClient\WS.pas
2019/03/05 11:54:27.000.053,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm
2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\PopupScherm.pas
+ 2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm
2019/03/06 07:41:24.000.503,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/06 07:41:41.000.580,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\Images.dfm
2019/03/06 07:41:41.000.580,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\Images.pas
2019/03/07 08:39:12.000.150,=E:\svn\Delphi\AAPClient\Unit1.pas
2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\HomeScherm.pas
2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\HomeScherm.dfm
2019/03/07 11:22:02.000.536,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm
2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas
+ 2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm
2019/03/07 15:18:54.000.922,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/07 15:19:13.000.507,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
2019/03/08 10:21:18.000.208,=E:\svn\Delphi\AAPClient\WS.pas
@@ -41,20 +41,23 @@
2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas
2019/03/08 10:28:02.000.451,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
2019/03/08 11:14:25.000.860,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm
2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.pas
+ 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm
2019/03/08 13:41:42.000.692,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas
2019/03/08 13:43:18.000.168,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm
+ 2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas
2019/03/08 16:42:04.000.691,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/08 16:42:12.000.086,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/03/08 16:42:32.000.114,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
2019/03/12 11:42:34.194,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/03/12 11:42:41.845,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/12 11:42:52.715,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
2019/03/18 09:44:48.103,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/18 09:46:03.084,E:\svn\Delphi\AAPClient\UI\InfoLogScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
2019/03/18 09:46:03.084,E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/18 09:46:03.084,E:\svn\Delphi\AAPClient\UI\InfoLogScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+ 2019/03/18 11:06:46.842,=E:\svn\Delphi\AAPClient\WS.pas
+ 2019/03/18 11:07:10.880,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
+ 2019/03/18 11:07:23.750,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
Index: AAPClient/UI/InfoLogScherm.dfm
===================================================================
diff -u -r51 -r52
--- AAPClient/UI/InfoLogScherm.dfm (.../InfoLogScherm.dfm) (revision 51)
+++ AAPClient/UI/InfoLogScherm.dfm (.../InfoLogScherm.dfm) (revision 52)
@@ -57,6 +57,7 @@
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
+ Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
ParentFont = False
ScrollBars = ssNone
TabOrder = 3