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);