Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r332 -r391
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 332)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 391)
@@ -31,6 +31,8 @@
     function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
     function RondAfKaderdeurDag(DnaCode: String): RondAfKaderdeurDagResponse;
+    function ZoekAlleVhossLadesBijDnaCode(DnaCode: String): ZoekAlleVhossLadesBijDnaCodeResponse;
+    function ZoekAlleDnaCodesDieOpVhossMoeten(FrameId: String): ZoekAlleDnaCodesDieOpVhossMoetenResponse;
   end;
 
 implementation
@@ -70,6 +72,7 @@
     Request.PalletCode := PalletCode;
     Request.Aantal := Aantal;
     Request.Locatie := Locatie;
+    Request.GuiVhossVolgnummer := fUiContext.InternVhossId;
 
     Result := fDnaCodeServiceSoap.DnaCodeAfmelden(Request);
 
@@ -241,6 +244,47 @@
   end;
 end;
 
+function TAgent.ZoekAlleDnaCodesDieOpVhossMoeten(
+  FrameId: String): ZoekAlleDnaCodesDieOpVhossMoetenResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fZoekAlleDnaCodesDieOpVhossMoetenRequest: ZoekAlleDnaCodesDieOpVhossMoetenRequest;
+begin
+  fZoekAlleDnaCodesDieOpVhossMoetenRequest := ZoekAlleDnaCodesDieOpVhossMoetenRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekAlleDnaCodesDieOpVhossMoetenRequest.Header := Header;
+    fZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId := FrameId;
+
+    result := fDnaCodeServiceSoap.ZoekAlleDnaCodesDieOpVhossMoeten(fZoekAlleDnaCodesDieOpVhossMoetenRequest);
+  finally
+    fZoekAlleDnaCodesDieOpVhossMoetenRequest.Free;
+  end;
+end;
+
+function TAgent.ZoekAlleVhossLadesBijDnaCode(
+  DnaCode: String): ZoekAlleVhossLadesBijDnaCodeResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fZoekAlleVhossLadesBijDnaCodeRequest: ZoekAlleVhossLadesBijDnaCodeRequest;
+begin
+  fZoekAlleVhossLadesBijDnaCodeRequest := ZoekAlleVhossLadesBijDnaCodeRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekAlleVhossLadesBijDnaCodeRequest.Header := Header;
+    fZoekAlleVhossLadesBijDnaCodeRequest.DnaCode := DnaCode;
+    fZoekAlleVhossLadesBijDnaCodeRequest.GuiVhossVolgnummer := fUiContext.InternVhossId;
+
+    result := fDnaCodeServiceSoap.ZoekAlleVhossLadesBijDnaCode(fZoekAlleVhossLadesBijDnaCodeRequest);
+  finally
+    fZoekAlleVhossLadesBijDnaCodeRequest.Free;
+  end;
+end;
+
 function TAgent.ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
 var
   Header: DnaCodeService.RequestHeader;