Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r472 -r492
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 472)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 492)
@@ -35,6 +35,7 @@
     function ZoekAlleVhossLadesBijDnaCode(DnaCode: String): ZoekAlleVhossLadesBijDnaCodeResponse;
     function ZoekAlleDnaCodesDieOpVhossMoeten(FrameId: String): ZoekAlleDnaCodesDieOpVhossMoetenResponse;
     function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+    function RondAfVhossBatch(BatchId: String): RondAfVhossBatchResponse;
   end;
 
 implementation
@@ -399,6 +400,25 @@
   end;
 end;
 
+function TAgent.RondAfVhossBatch(BatchId: String): RondAfVhossBatchResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fRondAfVhossBatchRequest: RondAfVhossBatchRequest;
+begin
+  fRondAfVhossBatchRequest := RondAfVhossBatchRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fRondAfVhossBatchRequest.Header := Header;
+    fRondAfVhossBatchRequest.BatchId := BatchId;
+
+    result := fDnaCodeServiceSoap.RondAfVhossBatch(fRondAfVhossBatchRequest);
+  finally
+    fRondAfVhossBatchRequest.Free;
+  end;
+end;
+
 function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
   IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
 var