Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r660 -r666
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 660)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 666)
@@ -36,6 +36,8 @@
     function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
     function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
     function ZoekViaBatchId(BatchId: string): ZoekViaBatchResponse;
+    function ZoekViaStatus(Status: DnaCodeStatus): ZoekViaStatusResponse;
+    function ZoekViaLpnCode(LpnCode: string): ZoekViaLpnCodeResponse;
     function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList; LijnWaaropGeprintMoetWorden: string): AfdrukService.ProboxEtiketAfdrukkenResponse;
     function KlantEtiketAfdrukken(DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse;
@@ -296,6 +298,25 @@
   end;
 end;
 
+function TAgent.ZoekViaStatus(Status: DnaCodeStatus): ZoekViaStatusResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaStatusRequest: ZoekViaStatusRequest;
+begin
+  fZoekViaStatusRequest := ZoekViaStatusRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaStatusRequest.Header := Header;
+    fZoekViaStatusRequest.Status := Status;
+
+    result := fDnaCodeServiceSoap.ZoekViaStatus(fZoekViaStatusRequest);
+  finally
+    fZoekViaStatusRequest.Free;
+  end;
+end;
+
 function TAgent.ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
 var
   Header: DnaCodeService.RequestHeader;
@@ -392,6 +413,26 @@
   end;
 end;
 
+function TAgent.ZoekViaLpnCode(
+  LpnCode: string): ZoekViaLpnCodeResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaLpnCodeRequest: ZoekViaLpnCodeRequest;
+begin
+  fZoekViaLpnCodeRequest := ZoekViaLpnCodeRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaLpnCodeRequest.Header := Header;
+    fZoekViaLpnCodeRequest.LpnCode := LpnCode;
+
+    result := fDnaCodeServiceSoap.ZoekViaLpnCode(fZoekViaLpnCodeRequest);
+  finally
+    fZoekViaLpnCodeRequest.Free;
+  end;
+end;
+
 function TAgent.ZoekViaToelevering(
   Toelevering: string): ZoekViaToeleveringResponse;
 var