Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r419 -r437
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 419)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 437)
@@ -34,6 +34,7 @@
     function ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse;
     function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
     function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
+    function ZoekViaBatchId(BatchId: string): ZoekViaBatchResponse;
     function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
   end;
 
@@ -271,6 +272,25 @@
   end;
 end;
 
+function TAgent.ZoekViaBatchId(BatchId: string): ZoekViaBatchResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaBatchRequest: ZoekViaBatchRequest;
+begin
+  fZoekViaBatchRequest := ZoekViaBatchRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaBatchRequest.Header := Header;
+    fZoekViaBatchRequest.BatchId := BatchId;
+
+    result := fDnaCodeServiceSoap.ZoekViaBatch(fZoekViaBatchRequest);
+  finally
+    fZoekViaBatchRequest.Free;
+  end;
+end;
+
 function TAgent.ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
 var
   Header: DnaCodeService.RequestHeader;