Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r193 -r195
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 193)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 195)
@@ -18,6 +18,8 @@
     function GebruikerAfmelden(): boolean;
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
+    function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer): DnaCodeAfmeldenResponse;
+    function ZoekViaToelevering(Toelevering: string): ZoekViaToeleveringResponse;
   end;
 
 implementation
@@ -32,6 +34,33 @@
   fUiContext := UiContext;
 end;
 
+function TAgent.DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string;
+  Aantal: integer): DnaCodeAfmeldenResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Request: DnaCodeAfmeldenRequest;
+  Header: DnaCodeService.RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
+  Request := DnaCodeAfmeldenRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+    Request.DnaCode := DnaCode;
+    Request.Toelevering := Toelevering;
+    Request.PalletCode := PalletCode;
+    Request.Aantal := Aantal;
+
+    Result := Service.DnaCodeAfmelden(Request);
+
+  finally
+    Request.Free;
+  end;
+end;
+
 function TAgent.GebruikerAanmelden(Initialen,
   LoginCode: string): GebruikerAanmeldenResponse;
 var
@@ -40,6 +69,7 @@
   Header: RequestHeader;
 begin
   Service := GebruikerService.GetGebruikerServiceSoap();
+
   Request := GebruikerAanmeldenRequest.Create;
   Header := RequestHeader.Create;
   try
@@ -109,6 +139,8 @@
   Header: DnaCodeService.RequestHeader;
   fZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest;
 begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
   fZoekViaPalletCodeRequest := ZoekViaPalletCodeRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -123,6 +155,29 @@
   end;
 end;
 
+function TAgent.ZoekViaToelevering(
+  Toelevering: string): ZoekViaToeleveringResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaToeleveringRequest: ZoekViaToeleveringRequest;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
+  fZoekViaToeleveringRequest := ZoekViaToeleveringRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaToeleveringRequest.Header := Header;
+    fZoekViaToeleveringRequest.Toelevering := Toelevering;
+
+    result := Service.ZoekViaToelevering(fZoekViaToeleveringRequest);
+  finally
+    fZoekViaToeleveringRequest.Free;
+  end;
+end;
+
 function TAgent.ComputerName: String;
 var
   buffer: array[0..255] of char;