Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r646 -r663
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 646)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 663)
@@ -22,13 +22,15 @@
     function GebruikerAfmelden(): boolean;
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
+    function ZoekViaLpnCode(LpnCode: string): ZoekViaLpnCodeResponse;
     function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
     function ZoekViaToelevering(Toelevering: string): ZoekViaToeleveringResponse;
     function HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string; OokEWMSverwerken: boolean): HernoemPalletResponse;
     function IsDirecteLevering(Toelevering: string): DirecteLeveringResponse;
     function PalletBijwerken(Pallet: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): PalletBijwerkenResponse;
     function ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): ToeleveringBijwerkenResponse;
     function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
+    function GeefVolgendeLpnCode(): GeefVolgendeLpnCodeResponse;
     function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
     function RondAfKaderdeurDag(DnaCode: String): RondAfKaderdeurDagResponse;
@@ -147,6 +149,24 @@
   end;
 end;
 
+function TAgent.GeefVolgendeLpnCode: GeefVolgendeLpnCodeResponse;
+var
+  Request: GeefVolgendeLpnCodeRequest;
+  Header: DnaCodeService.RequestHeader;
+begin
+  Request := GeefVolgendeLpnCodeRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+
+    result := fDnaCodeServiceSoap.GeefVolgendeLpnCode(Request);
+  finally
+    Request.Free;
+  end;
+end;
+
 function TAgent.HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string; OokEWMSverwerken: boolean): HernoemPalletResponse;
 var
   Request: HernoemPalletRequest;
@@ -331,6 +351,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