Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r56 -r60
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 56)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 60)
@@ -44,9 +44,36 @@
 end;
 
 procedure TfmInfoLogScherm.actOngedaanMakenExecute(Sender: TObject);
+var
+  Service: DnaCodeServiceSoap;
+  Request: DnaCodeAfmeldenRequest;
+  Response: DnaCodeAfmeldenResponse;
+  Header: RequestHeader;
 begin
-  inherited;
-  //
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+  // request opbouwen
+  Request := DnaCodeAfmeldenRequest.Create;
+  Header := RequestHeader.Create;
+  try
+    Header.Initialen := lblGebruiker.Caption;
+    Header.ComputerNaam := ComputerName();
+    Request.Header := Header;
+    Request.DnaCode := sgToeleveringData.Rows[sgToeleveringData.Row][0];
+    Request.Aantal := -1;
+    Request.Toelevering := lblToelevering.Caption;
+    Request.PalletCode := sgToeleveringData.Rows[sgToeleveringData.Row][1];
+
+    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;
 
 procedure TfmInfoLogScherm.actVolgendeExecute(Sender: TObject);