Index: VerpakkingsDefinitie/WS/SelectService.pas
===================================================================
diff -u -r556 -r560
--- VerpakkingsDefinitie/WS/SelectService.pas	(.../SelectService.pas)	(revision 556)
+++ VerpakkingsDefinitie/WS/SelectService.pas	(.../SelectService.pas)	(revision 560)
@@ -48,15 +48,15 @@
   SelectResponse = class(TRemotable)
   private
     FSelectResult: pxStatus;
-    FvarDataSet: anyType;
+    FvarDataSet: string;
     FvarDataSet_Specified: boolean;
-    procedure SetvarDataSet(Index: Integer; const AanyType: anyType);
+    procedure SetvarDataSet(Index: Integer; const AanyType: string);
     function  varDataSet_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
     property SelectResult: pxStatus  read FSelectResult write FSelectResult;
-    property varDataSet:   anyType   Index (IS_OPTN) read FvarDataSet write SetvarDataSet stored varDataSet_Specified;
+    property varDataSet:   string   Index (IS_OPTN) read FvarDataSet write SetvarDataSet stored varDataSet_Specified;
   end;
 
 
@@ -71,20 +71,20 @@
     FSessionKey_Specified: boolean;
     FCriteria: pxSelectCriteria;
     FCriteria_Specified: boolean;
-    FvarDataSet: anyType;
+    FvarDataSet: string;
     FvarDataSet_Specified: boolean;
     procedure SetSessionKey(Index: Integer; const Astring: string);
     function  SessionKey_Specified(Index: Integer): boolean;
     procedure SetCriteria(Index: Integer; const ApxSelectCriteria: pxSelectCriteria);
     function  Criteria_Specified(Index: Integer): boolean;
-    procedure SetvarDataSet(Index: Integer; const AanyType: anyType);
+    procedure SetvarDataSet(Index: Integer; const AanyType: string);
     function  varDataSet_Specified(Index: Integer): boolean;
   public
     destructor Destroy; override;
   published
     property SessionKey: string            Index (IS_OPTN) read FSessionKey write SetSessionKey stored SessionKey_Specified;
     property Criteria:   pxSelectCriteria  Index (IS_OPTN) read FCriteria write SetCriteria stored Criteria_Specified;
-    property varDataSet: anyType           Index (IS_OPTN) read FvarDataSet write SetvarDataSet stored varDataSet_Specified;
+    property varDataSet: string           Index (IS_OPTN) read FvarDataSet write SetvarDataSet stored varDataSet_Specified;
   end;
 
 
@@ -257,7 +257,7 @@
   inherited Destroy;
 end;
 
-procedure SelectResponse.SetvarDataSet(Index: Integer; const AanyType: anyType);
+procedure SelectResponse.SetvarDataSet(Index: Integer; const AanyType: string);
 begin
   FvarDataSet := AanyType;
   FvarDataSet_Specified := True;
@@ -297,7 +297,7 @@
   Result := FCriteria_Specified;
 end;
 
-procedure Select.SetvarDataSet(Index: Integer; const AanyType: anyType);
+procedure Select.SetvarDataSet(Index: Integer; const AanyType: string);
 begin
   FvarDataSet := AanyType;
   FvarDataSet_Specified := True;