Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r512 -r693
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 512)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 693)
@@ -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;
@@ -28,14 +29,15 @@
     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 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; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+    function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; KartonnenPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
     function RondAfVhossBatch(BatchId: String): RondAfVhossBatchResponse;
+    function GeefKenmerken(KlantNummer: string; ProductNummer: string): QRcodeNaarKenmerkenResponse;
   end;
 
 implementation
@@ -57,6 +59,7 @@
   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;
@@ -79,7 +82,6 @@
     Request.BatchId := fUiContext.BatchId;
 
     Result := fDnaCodeServiceSoap.DnaCodeAfmelden(Request);
-
   finally
     Request.Free;
   end;
@@ -123,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;
@@ -140,6 +142,8 @@
     Header.Initialen := fUiContext.Initialen;
     Header.ComputerNaam := FullName();
     Request.Header := Header;
+    Request.ToeleveringId := ToeleveringId;
+    Request.ProductNummer := ProductNummer;
 
     result := fDnaCodeServiceSoap.GeefVolgendeTbpCode(Request);
   finally
@@ -421,7 +425,7 @@
 end;
 
 function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
-  IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+  IsExport: boolean; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; KartonnenPallet:boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
 var
   Header: DnaCodeService.RequestHeader;
   fBewerkKlantinstellingenRequest: BewerkKlantinstellingenRequest;
@@ -435,7 +439,10 @@
     fBewerkKlantinstellingenRequest.Actie := Actie;
     fBewerkKlantinstellingenRequest.KlantId := KlantId;
     fBewerkKlantinstellingenRequest.IsExport := IsExport;
+    fBewerkKlantinstellingenRequest.IsBlumXs := IsBlumXs;
     fBewerkKlantinstellingenRequest.WegwerpPallet := WegwerpPallet;
+    fBewerkKlantinstellingenRequest.HalvePallet := HalvePallet;
+    fBewerkKlantinstellingenRequest.KartonnenPallet := KartonnenPallet;
     fBewerkKlantinstellingenRequest.MeerdereToeleveringen := MeerdereToeleveringen;
 
     result := fDnaCodeServiceSoap.BewerkKlantinstellingen(fBewerkKlantinstellingenRequest);
@@ -444,6 +451,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;