Index: AAPClient/UI/DnaCodeReedsGescandScherm.dfm
===================================================================
diff -u -r170 -r171
--- AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 170)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 171)
@@ -16,12 +16,14 @@
     Color = 1513421
     ParentBackground = False
     TabOrder = 2
+    OnClick = pnlWegnemenClick
     object imgWegnemen: TImage
       Left = 14
       Top = 16
       Width = 128
       Height = 128
       Transparent = True
+      OnClick = imgWegnemenClick
     end
     object lblWegnemen: TLabel
       Left = 0
Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r170 -r171
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 170)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 171)
@@ -21,8 +21,10 @@
     procedure FormShow(Sender: TObject);
     procedure imgAnnulerenClick(Sender: TObject);
     procedure pnlAnnulerenClick(Sender: TObject);
+    procedure imgWegnemenClick(Sender: TObject);
+    procedure pnlWegnemenClick(Sender: TObject);
   private
-    { Private declarations }
+    procedure Wegnemen();
   public
     { Public declarations }
   end;
@@ -33,7 +35,7 @@
 implementation
 
 uses
-  UiContext;
+  UiContext, DnaCodeService;
 
 {$R *.dfm}
 
@@ -51,10 +53,57 @@
   Self.ModalResult := mrDnaCode;
 end;
 
+procedure TfmDnaCodeReedsGescandScherm.imgWegnemenClick(Sender: TObject);
+begin
+  inherited;
+  Wegnemen;
+  Self.ModalResult := mrDnaCode;
+end;
+
 procedure TfmDnaCodeReedsGescandScherm.pnlAnnulerenClick(Sender: TObject);
 begin
   inherited;
   Self.ModalResult := mrDnaCode;
 end;
 
+procedure TfmDnaCodeReedsGescandScherm.pnlWegnemenClick(Sender: TObject);
+begin
+  inherited;
+  Wegnemen;
+  Self.ModalResult := mrDnaCode;
+end;
+
+procedure TfmDnaCodeReedsGescandScherm.Wegnemen();
+var
+  Service: DnaCodeServiceSoap;
+  Request: DnaCodeAfmeldenRequest;
+  Response: DnaCodeAfmeldenResponse;
+  Header: RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+  // request opbouwen
+  Request := DnaCodeAfmeldenRequest.Create;
+  Header := RequestHeader.Create;
+  try
+    Header.Initialen := lblGebruiker.Caption;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+    Request.DnaCode := UiContext.LaatsteDnaCode;
+    Request.Aantal := -1;
+    Request.Toelevering := UiContext.Toelevering;
+    Request.PalletCode := UiContext.Pallet;
+
+    Response := Service.DnaCodeAfmelden(Request);
+    try
+      if Response.Header.Status <> '200' then begin
+        ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
+      end;
+    finally
+      Response.Free;
+    end;
+  finally
+    Request.Free;
+  end;
+end;
+
 end.