johngorn, я пользуюсь еще одним способом - преобразовываю число в символьную строку и затем его отображаю там, где надо.
Для этого я сделал специальную функцию StrTrimZero(tnX).
Почему не просто TRANSFORM ? Во-првых TRANSFORM оставляет нули в конце дробной части, а во-вторых, мне приходилось встречаться со случаями, когда вместо трех цифр дробной части выдавался длинный хвост из девяток. Возможно, этот баг уже исправлен - я, к сожалению, не помню конкретного значения.
Одно замечание - это название функции (StrTrimZero) оказалось крайне неудачным - Фокс иногда ассоциирует его с зарезервированными словами. Так что, если будете применять эту функцию, то назовите ее как-нибудь иначе.
Теперь об использовании. Пусть в таблице есть числовое поле ostatok. Тогда в качестве источника данных для поля отчета я пишу StrTrimZero(ostatok). Так же я поступаю, если нужно показать число в ReadOnly текстовом поле формы. В сетке же для колонки этого поля я пишу вычисляемое значение (StrTrimZero(ostatok)) - внешние скобки нужны из-за неудачного названия функции. Т.е. если я опеределяю сетку в коде, то я пишу:
ThisForm.grdMyGrid.grcOstatok.ControlSource = "(StrTrimZero(ostatok))"
Ну и, наконец, код функции:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
***************************************************************
* Преобразование числа в строку с отсечением концевых нулей *
* в дробной части и необязательным (по умолчанию) отсечением *
* всех пробелов. StrTrimZero( 123 . 560 ) -> "123.56" *
***************************************************************
FUNCTION StrTrimZero
LPARAMETERS tnNumb, tcFormat
* Входные параметры:
* tnNumb - преобразуемое число.
* tcFormat - код формата:
* "Z" - (по умолчанию) - нулевое значение числа
* преобразуется в пустую строку.
* Возвращаемое значение:
* Cимвольное представление числа без лидирующих и концевых пробелов,
* а также без концевых нулей в дробной части.
IF PARAMETERS() < 2
tcFormat = "Z"
ENDIF
IF EMPTY(tnNumb)
RETURN IIF(tcFormat="Z", "", "0")
ELSE
IF INT(tnNumb) = tnNumb
RETURN LTRIM(STR(tnNumb, 18 ))
ELSE
IF tnNumb > 0 .AND. tnNumb < 1
RETURN "0"+CHRTRAN(ALLTRIM(CHRTRAN(STR(tnNumb, 18 , 5 ), "0", " ")), " ", "0")
ELSE
RETURN CHRTRAN(ALLTRIM(CHRTRAN(STR(tnNumb, 18 , 5 ), "0", " ")), " ", "0")
ENDIF
ENDIF
ENDIF
***************************************************************
И, в заключение, - функция, конечно, не быстрая, но на современных машинах вывод сетки не тормозит, ну а про отчеты и говорить нечего. Что же касается "некультурных" RETURN посреди кода, то это для скорости.
