Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r301 -r315
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 301)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 315)
@@ -21,7 +21,7 @@
     function GebruikerAfmelden(): boolean;
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
-    function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer): DnaCodeAfmeldenResponse;
+    function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
     function ZoekViaToelevering(Toelevering: string): ZoekViaToeleveringResponse;
     function HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse;
     function IsDirecteLevering(Toelevering: string): DirecteLeveringResponse;
@@ -53,7 +53,7 @@
 end;
 
 function TAgent.DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string;
-  Aantal: integer): DnaCodeAfmeldenResponse;
+  Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
 var
   Request: DnaCodeAfmeldenRequest;
   Header: DnaCodeService.RequestHeader;
@@ -68,6 +68,7 @@
     Request.Toelevering := Toelevering;
     Request.PalletCode := PalletCode;
     Request.Aantal := Aantal;
+    Request.Locatie := Locatie;
 
     Result := fDnaCodeServiceSoap.DnaCodeAfmelden(Request);