Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r404 -r693
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 404)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 693)
@@ -3,7 +3,7 @@
 interface
 
 uses
-  DnaCodeService, GebruikerService, 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,8 @@
     fServer: string;
     fGebruikerServiceSoap: GebruikerServiceSoap;
     fDnaCodeServiceSoap: DnaCodeServiceSoap;
+    fQRcodeNaarKenmerkenServiceSoap: QRcodeNaarKenmerkenServiceSoap;
+    fAfdrukServiceSoap: AfdrukServiceSoap;
     function ComputerName: String;
     function WUserName: String;
   public
@@ -23,16 +25,19 @@
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
     function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse;
     function ZoekViaToelevering(Toelevering: string): ZoekViaToeleveringResponse;
-    function HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse;
+    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 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; HalvePallet: boolean; KartonnenPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+    function RondAfVhossBatch(BatchId: String): RondAfVhossBatchResponse;
+    function GeefKenmerken(KlantNummer: string; ProductNummer: string): QRcodeNaarKenmerkenResponse;
   end;
 
 implementation
@@ -52,7 +57,9 @@
   if fServer = 'cache01' then
     fNameSpace := 'admin1';
   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)
+  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;
@@ -72,10 +79,9 @@
     Request.PalletCode := PalletCode;
     Request.Aantal := Aantal;
     Request.Locatie := Locatie;
-    Request.GuiVhossVolgnummer := fUiContext.InternVhossId;
+    Request.BatchId := fUiContext.BatchId;
 
     Result := fDnaCodeServiceSoap.DnaCodeAfmelden(Request);
-
   finally
     Request.Free;
   end;
@@ -84,11 +90,11 @@
 function TAgent.GebruikerAanmelden(Initialen,
   LoginCode: string): GebruikerAanmeldenResponse;
 var
-  Request: GebruikerAanmeldenRequest;
-  Header: RequestHeader;
+  Request: GebruikerService.GebruikerAanmeldenRequest;
+  Header: GebruikerService.RequestHeader;
 begin
   Request := GebruikerAanmeldenRequest.Create;
-  Header := RequestHeader.Create;
+  Header := GebruikerService.RequestHeader.Create;
   try
     Request.Initialen := Initialen;
     Request.LoginCode := LoginCode;
@@ -105,25 +111,27 @@
 
 function TAgent.GebruikerAfmelden(): boolean;
 var
-  Request: GebruikerAfmeldenRequest;
-  Header: RequestHeader;
+  Request: GebruikerService.GebruikerAfmeldenRequest;
+  Header: GebruikerService.RequestHeader;
+  fResponse: GebruikerService.GebruikerAfmeldenResponse;
 begin
   Request := GebruikerAfmeldenRequest.Create;
-  Header := RequestHeader.Create;
+  Header := GebruikerService.RequestHeader.Create;
   try
     Request.Initialen := fUiContext.Initialen;
     Request.LoginCode := fUiContext.LoginCode;
     Header.Initialen := fUiContext.Initialen;
     Request.Header := Header;
 
-    fGebruikerServiceSoap.GebruikerAfmelden(Request);
+    fResponse := fGebruikerServiceSoap.GebruikerAfmelden(Request);
     Result := true;
+    fResponse.Free;
   finally
     Request.Free;
   end;
 end;
 
-function TAgent.GeefVolgendeTbpCode: GeefVolgendeTbpCodeResponse;
+function TAgent.GeefVolgendeTbpCode(ToeleveringId: string; ProductNummer: string): GeefVolgendeTbpCodeResponse;
 var
   Request: GeefVolgendeTbpCodeRequest;
   Header: DnaCodeService.RequestHeader;
@@ -134,14 +142,16 @@
     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.HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse;
+function TAgent.HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string; OokEWMSverwerken: boolean): HernoemPalletResponse;
 var
   Request: HernoemPalletRequest;
   Header: DnaCodeService.RequestHeader;
@@ -155,6 +165,7 @@
     Request.OudeCode := OudeCode;
     Request.NieuweCode := NieuweCode;
     Request.EnkelDezeDnaCode := EnkelDezeDnaCode;
+    Request.OokEWMSverwerken := OokEWMSverwerken;
 
     result := fDnaCodeServiceSoap.HernoemPallet(Request);
   finally
@@ -346,13 +357,13 @@
 
 function TAgent.ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
 var
-  Header: DnaCodeService.RequestHeader;
+  Header: AfdrukService.RequestHeader;
   fProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest;
   DnaCodesArray: ArrayOfStringString;
   ii: integer;
 begin
   fProboxEtiketAfdrukkenRequest := ProboxEtiketAfdrukkenRequest.Create;
-  Header := DnaCodeService.RequestHeader.Create;
+  Header := AfdrukService.RequestHeader.Create;
   try
     Header.Initialen := fUiContext.Initialen;
     Header.ComputerNaam := FullName();
@@ -369,7 +380,7 @@
 
     fProboxEtiketAfdrukkenRequest.DnaCodes := DnaCodesArray;
 
-    result := fDnaCodeServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
+    result := fAfdrukServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
   finally
     fProboxEtiketAfdrukkenRequest.Free;
   end;
@@ -394,6 +405,70 @@
   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; IsBlumXs: boolean; WegwerpPallet: boolean; HalvePallet: boolean; KartonnenPallet:boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fBewerkKlantinstellingenRequest: BewerkKlantinstellingenRequest;
+begin
+  fBewerkKlantinstellingenRequest := BewerkKlantinstellingenRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fBewerkKlantinstellingenRequest.Header := Header;
+    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);
+  finally
+    fBewerkKlantinstellingenRequest.Free;
+  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;