Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r298 -r363
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 298)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 363)
@@ -31,6 +31,9 @@
     function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
     function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
+    function ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse;
+    function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
+    function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
   end;
 
 implementation
@@ -286,6 +289,63 @@
   end;
 end;
 
+function TAgent.ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest;
+begin
+  fZoekViaKlantnummerRequest := ZoekViaKlantnummerRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaKlantnummerRequest.Header := Header;
+    fZoekViaKlantnummerRequest.Klantnummer := Klantnummer;
+
+    result := fDnaCodeServiceSoap.ZoekViaKlantnummer(fZoekViaKlantnummerRequest);
+  finally
+    fZoekViaKlantnummerRequest.Free;
+  end;
+end;
+
+function TAgent.ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaLadecodeRequest: ZoekViaLadecodeRequest;
+begin
+  fZoekViaLadecodeRequest := ZoekViaLadecodeRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaLadecodeRequest.Header := Header;
+    fZoekViaLadecodeRequest.Ladecode := Ladecode;
+
+    result := fDnaCodeServiceSoap.ZoekViaLadecode(fZoekViaLadecodeRequest);
+  finally
+    fZoekViaLadecodeRequest.Free;
+  end;
+end;
+
+function TAgent.ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaOrdernummerRequest: ZoekViaOrdernummerRequest;
+begin
+  fZoekViaOrdernummerRequest := ZoekViaOrdernummerRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaOrdernummerRequest.Header := Header;
+    fZoekViaOrdernummerRequest.Ordernummer := Ordernummer;
+
+    result := fDnaCodeServiceSoap.ZoekViaOrdernummer(fZoekViaOrdernummerRequest);
+  finally
+    fZoekViaOrdernummerRequest.Free;
+  end;
+end;
+
 function TAgent.ZoekViaPalletCode(
   PalletCode: string): ZoekViaPalletCodeResponse;
 var