Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r29 -r30
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 29)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 30)
@@ -27,6 +27,9 @@
 
 implementation
 
+uses
+  DnaCodeService, PopupScherm;
+
 {$R *.dfm}
 
 procedure TfmPalletScherm.actHomeExecute(Sender: TObject);
@@ -36,9 +39,41 @@
 end;
 
 procedure TfmPalletScherm.actVolgendeExecute(Sender: TObject);
+var
+  Service: DnaCodeServiceSoap;
+  Request: ValideerPalletCodeRequest;
+  Response: ValideerPalletCodeResponse;
+  Header: RequestHeader;
+  PopupScherm: TfmPopupScherm;
 begin
-  inherited;
-  //
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+  // request opbouwen
+  Request := ValideerPalletCodeRequest.Create;
+  Header := RequestHeader.Create;
+  try
+    Header.Initialen := lblGebruiker.Caption;
+    Header.ComputerNaam := ComputerName();
+    Request.Header := Header;
+    Request.PalletCode := edtPallet.Text;
+
+
+    Response := Service.ValideerPalletCode(Request);
+    try
+      if Response.Header.Status <> '200' then begin
+        Self.ModalResult := mrRetry;
+        PopupScherm := TfmPopupScherm.Create(self);
+        PopupScherm.lblWaarschuwing.Caption := Response.Header.Omschrijving;
+        PopupScherm.btnPopupActie.Caption := 'Scan opnieuw';
+        PopupScherm.ShowModal;
+      end else begin
+        Self.ModalResult := mrOk;
+      end;
+    finally
+      Response.Free;
+    end;
+  finally
+    Request.Free;
+  end;
 end;
 
 procedure TfmPalletScherm.edtPalletKeyPress(Sender: TObject; var Key: Char);
Index: AAPClient/ProScan.dproj
===================================================================
diff -u -r19 -r30
--- AAPClient/ProScan.dproj	(.../ProScan.dproj)	(revision 19)
+++ AAPClient/ProScan.dproj	(.../ProScan.dproj)	(revision 30)
@@ -111,6 +111,7 @@
 				<Form>fmPalletScherm</Form>
 				<FormType>dfm</FormType>
 			</DCCReference>
+			<DCCReference Include="WS\DnaCodeService.pas"/>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
 				<CfgParent>Base</CfgParent>
Index: AAPClient/ProScan.dproj.local
===================================================================
diff -u -r19 -r30
--- AAPClient/ProScan.dproj.local	(.../ProScan.dproj.local)	(revision 19)
+++ AAPClient/ProScan.dproj.local	(.../ProScan.dproj.local)	(revision 30)
@@ -2,12 +2,12 @@
 <BorlandProject>
 	<Transactions>
     <Transaction>2019/03/01 14:25:16.000.954,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas</Transaction>
-    <Transaction>2019/03/01 14:25:57.000.930,E:\svn\Delphi\AAPClient\ProScanMain.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas</Transaction>
     <Transaction>2019/03/01 14:25:57.000.930,E:\svn\Delphi\AAPClient\ProScanMain.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm</Transaction>
+    <Transaction>2019/03/01 14:25:57.000.930,E:\svn\Delphi\AAPClient\ProScanMain.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas</Transaction>
     <Transaction>2019/03/01 14:26:05.000.981,E:\svn\Delphi\AAPClient\ProScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj</Transaction>
     <Transaction>2019/03/01 14:28:35.000.977,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
-    <Transaction>2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
     <Transaction>2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
+    <Transaction>2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
     <Transaction>2019/03/01 15:26:22.000.761,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm</Transaction>
     <Transaction>2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas</Transaction>
@@ -23,14 +23,16 @@
     <Transaction>2019/03/05 11:57:08.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
     <Transaction>2019/03/05 11:57:08.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/06 07:41:24.503,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
-    <Transaction>2019/03/06 07:41:41.580,E:\svn\Delphi\AAPClient\UI\Images.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
     <Transaction>2019/03/06 07:41:41.580,E:\svn\Delphi\AAPClient\UI\Images.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
+    <Transaction>2019/03/06 07:41:41.580,E:\svn\Delphi\AAPClient\UI\Images.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
     <Transaction>2019/03/07 08:39:12.150,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/07 08:39:29.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/07 08:39:29.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
     <Transaction>2019/03/07 11:22:02.536,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/07 11:29:09.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
     <Transaction>2019/03/07 11:29:09.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
+    <Transaction>2019/03/07 15:18:54.922,=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
+    <Transaction>2019/03/07 15:19:13.507,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="UI"/>
@@ -48,6 +50,7 @@
     <File Path="UI\PalletScherm.dfm"/>
     <File Path="WS"/>
     <File Path="WS\GebruikerService.pas"/>
+    <File Path="WS\DnaCodeService.pas"/>
     <File Path="ProScanMain.pas"/>
     <File Path="ProScanMain.dfm"/>
   </ProjectSortOrder>
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r29 -r30
Binary files differ
Index: AAPClient/ProScan.dpr
===================================================================
diff -u -r19 -r30
--- AAPClient/ProScan.dpr	(.../ProScan.dpr)	(revision 19)
+++ AAPClient/ProScan.dpr	(.../ProScan.dpr)	(revision 30)
@@ -9,7 +9,8 @@
   PopupScherm in 'UI\PopupScherm.pas' {fmPopupScherm},
   Images in 'UI\Images.pas' {ImagesScherm},
   HomeScherm in 'UI\HomeScherm.pas' {fmHomeScherm},
-  PalletScherm in 'UI\PalletScherm.pas' {fmPalletScherm};
+  PalletScherm in 'UI\PalletScherm.pas' {fmPalletScherm},
+  DnaCodeService in 'WS\DnaCodeService.pas';
 
 {$R *.res}