Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r665 -r669
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 665)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 669)
@@ -3,7 +3,7 @@
 interface
 
 uses
-  DnaCodeService, GebruikerService, AfdrukService, System.SysUtils, Vcl.Forms, UiContext, System.Classes;
+  DnaCodeService, GebruikerService, AfdrukService, QRcodeNaarKenmerkenService, System.SysUtils, System.StrUtils, Vcl.Forms, UiContext, System.Classes;
 
 type
   TAgent = class
@@ -12,6 +12,7 @@
     fServer: string;
     fGebruikerServiceSoap: GebruikerServiceSoap;
     fDnaCodeServiceSoap: DnaCodeServiceSoap;
+    fQRcodeNaarKenmerkenServiceSoap: QRcodeNaarKenmerkenServiceSoap;
     fAfdrukServiceSoap: AfdrukServiceSoap;
     function ComputerName: String;
     function WUserName: String;
@@ -22,22 +23,21 @@
     function GebruikerAfmelden(): boolean;
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
-    function ZoekViaLpnCode(LpnCode: string): ZoekViaLpnCodeResponse;
-    function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; LpnCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
+    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 GeefVolgendeTbpCode(ToeleveringId: string; ProductNummer: string): GeefVolgendeTbpCodeResponse;
     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;
     function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
     function RondAfVhossBatch(BatchId: String): RondAfVhossBatchResponse;
+    function GeefKenmerken(KlantNummer: string; ProductNummer: string): QRcodeNaarKenmerkenResponse;
   end;
 
 implementation
@@ -59,10 +59,11 @@
   fGebruikerServiceSoap := GebruikerService.GetGebruikerServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.GebruikerService.cls',nil);
   fDnaCodeServiceSoap := DnaCodeService.GetDnaCodeServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.DnaCodeService.cls',nil);
   fAfdrukServiceSoap := AfdrukService.GetAfdrukServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.AfdrukService.cls',nil);
+  fQRcodeNaarKenmerkenServiceSoap := QRcodenaarKenmerkenService.GetQRcodeNaarKenmerkenServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Vhisie4.QRcodeNaarKenmerkenService.cls',nil);
 end;
 
 function TAgent.DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string;
-  LpnCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
+  Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
 var
   Request: DnaCodeAfmeldenRequest;
   Header: DnaCodeService.RequestHeader;
@@ -76,7 +77,6 @@
     Request.DnaCode := DnaCode;
     Request.Toelevering := Toelevering;
     Request.PalletCode := PalletCode;
-    Request.LpnCode := LpnCode;
     Request.Aantal := Aantal;
     Request.Locatie := Locatie;
     Request.BatchId := fUiContext.BatchId;
@@ -125,13 +125,13 @@
 
     fResponse := fGebruikerServiceSoap.GebruikerAfmelden(Request);
     Result := true;
+    fResponse.Free;
   finally
     Request.Free;
-    fResponse.Free;
   end;
 end;
 
-function TAgent.GeefVolgendeTbpCode: GeefVolgendeTbpCodeResponse;
+function TAgent.GeefVolgendeTbpCode(ToeleveringId: string; ProductNummer: string): GeefVolgendeTbpCodeResponse;
 var
   Request: GeefVolgendeTbpCodeRequest;
   Header: DnaCodeService.RequestHeader;
@@ -142,31 +142,15 @@
     Header.Initialen := fUiContext.Initialen;
     Header.ComputerNaam := FullName();
     Request.Header := Header;
+    Request.ToeleveringId := ToeleveringId;
+    Request.ProductNummer := ProductNummer;
 
     result := fDnaCodeServiceSoap.GeefVolgendeTbpCode(Request);
   finally
     Request.Free;
   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;
@@ -351,26 +335,6 @@
   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
@@ -485,6 +449,24 @@
   end;
 end;
 
+function TAgent.GeefKenmerken(KlantNummer: string; ProductNummer: string): QRcodeNaarKenmerkenResponse;
+var
+  Header: QRcodeNaarKenmerkenService.RequestHeader;
+  fQRcodeNaarKenmerkenRequest: QRcodeNaarKenmerkenRequest;
+begin
+  fQRcodeNaarKenmerkenRequest := QRcodeNaarKenmerkenRequest.Create;
+  Header := QRcodeNaarKenmerkenService.RequestHeader.Create;
+  try
+    Header.KlantID := SplitString(KlantNummer, '||')[2];
+    fQRcodeNaarKenmerkenRequest.Header := Header;
+    fQRcodeNaarKenmerkenRequest.QRcodeData := 'AdminProductnummer=' + ProductNummer;
+
+    result := fQRcodeNaarKenmerkenServiceSoap.GeefKenmerken(fQRcodeNaarKenmerkenRequest);
+  finally
+    fQRcodeNaarKenmerkenRequest.Free;
+  end;
+end;
+
 function TAgent.ComputerName: String;
 var
   buffer: array[0..255] of char;