Index: ProScan/WS/DnaCodeService.pas
===================================================================
diff -u -r512 -r528
--- ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 512)
+++ ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 528)
@@ -1,11 +1,11 @@
 // ************************************************************************ //
 // The types declared in this file were generated from data read from the
 // WSDL File described below:
-// WSDL     : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1
-//  >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0
+// WSDL     : http://jba-ws015:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1
+//  >Import : http://jba-ws015:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0
 // Encoding : UTF-8
 // Version  : 1.0
-// (18/11/2020 8:49:28 - - $Rev: 45757 $)
+// (5/02/2021 11:10:59 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -508,6 +508,8 @@
     FDnaCodes_Specified: boolean;
     FBatchId: string;
     FBatchId_Specified: boolean;
+    FIsSST: Boolean;
+    FIsSST_Specified: boolean;
     procedure SetAantalInToelevering(Index: Integer; const AInt64: Int64);
     function  AantalInToelevering_Specified(Index: Integer): boolean;
     procedure SetAantalReedsGescand(Index: Integer; const AInt64: Int64);
@@ -516,13 +518,16 @@
     function  DnaCodes_Specified(Index: Integer): boolean;
     procedure SetBatchId(Index: Integer; const Astring: string);
     function  BatchId_Specified(Index: Integer): boolean;
+    procedure SetIsSST(Index: Integer; const ABoolean: Boolean);
+    function  IsSST_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
     property AantalInToelevering: Int64                  Index (IS_OPTN) read FAantalInToelevering write SetAantalInToelevering stored AantalInToelevering_Specified;
     property AantalReedsGescand:  Int64                  Index (IS_OPTN) read FAantalReedsGescand write SetAantalReedsGescand stored AantalReedsGescand_Specified;
     property DnaCodes:            ArrayOfDnaCodeDnaCode  Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified;
     property BatchId:             string                 Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified;
+    property IsSST:               Boolean                Index (IS_OPTN) read FIsSST write SetIsSST stored IsSST_Specified;
   end;
 
 
@@ -1070,7 +1075,7 @@
   // binding   : DnaCodeServiceSoap
   // service   : DnaCodeService
   // port      : DnaCodeServiceSoap
-  // URL       : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls
+  // URL       : http://jba-ws015:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls
   // ************************************************************************ //
   DnaCodeServiceSoap = interface(IInvokable)
   ['{514675BC-4331-0084-2F76-0934B2799FAE}']
@@ -1103,8 +1108,8 @@
 
 function GetDnaCodeServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): DnaCodeServiceSoap;
 const
-  defWSDL = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1';
-  defURL  = 'http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls';
+  defWSDL = 'http://jba-ws015:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1';
+  defURL  = 'http://jba-ws015:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls';
   defSvc  = 'DnaCodeService';
   defPrt  = 'DnaCodeServiceSoap';
 var
@@ -1565,6 +1570,17 @@
   Result := FBatchId_Specified;
 end;
 
+procedure DnaCodeAfmeldenResponse.SetIsSST(Index: Integer; const ABoolean: Boolean);
+begin
+  FIsSST := ABoolean;
+  FIsSST_Specified := True;
+end;
+
+function DnaCodeAfmeldenResponse.IsSST_Specified(Index: Integer): boolean;
+begin
+  Result := FIsSST_Specified;
+end;
+
 destructor ZoekViaPalletCodeResponse.Destroy;
 var
   I: Integer;