Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r189 -r190
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 189)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 190)
@@ -39,6 +39,7 @@
     procedure VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
     function BepaalAantalLadesOpHuidigePallet: integer;
     function BepaalDirecteLevering: boolean;
+    procedure PalletBijwerken(Status: DnaCodeStatus; IsDirecteLevering: boolean);
   public
   end;
 
@@ -73,9 +74,9 @@
         fImagesScherm.ilAlgemeen32.GetIcon(3, imgGls.Picture.Icon);
         imgGls.Visible := true;
       end;
-      //pallet updaten met status InBuffer en directelevering info
+      PalletBijwerken(DnaCodeStatus.InBuffer,BepaalDirecteLevering);
     end;
-    //pallet updaten met status rework en directelevering info
+    PalletBijwerken(DnaCodeStatus.OnHold,false);
   end;
 
   Self.ModalResult := mrPallet;
@@ -137,7 +138,7 @@
         result := fDirecteLeveringResponse.IsDirecteLevering;
       end else begin
         ToonPopupScherm(fDirecteLeveringResponse.Header.Omschrijving, 'Probeer opnieuw');
-        result := false
+        result := false;
       end;
     finally
       fDirecteLeveringResponse.Free;
@@ -272,6 +273,43 @@
   end;
 end;
 
+procedure TfmDnaCodeScherm.PalletBijwerken(Status: DnaCodeStatus;
+  IsDirecteLevering: boolean);
+var
+  Service: DnaCodeServiceSoap;
+  Request: PalletBijwerkenRequest;
+  Response: PalletBijwerkenResponse;
+  Header: RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+  // request opbouwen
+  Request := PalletBijwerkenRequest.Create;
+  Header := RequestHeader.Create;
+  try
+    Header.Initialen := UiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+    Request.Pallet := UiContext.Pallet;
+    Request.Status := Status;
+    Request.IsGlsDirect := IsDirecteLevering;
+
+    Response := Service.PalletBijwerken(Request);
+    try
+      if Response.Header.Status <> '200' then begin
+        ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
+        Self.ModalResult := mrPallet;
+      end else begin
+        ToonPopupScherm('Pallet '+UiContext.Pallet+' volledig verwerkt', 'Probeer opnieuw');
+        Self.ModalResult := mrPallet;
+      end;
+    finally
+      Response.Free;
+    end;
+  finally
+    Request.Free;
+  end;
+end;
+
 procedure TfmDnaCodeScherm.ToeleveringDataOphalen;
 var
   Service: DnaCodeServiceSoap;