[Valerian]

Правильное отображение копеек в счете
Собственно хочу предложить небольшой скрипт для исправления недочета КСТ. При выводе любой цифры в письменном виде копейки отображаются не совсем корректно (Пример: Четыре тысячи двести пятьдесят 40/100) что есть не хорошо.
Решение:

1. Заходим в дизайнер и открываем соответствующее поле Memo
2. Пишим во втором окне следующий текст:
   begin
   a:=STRTOFLOAT(COPY([Сумма счета (пропис.)], LENGTH([Сумма счета (пропис.)])-4, 1));
   if a = 1 then
   text:='копейка';
   if (a>1) and (a<5) then
   text:='копейки';
   if (a>4) or a = 0 then
   text:='копеек';
   memo:=copy([Сумма счета (пропис.)], 1,LENGTH([Сумма счета (пропис.)])-4)+' '+text;
   end
3. Сохраняем полученный отчет.

Результат: Четыре тысячи двести пятьдесят 40 копеек.
Приведенный выше код не притендует на оригинальность и не является оптимальным, а лишь демонстрирует возможности встроенного дизайнера.