Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r312 -r315
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 312)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 315)
@@ -227,11 +227,18 @@
 var
   Response: DnaCodeAfmeldenResponse;
   List: TStrings;
+  Locatie: string;
 begin
   UiContext.LaatsteDnaCode := edtDnaCode.Text;
   lblLaatstGescandData.Caption := edtDnaCode.Text;
 
-  Response := TAgent.Create(UiContext).DnaCodeAfmelden(edtDnaCode.Text,UiContext.Toelevering,UiContext.Pallet,1);
+  if UiContext.Modus = modusKAD then begin
+    Locatie := UiContext.Pallet;
+  end else begin
+    Locatie := ''
+  end;
+
+  Response := TAgent.Create(UiContext).DnaCodeAfmelden(edtDnaCode.Text,UiContext.Toelevering,UiContext.Pallet,1,Locatie);
   try
     List := TStringList.Create;
     ExtractStrings([':'], [], PChar(Response.Header.Status), List);