strcountt=string(dw_list.object.countt[i]);//это вещественное число
 messagebox('1_1',strcountt);//выдает  0 , 23  до замены
 strcountt=replace(strcountt, 1 ,pos(strcountt,','),'.');//меняю в нем запятые на точки
 messagebox('1_2',strcountt);//выдает . 23  после замены
 strsum=string(dw_list.object.sum[i]-dw_list.object.sumopl[i]);
 messagebox('2_1',strsum);//выдает  10  до замены
 strsum=replace(strsum, 1 ,pos(strsum,','),'.');
 messagebox('2_2',strsum);//выдает . 10  после замены
//чтобы потом эти вещественные числа разделить запятыми в списке значений
 ssql="insert into flat.reestrdolg(sum,countt) values(strsum+","+strcountt)~;~r~n";
 execute immediate :ssql using sqlca;

 int p;
 strcountt=string(dw_list.object.countt[i]);
 p=pos(strcountt,',');
 if p<> 0  then
  strcountt=replace(strcountt,p, 1 ,'.');
 end if;
 strsum=string(dw_list.object.sum[i]-dw_list.object.sumopl[i]);
 p=pos(strsum,',');
 if p<> 0  then
  strsum=replace(strsum,p, 1 ,'.');
 end if;