Index: VerpakkingsDefinitie/WS/OptiServerService.pas
===================================================================
diff -u -r607 -r608
--- VerpakkingsDefinitie/WS/OptiServerService.pas	(.../OptiServerService.pas)	(revision 607)
+++ VerpakkingsDefinitie/WS/OptiServerService.pas	(.../OptiServerService.pas)	(revision 608)
@@ -142,15 +142,15 @@
   GetMetaViaProductGroepResponse = class(TRemotable)
   private
     FGetMetaViaProductGroepResult: 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 GetMetaViaProductGroepResult: pxStatus read FGetMetaViaProductGroepResult write FGetMetaViaProductGroepResult;
-    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;
 
   // ************************************************************************ //
@@ -2300,7 +2300,7 @@
   inherited Destroy;
 end;
 
-procedure GetMetaViaProductGroepResponse.SetvarDataSet(Index: Integer; const AanyType: anyType);
+procedure GetMetaViaProductGroepResponse.SetvarDataSet(Index: Integer; const AanyType: string);
 begin
   FvarDataSet := AanyType;
   FvarDataSet_Specified := True;