Index: VerpakkingsDefinitie/WS/OptiServerService.pas
===================================================================
diff -u -r563 -r607
--- VerpakkingsDefinitie/WS/OptiServerService.pas	(.../OptiServerService.pas)	(revision 563)
+++ VerpakkingsDefinitie/WS/OptiServerService.pas	(.../OptiServerService.pas)	(revision 607)
@@ -1784,15 +1784,15 @@
   GetAllProductGroepenResponse = class(TRemotable)
   private
     FGetAllProductGroepenResult: 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 GetAllProductGroepenResult: pxStatus read FGetAllProductGroepenResult write FGetAllProductGroepenResult;
-    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;
 
   // ************************************************************************ //
@@ -4665,7 +4665,7 @@
   inherited Destroy;
 end;
 
-procedure GetAllProductGroepenResponse.SetvarDataSet(Index: Integer; const AanyType: anyType);
+procedure GetAllProductGroepenResponse.SetvarDataSet(Index: Integer; const AanyType: string);
 begin
   FvarDataSet := AanyType;
   FvarDataSet_Specified := True;