Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r192 -r193
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 192)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 193)
@@ -29,7 +29,7 @@
 implementation
 
 uses
-  DnaCodeService, UiContext;
+  DnaCodeService, UiContext, Agent;
 
 {$R *.dfm}
 
@@ -41,67 +41,40 @@
 
 procedure TfmPalletScherm.actVolgendeExecute(Sender: TObject);
 var
-  Service: DnaCodeServiceSoap;
-  fValideerPalletCodeRequest: ValideerPalletCodeRequest;
   fValideerPalletCodeResponse: ValideerPalletCodeResponse;
-  Header: RequestHeader;
-  fZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest;
   fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
   fPalletGevalideerd: boolean;
 begin
   fPalletGevalideerd := false;
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
 
   // pallet code valideren
-  fValideerPalletCodeRequest := ValideerPalletCodeRequest.Create;
-  Header := RequestHeader.Create;
+  fValideerPalletCodeResponse := TAgent.Create(UiContext).ValideerPalletCode(edtPallet.Text);
   try
-    Header.Initialen := UiContext.Initialen;
-    Header.ComputerNaam := FullName();
-    fValideerPalletCodeRequest.Header := Header;
-    fValideerPalletCodeRequest.PalletCode := edtPallet.Text;
-
-    fValideerPalletCodeResponse := fAgent.ValideerPalletCode(edtPallet.Text);
-    try
-      if fValideerPalletCodeResponse.Header.Status <> '200' then begin
-        Self.ModalResult := mrPallet;
-        ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Scan opnieuw');
-        edtPallet.Text := '';
-        SetContext;
-      end else begin
-        fPalletGevalideerd := true;
-      end;
-    finally
-      fValideerPalletCodeResponse.Free;
+    if fValideerPalletCodeResponse.Header.Status <> '200' then begin
+      Self.ModalResult := mrPallet;
+      ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Scan opnieuw');
+      edtPallet.Text := '';
+      SetContext;
+    end else begin
+      fPalletGevalideerd := true;
     end;
   finally
-    fValideerPalletCodeRequest.Free;
+    fValideerPalletCodeResponse.Free;
   end;
 
   //checken of pallet in gebruik is indien het vorige geslaagd is
   if fPalletGevalideerd then begin
-    fZoekViaPalletCodeRequest := ZoekViaPalletCodeRequest.Create;
-    Header := RequestHeader.Create;
+    fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtPallet.Text);
     try
-      Header.Initialen := UiContext.Initialen;
-      Header.ComputerNaam := FullName();
-      fZoekViaPalletCodeRequest.Header := Header;
-      fZoekViaPalletCodeRequest.PalletCode := UiContext.Pallet;
-
-      fZoekViaPalletCodeResponse := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
-      try
-        if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
-          UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
-          Self.ModalResult := mrBestaandePallet;
-        end else begin
-          UiContext.Toelevering := '';
-          Self.ModalResult := mrDnaCode;
-        end;
-      finally
-        fZoekViaPalletCodeResponse.Free;
+      if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
+        UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
+        Self.ModalResult := mrBestaandePallet;
+      end else begin
+        UiContext.Toelevering := '';
+        Self.ModalResult := mrDnaCode;
       end;
     finally
-      fZoekViaPalletCodeRequest.Free;
+      fZoekViaPalletCodeResponse.Free;
     end;
 
   end else begin