Index: ProScan/WS/DnaCodeService.pas
===================================================================
diff -u -r651 -r653
--- ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 651)
+++ ProScan/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 653)
@@ -671,7 +671,7 @@
     function  WegwerpPallet_Specified(Index: Integer): boolean;
     procedure SetMeerdereToeleveringen(Index: Integer; const ABoolean: Boolean);
     function  MeerdereToeleveringen_Specified(Index: Integer): boolean;
-  published
+  public // Ook dit public. Voodoo
     property KlantId:               string   Index (IS_OPTN) read FKlantId write SetKlantId stored KlantId_Specified;
     property Klantnaam:             string   Index (IS_OPTN) read FKlantnaam write SetKlantnaam stored Klantnaam_Specified;
     property IsExport:              Boolean  Index (IS_OPTN) read FIsExport write SetIsExport stored IsExport_Specified;