Страница 1 из 1

Окргление

Добавлено: 25 мар 2003, 16:39
paul
В vip отчете я пишу
H:=DBFopen('C:\out.DBF',stCreate);
DBFAddField(H,'KOLPROD', dbNum, 12, 4);
...
DBFPutFieldValue(H,'KOLPROD', Round(SpSopr.KolFact - SpSopr.OstKol,4));


В результате все равно записывает до 2 знаков после запятой, хотя структура
Numeric 12,4.
Gal582 без всяких патчей и оперов.
;D

Re: Окргление

Добавлено: 26 мар 2003, 10:29
Max_Fin
Воспользуйся DoubleToStr

Re: Окргление

Добавлено: 26 мар 2003, 12:49
paul
Помогло
trim(String(SpSopr.KolFact - SpSopr.OstKol,12,4))
Спасибо за совет