anchor.diff:          ?assertEqual(-200, io_to_db(Item,OldInteger,integer,100,0,Def,RW,<<"300-500">>)),
           ?assertEqual(12, io_to_db(Item,OldInteger,integer,20,0,Def,RW,<<"120/10.0">>)),
           ?assertEqual(12, io_to_db(Item,OldInteger,integer,20,0,Def,RW,<<"120/10.0001">>)),
  +        ?assertEqual(123456789, io_to_db(Item,OldInteger,integer,20,0,Def,RW,<<"123'456'789">>)),
  +        ?assertEqual(-123456789, io_to_db(Item,OldInteger,integer,20,0,Def,RW,<<"-123,456,789">>)),
  +        ?assertException(throw, {ClEr,{"Data conversion format error",{0,{integer,<<"12'000/10.0">>}}}}, io_to_db(Item,OldInteger,integer,20,0,Def,RW,<<"12'000/10.0">>)),
           ?assertException(throw, {ClEr,{"Data conversion format error",{0,{integer,3,1,"1234"}}}}, io_to_db(Item,OldInteger,integer,Len,Prec,Def,RW,<<"1234">>)),
           ?assertException(throw, {ClEr,{"Data conversion format error",{0,{integer,<<"-">>}}}}, io_to_db(Item,OldInteger,integer,Len,Prec,Def,RW,<<"-">>)),
           ?assertEqual(default, io_to_db(Item,OldInteger,integer,Len,Prec,Def,RW,?emptyIo)),
  
positive.code: 
  -define(H(X), (hex(X)):16).
  
  -define(THOUSAND_SEP,$').           
  -define(USE_THOUSAND_SEP,true).     %% comment out if no thousands separation is wanted
  
  -define(BinaryMaxLen,250).          %% more represented by "..." suffix
  
  
negative.code: io_to_decimal(Val,Len,0) ->         %% use fixed point arithmetic with implicit scaling factor
      io_to_integer(Val,Len,0);
  io_to_decimal(Val,Len,Prec) ->
      case string:join(string:tokens(Val,?THOUSAND_SEP),[]) of
          [$-|Positive] -> Sign = [$-];
          Positive -> Sign = []
      end,
  