Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r663 -r665
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 663)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 665)
@@ -23,7 +23,7 @@
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
     function ZoekViaLpnCode(LpnCode: string): ZoekViaLpnCodeResponse;
-    function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
+    function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; LpnCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
     function ZoekViaToelevering(Toelevering: string): ZoekViaToeleveringResponse;
     function HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string; OokEWMSverwerken: boolean): HernoemPalletResponse;
     function IsDirecteLevering(Toelevering: string): DirecteLeveringResponse;
@@ -62,7 +62,7 @@
 end;
 
 function TAgent.DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string;
-  Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
+  LpnCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
 var
   Request: DnaCodeAfmeldenRequest;
   Header: DnaCodeService.RequestHeader;
@@ -76,12 +76,12 @@
     Request.DnaCode := DnaCode;
     Request.Toelevering := Toelevering;
     Request.PalletCode := PalletCode;
+    Request.LpnCode := LpnCode;
     Request.Aantal := Aantal;
     Request.Locatie := Locatie;
     Request.BatchId := fUiContext.BatchId;
 
     Result := fDnaCodeServiceSoap.DnaCodeAfmelden(Request);
-
   finally
     Request.Free;
   end;